<%if session("username")<>"" then popup() --> <% dim strOnlyOnline, strOnlyPhotos, i, j, strPageNos dim icut 'if not session("IsMemberLoggedIn") then session("redir")="qsearch.php":response.Redirect "login.php" if session("redir") <> "" then session("redir") = "" 'Finds Profiles based on the parameters selected by the user... Function GetSearchResults set RS = Server.CreateObject("ADODB.Recordset") set RS1 = server.CreateObject("ADODB.Recordset") strGender = request.Form("rdoGender") rs.open "select * from tbl_profiles where state ='' and country='USA'",cn,3,2 if rs.eof <>true then psize=10 Rs.PageSize =psize TotalPages = Rs.PageCount iCnt = 0 if request.QueryString("page") <> "" then pageNo=request.QueryString("page") else pageNo=1 end if if rs.recordcount <= 10 then rowcnt=rs.recordcount else rowcnt=rs.recordcount-((pageno*rs.pagesize)-rs.pagesize) end if If Request("page") = "" or Clng(Request("page")) > TotalPages then Rs.AbsolutePage = 1 Else if Clng(0 & Request("page")) > 1 then rCnt = rCnt - (Rs.PageSize * (Clng(0 & Request("page"))-1)) End If Rs.AbsolutePage = Clng(0 & Request("page")) End If prot = "http" https = lcase(request.ServerVariables("HTTPS")) if https <> "off" then prot = "https" domainname = Request.ServerVariables("SERVER_NAME") filename = Request.ServerVariables("SCRIPT_NAME") querystring = Request.ServerVariables("QUERY_STRING") 'response.write prot & "://" & domainname & filename & "?" & querystring %>
<% if request.QueryString("page")="" or request.QueryString("page")="1" then response.write "Results 1 of " & TotalPages &" Pages " else response.write "Results "&request.QueryString("page")&" of " & TotalPages &" Pages" end if %>
<% while not rs.eof and iCnt < Rs.PageSize strRet = strRet & "" & chr(13) strRet = strRet & "" & chr(13) strRet = strRet & "" & chr(13) strRet = strRet & "" & chr(13) strRet = strRet & "
" & chr(13) strRet = strRet & "" & chr(13) strRet = strRet & "" & chr(13) 'photos rs1.Open "SELECT Photo, Priority FROM tbl_userphotos WHERE user_id_fk=" & rs("User_ID_fK") & " and priority=1 and approval='A'",cn,3,1 if not (rs1.BOF or rs1.EOF) then strRet = strRet & "" & chr(13) else strRet = strRet & "" & chr(13) end if rs1.Close set RSs2 = server.CreateObject("ADODB.Recordset") rss2.Open "SELECT * from tbl_user WHERE user_id_pk=" & rs("User_ID_fK") & " ",cn,3,1 if not (rss2.BOF or rss2.EOF) then strRet = strRet & "" & chr(13) end if strRet = strRet & "" & chr(13) set RSs3 = server.CreateObject("ADODB.Recordset") rss3.Open "SELECT * from Tbl_Preferences WHERE Prefer_ID_PK=" & rs("zodiacsign") & " ",cn,3,1 if not (rss3.BOF or rss3.EOF) then PreferenceDesc=rss3("PreferenceDesc") if rs("gender")="M" then strRet = strRet & "" else strRet = strRet & "" end if end if if session("userid")<> "" then set RS2 = Server.CreateObject("ADODB.Recordset") RS2.open "select * from Tbl_UserContacts where User_ID_FK="& session("UserID")& " and ContactUser_ID_FK="&rs("User_ID_fK"),cn,3,2 if RS2.eof <>true then strRet = strRet & "" & chr(13) end if RS2.close end if strRet = strRet & "" if rs("Online") then strRet = strRet & "" if session("IsMemberLoggedIn") = true or session("Userid")<>"" then strRet = strRet & "" & chr(13) else strRet = strRet & "" & chr(13) end if strRet = strRet & "" & chr(13) strRet = strRet & "

" strRet = strRet & "  Enlarge

Request Photo
" & rss2("username") & "
" if rs("ShortDescription")<>"" then dim spccnt,icut,strSDesc,strSDesc1 icut = 1 spccnt = 1 strSDesc = rs("ShortDescription") strSDesc1 = "" for icut = 1 to len(strSDesc) if mid(strSDesc,icut,1)=" " then if spccnt=33 then strSDesc1 = strSDesc1 & "
" spccnt = 1 else spccnt = 1 end if else if spccnt=33 then strSDesc1 = strSDesc1 & "
" 'strSDesc1 = mid(strSDesc,1,icut) & " " & mid(strSDesc,icut+1) spccnt = 0 end if end if strSDesc1 = strSDesc1 & mid(strSDesc,icut,1) spccnt = spccnt + 1 next strRet = strRet & strSDesc1 else strRet = strRet & "

" &trim(rs("ShortDescription")) & "

" end if strRet = strRet & "
" & PreferenceDesc& ", Male, " & year(now) - year(rs("DOB")) & " years
" & PreferenceDesc & ", Female, " & year(now) - year(rs("DOB")) & " years Profile Already contacted
Recent Visit : " & formatdatetime(rs("logintime"),2)&"OnlineView Profile
View Profile
" & chr(13) strRet = strRet & "

