Notice: A session had already been started - ignoring session_start() in /home/findyourfatecom/public_html/dating/includes/left.php on line 3
<% 'check the userid Dim strPackageID, strPackageName if session("IsFYFMember") <> true then if not session("IsMemberLoggedIn") then session("redir") = "viewprofile.php?pid="&request("pid")&"&pmode=own":response.Redirect "login.php" end if if cint(session("userid"))=cint(request.QueryString("pid"))then Response.Redirect "myprofile.php" end if if session("redir") <> "" then session("redir") = "" 'showprofile function if request.QueryString("Mode")= "showprofile" then fyf() set rs=server.CreateObject("Adodb.recordset") Rs.open "Select showprofile from Tbl_Profiles where User_ID_FK ="&Session("UserID"),Cn,3,2 if rs.eof <> true then if request("chkshowprofile") = "1" then Rs("showprofile")=true else Rs("showprofile")=false end if Rs.Update response.Redirect "viewprofile.php?pid="&request("pid") end if end if if request.QueryString("pid")<>"" then set rs2= server.CreateObject("adodb.recordset") rs2.open "select * from Tbl_Profiles where User_ID_FK="&request.QueryString("pid"),cn,3,2 if rs2.eof <> true then Isshowprofile=Rs2.fields("showprofile") end if end if Function SafeLayout(strArg) 'this code will make the description safe so that it wont affect the layout... dim spccnt,icut,strSDesc,strSDesc1 icut = 1 spccnt = 1 strSDesc = strArg strSDesc1 = "" if trim(strSDesc)<>"" then 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 end if SafeLayout = strSDesc1 End Function
Home Home
Matching is not made in heaven but in www.findyourfate.com



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


  
<%topmenus() <%if cstr(session("userid"))=cstr(request("pid")) then fnsubmenu("profile") <% if request("pid") <> "" then id1 = request("pid") session("id1")= request("pid") set rsss=server.createobject("adodb.recordset") rsss.Open "select * from tbl_profiles where User_ID_FK ="&id1&"", cn,3,2 do until rsss.eof b=rsss("views") if b<>0 then a=b+1 cn.execute("UPDATE tbl_profiles SET views="&a&" WHERE User_ID_FK =" & id1 & "") else a=1 cn.execute("UPDATE tbl_profiles SET views="&a&" WHERE User_ID_FK =" & id1 & "") end if rsss.movenext loop rsss.close set rs6=server.createobject("adodb.recordset") rs6.Open "select * from Tbl_lookingforme ", cn,3,2 rs6.addnew rs6("user_id_fk")=session("userid") rs6("Username")=session("username") rs6("lookingid")=request("pid") rs6.update rs6.close set rs= server.CreateObject("Adodb.recordset") rs.open "select tbl_user.*,tbl_profiles.*,tbl_preferences.* from tbl_user,tbl_profiles,tbl_preferences where tbl_user.User_ID_PK=tbl_profiles.User_ID_FK and tbl_preferences.Prefer_ID_PK=tbl_profiles.ZodiacSign and tbl_user.User_ID_PK="& id1,cn,3,1 if not (rs.bof or rs.eof) then showprofile = rs("showprofile") strusername=rs("UserName") strLoginName=rs("LoginName") if rs("city")<>"" then strAddress=rs("city") else strAddress=rs("country") end if 'strAddress= rs("Address") if rs("Gender")="M" then strgender = "Male" elseiF rs("Gender")="F" then strgender = "Female" else strgender = "" end if if Rs("Race")=0 then strRace="No Response" else strRace=Cn.execute("select PreferenceDesc from Tbl_Preferences where Prefer_ID_PK=" &Rs("Race")&"")(0) end if if Rs("HairColor")=0 then strHairColor="No Response" else strHairColor=Cn.execute("select PreferenceDesc from Tbl_Preferences where Prefer_ID_PK=" &Rs("HairColor")&"")(0) end if if Rs("EyeColor")=0 then strEyeColor="No Response" else strEyeColor=Cn.execute("select PreferenceDesc from Tbl_Preferences where Prefer_ID_PK="&Rs("EyeColor")&"")(0) end if if Rs("FigureAppearance")=0 then strFigureAppearance="No Response" else strFigureAppearance=Cn.execute("select PreferenceDesc from Tbl_Preferences where Prefer_ID_PK=" &Rs("FigureAppearance")&"")(0) end if if Rs("Smoke")=0 then strSmoke="No Response" else strSmoke=Cn.execute("select PreferenceDesc from Tbl_Preferences where Prefer_ID_PK=" &Rs("Smoke")&"")(0) end if if Rs("Drink")=0 then strDrink="No Response" else strDrink=Cn.execute("select PreferenceDesc from Tbl_Preferences where Prefer_ID_PK=" &Rs("Drink")&"")(0) end if if Rs("Fitness")=0 then strFitness="No Response" else strFitness=Cn.execute("select PreferenceDesc from Tbl_Preferences where Prefer_ID_PK=" &Rs("Fitness")&"")(0) end if if Rs("Education")=0 then strEducation="No Response" else strEducation=Cn.execute("select PreferenceDesc from Tbl_Preferences where Prefer_ID_PK=" &Rs("Education")&"")(0) end if if Rs("Religion")=0 then strReligion="No Response" else strReligion=Cn.execute("select PreferenceDesc from Tbl_Preferences where Prefer_ID_PK=" &Rs("Religion")&"")(0) end if if Rs("Occupation")=0 then strOccupation="No Response" else strOccupation=Cn.execute("select PreferenceDesc from Tbl_Preferences where Prefer_ID_PK=" &Rs("Occupation")&"")(0) end if if Rs("ZodiacSign")<>"" then strZodiacSign=Cn.execute("select PreferenceDesc from Tbl_Preferences where Prefer_ID_PK=" & Rs("ZodiacSign")&"")(0) end if if Rs("Children")=0 then strChildren="No Response" else strChildren=Cn.execute("select PreferenceDesc from Tbl_Preferences where Prefer_ID_PK=" &Rs("Children")&"")(0) end if dim strheight1 if Rs("Height") = "" then strheight= "" strheight1="" else strheight= (Rs("Height")mod 12) strheight1=int(Rs("Height")/12) end if strdate=split(cstr(Rs("DOB")),"/") if ubound(strdate)>0 then date1=strdate(1) & "/" & strdate(0) & "/" & strdate(2) strage= (cint(Year(now())) - cint(strdate(2))) end if strbriefdescr=rs("BriefDescription") strshortdescr=rs("ShortDescription") strpartnerdesc=rs("PartnerDescription") if (Cn.execute("select Count(*) from Tbl_UserPhotos where User_ID_FK="&Rs("User_ID_PK"))(0)) > 0 then strphoto= Cn.execute("select Photo from Tbl_UserPhotos where User_ID_FK="&Rs("User_ID_PK")&" order by Priority Asc")(0) strApproval1=Cn.execute("select Approval from Tbl_UserPhotos where User_ID_FK="&Rs("User_ID_PK")&" order by Priority Asc")(0) end if if (Cn.execute("select count(*) from Tbl_UserFlaggedProfiles where User_ID_FK=" &Rs("User_ID_PK")&"")(0)) > 0 then FavBlockUserID=Cn.execute("select FavBlockUser_ID_FK from Tbl_UserFlaggedProfiles where User_ID_FK=" &Rs("User_ID_PK")&"")(0) end if end if

<%if not (rs.BOF or rs.EOF) then <%if (Session("UserID") <> "" and Session("UserID")<>Rs("User_ID_PK")) or session("IsFYFMember") = true then <%end if <%end if <%if strLoginName <> session("UserName") then if session("IsFYFMember") <> false then if Session("UserID") <> "" then userMemberShipType=cstr("" & cn.execute("select MemberShipType from Tbl_user where User_ID_PK="&Session("UserID"))(0)) else userMemberShipType="F" end if end if MemberShipType=cstr("" & cn.execute("select MemberShipType from Tbl_user where User_ID_PK="&request("pid"))(0)) <%'if rs("Online") =true then%> <%'end if <%end if end if
">Add to Contacts  ">Add to Favorites ">Block this Profile <% if session("IsFYFMember")<>true then userMemberShipType=cn.execute("select MemberShipType from Tbl_user where User_ID_PK="&Session("UserID"))(0) MemberShipType=cn.execute("select MemberShipType from Tbl_user where User_ID_PK="&request("pid"))(0) if userMemberShipType <>"F" then strPackageID = cn.execute("select Package_ID_PK from Tbl_Packages where Package_ID_PK = (select Package_ID_FK from tbl_user where user_id_pk=" & cint(Session("Userid")) & ")")(0) strPackageName = cn.execute("select PackageName from Tbl_Packages where Package_ID_PK = (select Package_ID_FK from tbl_user where user_id_pk=" & cint(Session("Userid")) & ")")(0) if (strPackageID<>"50" or strPackageName<>"Gold Package") then%>  " class='link'>Block this Profile <%end if <%end if <%end if
<%end if rs11.movenext loop
<% if strphoto <> "" then if strApproval1 = "A" then " target="_blank">
 " target="_blank">Enlarge <%else " target="_self" style="text-decoration:underline;">Request Photo <%end if else " target="_self" style="text-decoration:underline;" >Request Photo <%end if
