<%'if session("Site_Admin") = "" then 'response.redirect "log.asp?msg=Please Login" 'end if Set isOn = Server.CreateObject("ADODB.RecordSet") if UCASE(Session("Gen")) = "MAN" Then onG = "WOMAN" Else onG = "MAN" End If If Session("Profileid") <> "" then dim dt dt = now isOn.Open "Update Dat_Online set TillTime='" & now & "' where ProfileID='" & Session("ProfileID") & "'", con, adOpenDynamic, adLockPessimistic Set Alt = Server.CreateObject("ADODB.RecordSet") Alt.Open "Select * From Dat_AlertMsg where Alt_To='" & Session("ProfileID") & "'", con, adOpenStatic if not Alt.EOF Then %> <% end if end if isOn.Open "Delete From Dat_Online where abs(DateDiff(mi, TillTime, Getdate()))>'20'", con, adOpenDynamic, adLockPessimistic if Session("gen") <>"" Then stM = " where gender='"& onG &"'" Else stM = "" End if isOn.Open "Select Count(*) From Dat_Online"& stM, con, adOpenStatic if isOn(0) = 0 Then totalUserOnline = 0 Else totalUserOnline = isOn(0) End if %> <%'if session("Dat_Exp")= True Then ' Response.Redirect ("signup.asp?mess=Your Account Is Expired Please Upgrade Yourself&show=again") 'End if %>
a

OUR LINKS: