<%dim isOn, TotalUserOnline, Alt Set isOn = Server.CreateObject("ADODB.RecordSet") If Session("cnet_id") <> "" then dim dt dt = now isOn.Open "Update Tal_Online set TillTime='" & now & "' where ProfileID='" & Session("cnet_id") & "'", con, adOpenDynamic, adLockPessimistic Set Alt = Server.CreateObject("ADODB.RecordSet") Alt.Open "Select * From Tal_AlertMsg where Alt_To='" & Session("cnet_id") & "'", con, adOpenStatic if not Alt.EOF Then%> <%End If End If isOn.Open "Delete From Tal_Online where abs(DateDiff(mi, TillTime, Getdate()))>'20'", con, adOpenDynamic, adLockPessimistic isOn.Open "Select Count(*) From Tal_Online", con, adOpenStatic if isOn(0) = 0 Then totalUserOnline = 0 Else totalUserOnline = isOn(0) End if%>
 
OUR LINKS: