| |
<%
dim msearch, sql, sql1, sql2, StrPer, StrMem, MemSearch, CasualSearch, Search, t1, t2
flag=0
set msearch = Server.CreateObject("ADODB.Recordset")
set MemSearch = Server.CreateObject("ADODB.Recordset")
set CasualSearch = Server.CreateObject("ADODB.Recordset")
set Search = Server.CreateObject("ADODB.Recordset")
sql2="Select * from Members where id=" & Session("userid")
Search.Open sql2, objConn, 3, 3
If not Search.eof then
sql1="Select * from Members where state='" & Search("state") & "' and country='" & Search("country") & "' "
MemSearch.Open sql1, objConn, 3, 3
If not MemSearch.eof then
while not MemSearch.eof
If MemSearch("ID") <> Session("userid") then
sql = sql & "ID=" & MemSearch("ID") & " or "
End If
MemSearch.MoveNext
wend
End If
End If
Search.Close
sql2="Select * from tblCasualProfile where Member_id=" & Session("userid")
Search.Open sql2, objConn, 3, 3
If not Search.eof then
sql2="Select * from tblCasualProfile where Orient='" & Search("Orient") & "' and seek_person='" & Search("seek_person") & "' and they_are='" & Search("they_are") & "' "
CasualSearch.Open sql2, objConn, 3, 3
If not CasualSearch.eof then
while not CasualSearch.eof
If CasualSearch("Member_ID") <> Session("userid") then
sql = sql & "ID=" & CasualSearch("Member_ID") & " or "
End If
CasualSearch.MoveNext
wend
End If
CasualSearch.Close
End If
If sql <> "" Then
sql = Left(sql, Len(sql)-4)
Else
sql = "ID=0"
End If
msearch.PageSize = 5
msearch.CursorLocation = adUseClient
msearch.Open "Select * From Members where ID<>" & Session("userid") & " and " & sql,objConn,adOpenStatic,adLockReadOnly
msearch.CacheSize = msearch.PageSize
if not msearch.eof then
flag=1
dim dispdate,dob
%>
<% If Session("userid")<>"" then %>
<% End If %>
<%
msearch.AbsolutePage=CInt(page)
Dim records
records=0
while not msearch.eof and records < msearch.PageSize
dob=msearch("dobmm") & "/"
dob=dob & msearch("dobdd") & "/"
dob=dob & msearch("dobyy")
dispdate=DateDiff("yyyy",dob,date)
if dispdate >= CInt(dispdate -5) And dispdate <= CInt(dispdate +5)then
flag=1
%>
|
Nickname |
: |
">
<%=msearch("Nickname")%> |
|
|
">See my detailed profile |
<%
if msearch("Image")<>"" then
%>
<%
dim user
user=Replace(msearch("Email"),"@","")
user=Replace(user,".","")
srcpath=Server.MapPath("/img/members") & "/" &user&"/" & msearch("Image")
set fso=Server.CreateObject("Scripting.FileSystemObject")
If fso.FileExists( srcpath ) = true Then
%>
">
 " width="100" height="80" border="0">">
|
<%else%>
<%
end if
else
%>
|
<%
end if
%>
|
|
Age |
: |
<%
response.write(dispdate)%> |
|
Location |
: |
<%=msearch("State")%>, <%=msearch("Country")%> |
<%
t2=0
flag=2
else
t2=1
end if
msearch.movenext
records=records+1
Wend
%>
<%
if msearch.PageCount>1 and flag=1 then
%>
|
<% if CInt(page)=msearch.PageCount then
else
%>
Next |
<%
end if
if page<>1 then
%>
Previous |
<%end if%>
Showing <%=page%>of <%=msearch.PageCount%> |
<%end if %>
<%else
t1=1
%>
<%
end if
msearch.close
set msearch=nothing
%>
<% if t1=1 or (t2=1 and flag<>2)then %>
Sorry! No Records Found!!!
Back
<% end if %>
|
|