Tantra Connection <%= Member("Email") %>

W E L C O M E <% Response.Write Member("FirstName") & " " & Member("LastName") %>
<% Dim GetMems ' get referrals info for the logged in user Set GetMems = Server.CreateObject("ADODB.Recordset") GetMems.Open "Select count(*) From tblRefDetails where member_id=" & session("userid"), objConn, 3, 3 Set GetMems1 = Server.CreateObject("ADODB.Recordset") GetMems1.Open "Select * From tblRefAmount where member_id=" & session("userid"), objConn, 3, 3 if getmems.eof then else%> You have referred <% if getmems.eof then response.write("0") else response.write(getmems.fields(0)) end if %> members.
Your balance is $ <%if getmems1.eof then response.write("0") else response.write(getmems1("amount")) end if end if dob=member("dobmm") & "/" dob=dob & member("dobdd") & "/" dob=dob & member("dobyy") ' get age dispdate=DateDiff("yyyy",dob,date) set msearch = Server.CreateObject("ADODB.Recordset") ' select recent members that match the logged in user's profile ' need to get preferred age range and orientation sql="Select * from Members where id<>" & session("userid") & " And " & "country='" & Member("country") & "' And Image<>'' order by JoinDate desc" msearch.open sql,ObjConn,adOpenStatic,adLockReadOnly %>
Upgrade your membership
Here are recent members

<% if not msearch.eof then ' display a table of matches while not msearch.eof if counter<>8 then counter=0 ' get the birthday of a member dob1=msearch("dobmm") & "/" dob1=dob1 & msearch("dobdd") & "/" dob1=dob1 & msearch("dobyy") dispdate1=DateDiff("yyyy",dob1,date) ' compare age to age of logged in user ' should use users preferred age range if dispdate1>=(dispdate-9) And dispdate1<=(dispdate+9) then username=Replace(msearch("Email"),"@","") username=Replace(username,".","") %> <% counter=counter+1 end if end if end if msearch.movenext wend end if %>
" > <% srcpath=Server.MapPath("/img/members") & "/" &username&"/" & msearch("Image") set fso=Server.CreateObject("Scripting.FileSystemObject") If fso.FileExists( srcpath ) = true Then %> " width="100" height="80" border="0"> <%=msearch("nickname")%>
Age:<%=dispdate1%> <%=msearch("gender")%>
Location:<%=msearch("City")%>, <%=msearch("state")%> <%=msearch("Country")%>
Date Joined:<%=msearch("JoinDate")%>

<% msearch.close set msearch=nothing %>

Your profile is shown as below

<% If Member("Image") <> "" Then dim foldername foldername=Replace(Member("Email"),"@","") foldername=Replace(foldername,".","") end if %> <% if member("Image")<>"" then%>

<%Response.write("

") else Response.write("There is no photo related to this profile") end if %>

<%=member("nickname")%>
Age:<%=dispdate%> <%=member("gender")%>
Location:<%=member("City")%>, <%=member("state")%>, <%=member("Country")%>
Email:<%=member("email")%> <%=member("phone")%>
Joined:<%=member("joindate")%>
Profile:<%=member("profile")%>
Edit my profile