<% 'Response.write (Session("UserID")) If (Session("UserID"))="" Then Response.Redirect "../login.asp?error=1&page_url=pfinder/showprofile.asp?id="&request("id") End If %> <% Dim objConn Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\") & "\db\umcdb.mdb") 'objConn.Open("dsn=tantraco-tantra") %> Search Results
<% Dim page , t1, t2 t1 = 0 t2 = 0 If Request("page") = "" Then page = 1 Else page = Request("page") End If %>
[an error occurred while processing this directive]


<% on error resume next aSessions = dOnlineUsers.Keys for iUser = 0 to dOnlineUsers.Count - 1 sKey = aSessions(iUser) sUserInfo = dOnlineUsers.Item(sKey) aUserInfo = split(sUserInfo, "<|>") sUserName = aUserInfo(0) sLastActionTime = aUserInfo(1) sLastPageViewed = aUserInfo(2) if sUserInfo <> "" then iUsrCount = iUsrCount + 1 if Mid(susername,1,5)<>"Guest" then %> <% 'response.write "" %> <% end if end if next %>

Whos Online

When

<%=sUserName%>   (View profile) <%=sLastActionTime%>
" & sLastPageViewed & "

 

 

 

 

 

 

 

ARTICLES |  FAQ | HEAL | TESTIMONIALS | SUCCESS STORIES

 VISION | TELL YOUR FRIENDS | RATE US
 

©Copyright 2003 TantraConnection.com

Best viewed at 1024 x 800 pixels.
Contact Webmaster