Name : <%=strusername%> <% ' for zodiac signs and name meanings set conn3= Server.CreateObject("adodb.connection") Conn3.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("..") & "\data\names.mdb;" 'Conn3.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\fyf\names.mdb;" set rsn=server.createobject("adodb.recordset") set rsn1=server.createobject("adodb.recordset") dim s1 s1 = split(trim(strusername)," ") dim j j = ubound(s1) rsn.Open "select id,name,origin from babynames where trim(name) = '"& trim(s1(0)) & "' or trim(name) = '" &trim( strusername) & "' order by name asc",conn3,3,2 if rsn.RecordCount <> 0 then While Not rsn.EOF
Name Meaning : " target="_blank" style=" text-decoration :underline; "><%= s1(0)%>  ( <%= rsn("origin")%> Origin ) <% rsn.MoveNext Wend else rsn1.Open "select name,id,origin from babynames where trim(name) = '"& trim(s1(j)) & "' or trim(name) = '" &trim (strusername) & "' order by name asc",conn3,3,2 While Not rsn1.EOF
Name Meaning : " target="_blank" style=" text-decoration :underline; "><%= s1(j)%>   ( <%= rsn1("origin")%> Origin ) <% rsn1.MoveNext Wend end if
Login Name : <%=strLoginName%><%'=Session("username")%>

<% set rs11=server.createobject("adodb.recordset") rs11.Open "select * from tbl_profiles a ,tbl_user b where a.user_id_fk= b.user_id_pk and b.username='"&strusername&"' and active=true and b.user_id_pk = "&trim(rs("user_id_pk"))&"", Cn,3,2 do until rs11.eof if rs11("dob")<>"" then <% intDay =day( rs11("dob")) intMonth = month(rs11("dob")) if (intDay >= 20 and intMonth = 1) or (intDay <= 18 and intMonth = 2) then sign11 = "Aquarius" <% elseif (intDay >= 19 and intMonth = 2) or (intDay <= 20 and intMonth = 3) then sign11 = "Pisces" <% elseif (intDay >= 21 and intMonth = 3) or (intDay <= 19 and intMonth = 4) then sign11 = "Aries" <% elseif (intDay >= 20 and intMonth = 4) or (intDay <= 20 and intMonth = 5) then sign11 = "Taurus" <% elseif (intDay >= 21 and intMonth = 5) or (intDay <= 21 and intMonth = 6) then sign11 = "Gemini" <% elseif (intDay >= 22 and intMonth = 6) or (intDay <= 22 and intMonth = 7) then sign11 = "Cancer" <% elseif (intDay >= 23 and intMonth = 7) or (intDay <= 22 and intMonth = 8) then sign11 = "Leo" <% elseif (intDay >= 23 and intMonth = 8) or (intDay <= 22 and intMonth = 9) then sign11 = "Virgo" <% Elseif (intDay >= 23 and intMonth = 9) or (intDay <= 22 and intMonth = 10) then sign11= "Libra" <% elseif (intDay >= 23 and intMonth = 10) or (intDay <= 21 and intMonth = 11) then sign11 = "Scorpio" <% elseif (intDay >= 22 and intMonth = 11) or (intDay <= 21 and intMonth = 12) then sign11 = "Sagittarius" <% elseif (intDay >= 22 and intMonth = 12) or (intDay <= 19 and intMonth = 1) then sign11 = "Capricorn" <% end if

