Warning: session_start(): Cannot send session cookie - headers already sent by (output started at /home/findyourfatecom/public_html/dating/memblocked.php:34) in /home/findyourfatecom/public_html/dating/includes/left.php on line 3

Warning: session_start(): Cannot send session cache limiter - headers already sent (output started at /home/findyourfatecom/public_html/dating/memblocked.php:34) in /home/findyourfatecom/public_html/dating/includes/left.php on line 3
<% Dim RS Select case request("Mode") case "add" fyf() if cn.execute("select count(*) from Tbl_UserFlaggedProfiles where User_ID_FK=" & Session("UserID") & " and FavBlockUser_ID_FK=" & request.QueryString("blkid") & " and FavBlockFlag='B'")(0)=0 then cn.execute "insert into Tbl_UserFlaggedProfiles(User_ID_FK,FavBlockUser_ID_FK,FavBlockFlag) values(" & Session("UserID") & "," & request.QueryString("blkid") & ",'B')" session("Msg") = "Profile added to Blocked list" else session("Msg") = "Profile already present in Blocked list" end if case "del" fyf() cn.execute "delete from Tbl_UserFlaggedProfiles where FavBlockUser_ID_FK=" & request.QueryString("blkid") & " and User_ID_FK=" & Session("UserID") & " and FavBlockFlag='B'" session("Msg") = "Profile removed from Blocked list" End Select 'Gets the "Blocked Profiles" list of current user... Function GetUserBlocked set RS = server.CreateObject("ADODB.Recordset") rs.Open "SELECT u.User_ID_PK, u.username, p.ShortDescription,p.gender,p.logintime,p.zodiacsign,p.online, p.DOB,u.active,p.closedprofile FROM tbl_user AS u, tbl_profiles AS p WHERE u.User_ID_PK=p.User_ID_FK and u.active=true and u.user_id_pk in (SELECT FavBlockUser_ID_FK FROM Tbl_UserFlaggedProfiles where User_ID_FK=" & Session("UserID") & " and FavBlockFlag='B') and u.user_id_pk=p.User_ID_FK",cn,3,1 set RS1 = server.CreateObject("ADODB.Recordset") strRet = "" Dim currentpage currentpage = trim(request("goPage")) if currentpage = "" then currentpage = 1 if not (rs.EOF or rs.BOF) then Rs.PageSize = 10 TotalPages = Rs.PageCount iCnt = 0 Rs.AbsolutePage = Clng(0 & currentpage) 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("gopage")="" or request.QueryString("gopage")="1" then response.write "Results 1 of " & TotalPages &" Pages " else response.write "Results "&request.QueryString("gopage")&" of " & TotalPages &" Pages" end if %>
<% while not rs.EOF and iCnttrue or rs("closedprofile")=true then 'this code is commented and left intentionally... else 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_PK") & " order by priority",cn,3,1 if not (rs1.BOF or rs1.EOF) then if rs1(0) = "" then strRet = strRet & "" & chr(13) else strRet = strRet & "" & chr(13) end if else strRet = strRet & "" & chr(13) end if rs1.Close strRet = strRet & "" & chr(13) if rs("ShortDescription")<>"" then strRet = strRet & "" & chr(13) else strRet = strRet & "" & chr(13) end if 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 rs("Online") then strRet = strRet & "" strRet = strRet & "" strRet = strRet & "" & chr(13) strRet = strRet & "" & chr(13) strRet = strRet & "

" strRet = strRet & "  Enlarge

Request Photo
" & rs("username") & "
" & SafeLayout(rs("ShortDescription")) & "
" & trim(rs("ShortDescription")) & "
" & PreferenceDesc& ", Male, " & year(now) - year(rs("DOB")) & " years
" & PreferenceDesc & ", Female, " & year(now) - year(rs("DOB")) & " years Online
Recent Visit : " & formatdatetime(rs("logintime"),2)&"
" & chr(13) strRet = strRet & "

" & chr(13) end if Rs.MoveNext wend strRet = strRet & "" & chr(13) strRet = strRet & "" & chr(13) strRet = strRet & "
" &chr(13) if endpage >=TotalPages then endpage = TotalPages end if for rCount = 1 to TotalPages if (request("gopage")="" and rcount=1) or cint(request("gopage"))=rCount then strRet = strRet & " "& rCount &" " else strRet = strRet & " "&rCount&"" end if next strRet = strRet & "
" & chr(13) else GetUserBlocked = "You have not added any profile in your Blocked List" exit function end if GetUserBlocked = strRet rs.Close set rs = nothing End Function Function SafeLayout(strArg) 'this code will make the descriptions safe so that it wont affect the layout... dim spccnt,icut,strSDesc,strSDesc1 icut = 1 spccnt = 1 strSDesc = strArg 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 SafeLayout = strSDesc1 End Function
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
Blocked Profiles

Here you can find the list of profiles you have blocked. Blocked profiles can't contact you and you wont be listed in their searches.