" & chr(13) rs.MoveNext iCnt = iCnt + 1 rowcnt=rowcnt-1 wend response.write strret response.write "
" intCurrentPage = Request.Querystring("page") IF intCurrentPage = "" THEN intCurrentPage = 1 intNumberOfPages = int(RS.RecordCount \ 10) IF RS.RecordCount MOD 10<> 0 THEN intNumberOfPages = intNumberOfPages + 1 if request("pos")="" or request("pos")="0" then if intNumberOfPages>10 then no=request.QueryString("page") if request.QueryString("page")="" or request.QueryString("page")=1 or request.QueryString("page")<=10 then FOR intDisplayPage = 1 TO 10 IF Cint(intDisplayPage) = Cint(intCurrentPage) THEN Response.Write " " & intDisplayPage & " " ELSE Response.Write " " & intDisplayPage &" " END IF NEXT Response.Write " >> " &" Next" &" " elseif request.QueryString("page")>=10 then Response.Write " << " &" Previous " &" " j=1 FOR i =no-9 TO no IF Cint(i) = Cint(intCurrentPage) THEN Response.Write " " & i & " " ELSE Response.Write " " & i &" " END IF j=j+1 NEXT Response.Write " >> " &" Next" &" " else TotalPages = rs.PageCount end if else FOR intDisplayPage = 1 TO intNumberOfPages IF Cint(intDisplayPage) = Cint(intCurrentPage) THEN Response.Write " " & intDisplayPage & " " ELSE Response.Write " " & intDisplayPage &" " END IF NEXT end if else no= request.QueryString("page") if request("pos")="1" then k=request("pos") Response.Write "<< " &"Previous"&"  " FOR i =no TO no+9 IF Cint(i) = Cint(request.QueryString("page")) THEN j=k Response.Write " " & i & " " ELSE k=k+1 Response.Write " " & i &" " END IF NEXT Response.Write " >> " &" Next" &" " end if if request("pos")="2" then Response.Write " << " &"Previous"&"  " k=1 FOR i =no-1 TO no+8 IF Cint(i) = Cint(request.QueryString("page")) THEN j=k Response.Write " " & i & " " ELSE Response.Write " " & i &" " END IF k=k+1 NEXT Response.Write " >> " &" Next" &" " end if if request("pos")="3" then Response.Write " << "&"Previous"&"  " k=1 FOR i =no-2 TO no+7 IF Cint(i) = Cint(request.QueryString("page")) THEN j=k Response.Write " " & i & " " ELSE Response.Write " " & i &" " END IF k=k+1 NEXT Response.Write " >> " &" Next" &" " end if if request("pos")="4" then Response.Write " <<  Previous   " k=1 FOR i =no-3 TO no+6 IF Cint(i) = Cint(request.QueryString("page")) THEN j=k Response.Write " " & i & " " ELSE Response.Write " " & i &" " END IF k=k+1 NEXT Response.Write " >> " &" Next" &" " end if if request("pos")="5" then Response.Write " << " &"Previous" &"  " k=1 FOR i =no-4 TO no+5 IF Cint(i) = Cint(request.QueryString("page")) THEN j=k Response.Write " " & i & " " k1=k ELSE Response.Write " " & i &" " END IF k=k+1 NEXT Response.Write " << " &" Next" &" " end if if request("pos")="6" then Response.Write " << " &" Previous" &"  " k=1 FOR i =no-5 TO no+4 IF Cint(i) = Cint(request.QueryString("page")) THEN j=k Response.Write " " & i & " " ELSE Response.Write " " & i &" " END IF k=k+1 NEXT Response.Write " >> "&"Next"&" " end if if request("pos")="7" then Response.Write " << " &" Previous" &"  " k=1 FOR i =no-6 TO no+3 IF Cint(i) = Cint(request.QueryString("page")) THEN j=k Response.Write " " & i & " " ELSE Response.Write " " & i &" " END IF k=k+1 NEXT Response.Write " >> " &" Next" &" " end if if request("pos")="8" then Response.Write " << " &" Previous" &"  " k=1 FOR i =no-7 TO no+2 IF Cint(i) = Cint(request.QueryString("page")) THEN j=k Response.Write " " & i & " " ELSE Response.Write " " & i &" " END IF k=k+1 NEXT Response.Write " >> " &" Next" &" " end if if request("pos")="9" then Response.Write " << " &" Previous" &"  " k=1 FOR i =no-8 TO no+1 IF Cint(i) = Cint(request.QueryString("page")) THEN j=k Response.Write " " & i& " " ELSE Response.Write " " & i &" " END IF k=k+1 NEXT Response.Write " >> " &" Next" &" " end if if request("pos")="10" then Response.Write " << " &" Previous" &"  " k=1 FOR i =no-9 TO no IF Cint(i) = Cint(request.QueryString("page")) THEN j=k Response.Write " " & i & " " ELSE Response.Write " " & i &" " END IF k=k+1 NEXT Response.Write " >> Nex" end if end if response.write"
" end if set rs1 = nothing set rs = nothing End Function "" then response.write " onload='init();'"%>>
Home Home
World leaders in Astrology now into Match making



Kindly submit yours and your partners personal details. Your Compatibility Report will be sent to you within 5 days from submission.


Welcome :   Favorite  

Profile Change Membership
Search by Member ID Quick Search Advanced Search

Members List by USA States

    Quick Search

Search for   Female               Male 
Age
Age to
Location   
Show Profiles with Photos
Show members who are online