My Zodiac Sign : <%=sign11%>
My Destiny Number: <%if rs11("dob")<>"" then m1=month(rs11("dob")) m2=len(m1) if m2=1 then t1=left(m1,1) t2=0 else t1=left(m1,2) t2=0 end if d1=day(rs11("dob")) d2=len(d1) if d2=1 then t3=left(d1,1) t4=0 else t3=left(d1,1) t4=right(d1,1) end if y1=year(rs11("dob")) t5=left(y1,1) t6=mid(y1,2,1) t7=mid(y1,3,1) t8=right(y1,1) total=t1+t2+t3+t4+t5+t6+t7+t8 d=(total mod 9) if d=0 then d=9 end if <%response.write d <% end if
<%=sign11%> Horoscope
<%=SafeLayout(strshortdescr)%>
<% session("pid")=request.QueryString("pid")
Location <%=SafeLayout(strAddress)%> Height <%if strheight1<> 0 then <%=strheight1%>' <%=strheight%>" <%end if %>
Age <%=strage%> Gender <%=strgender%>
Race <%=strRace%> Eyes <%=strEyeColor%>
Hair <%=strHairColor%> Figure <%=strFigureAppearance%>
Smoker <%=strSmoke%> Drinker <%=strDrink%>
Fitness <%=strFitness%> Education <%=strEducation%>
Zodiac Sign <%=strZodiacSign%> Children <%=strChildren%>
Religion <%=strReligion%> Occupation <%=strOccupation%>
About Me
<%=SafeLayout(strbriefdescr)%>
About My Partner
<%=SafeLayout(strpartnerdesc)%>
Activities I Enjoy
<% if session("IsFYFMember")<> true then if Rs("Activities")="" or Rs("Activities")=Null then strActivities="No Response" response.Write(strActivities) elseif Rs("Activities")<> "" then strActivities1=rs("Activities") strActivities12=split(strActivities1,",") for i=0 to UBound(strActivities12) strActivities1=Cn.execute("select PreferenceDesc from Tbl_Preferences where Prefer_ID_PK=" &strActivities12(i))(0) strActivities=strActivities & strActivities1 & ", " next response.Write left(strActivities,len(strActivities)-2) end if end if
Sports I Watch or Play
<% if session("IsFYFMember")<> true then if Rs("Sports")="" or Rs("Sports")=Null then strSports="No Response" response.Write(strSports) elseif Rs("Sports")<> "" then strSports1=rs("Sports") strSports12=split(strSports1,",") for i=0 to UBound(strSports12) strSports1=Cn.execute("select PreferenceDesc from Tbl_Preferences where Prefer_ID_PK=" &strSports12(i))(0) strSports=strSports & strSports1 & ", " next response.Write left(strSports,len(strSports)-2) end if end if
Entertainment I Enjoy
<% if session("IsFYFMember")<> true then if Rs("Entertainment")="" or Rs("Entertainment")=Null then strEntertainment="No Response" response.Write(strEntertainment) elseif Rs("Entertainment")<> "" then strEntertainment1=rs("Entertainment") strEntertainment12=split(strEntertainment1,",") for i=0 to UBound(strEntertainment12) strEntertainment1=Cn.execute("select PreferenceDesc from Tbl_Preferences where Prefer_ID_PK=" &strEntertainment12(i))(0) strEntertainment=strEntertainment & strEntertainment1 & ", " next response.Write left(strEntertainment,len(strEntertainment)-2) end if end if
Hobbies and Interests
<% if session("IsFYFMember")<> true then if Rs("Hobbies")="" or Rs("Hobbies")=Null then strHobbies = "No Response" response.Write strHobbies elseif Rs("Hobbies")<> "" then strHobbies1=rs("Hobbies") strHobbies12=split(strHobbies1,",") for i=0 to UBound(strHobbies12) strHobbies1 = Cn.execute("select PreferenceDesc from Tbl_Preferences where Prefer_ID_PK=" &strHobbies12(i))(0) strHobbies = strHobbies & strHobbies1 & ", " next response.Write left(strHobbies,len(strHobbies)-2) end if end if

<% if (Session("UserID") <> "" and Session("UserID")<>Rs("User_ID_PK")) or session("IsFYFMember") = true then <% if session("IsFYFMember") <> true then userMemberShipType=cn.execute("select MemberShipType from Tbl_user where User_ID_PK="&Session("UserID"))(0) end if MemberShipType=cn.execute("select MemberShipType from Tbl_user where User_ID_PK="&request("pid"))(0) <%'if rs("Online") =true then%> <%'end if <%'end if
">Add to Contacts  ">Add to Favorites ">Block this Profile <% if session("IsFYFMember")<>true then userMemberShipType=cn.execute("select MemberShipType from Tbl_user where User_ID_PK="&Session("UserID"))(0) MemberShipType=cn.execute("select MemberShipType from Tbl_user where User_ID_PK="&request("pid"))(0) if userMemberShipType <>"F" then strPackageID = cn.execute("select Package_ID_PK from Tbl_Packages where Package_ID_PK = (select Package_ID_FK from tbl_user where user_id_pk=" & cint(Session("Userid")) & ")")(0) strPackageName = cn.execute("select PackageName from Tbl_Packages where Package_ID_PK = (select Package_ID_FK from tbl_user where user_id_pk=" & cint(Session("Userid")) & ")")(0) if (strPackageID<>"50" or strPackageName<>"Gold Package") then%>  " class='link'>Block this Profile <%end if end if end if
<%elseif request("pid")<>"" then
<%end if