<%''option explicit%> <%Select case request("Mode") case "add" ' if cn.execute("select count(*) from Tbl_UserContacts where User_ID_FK=" & Session("UserID") & " and FavBlockUser_ID_FK=" & request.QueryString("contid"))(0)=0 then if cn.execute("select count(*) from Tbl_UserContacts where User_ID_FK=" & Session("UserID") & " and ContactUser_ID_FK=" & request.QueryString("contid"))(0)=0 then cn.execute "insert into Tbl_UserContacts(User_ID_FK,ContactUser_ID_FK) values(" & Session("UserID") & "," & request.QueryString("contid") & ")" session("Msg") = "Profile added to Contacts" else session("Msg") = "Profile already present in Contacts" end if 'case "del" ' cn.execute "delete from Tbl_UserContacts where ContactUser_ID_FK=" & request.QueryString("contid") & " and User_ID_FK=" & Session("UserID"),cnt ' session("Msg") = "Profile removed from Contacts" End Select Function GetUserContacts set RS = server.CreateObject("ADODB.Recordset") 'rs.Open "SELECT u.User_ID_PK,u.active,u.username,p.online,p.ShortDescription,p.dob FROM tbl_user u,tbl_profiles p WHERE u.User_ID_PK=p.User_ID_FK and user_id_pk in (select User_ID_FK from Tbl_UserContacts where ContactUser_ID_FK="&session("userid")&")",cn,3,1 rs.Open "SELECT u.User_ID_PK,u.active,u.username,p.online,p.gender,p.logintime,p.ShortDescription,p.age FROM tbl_user u,tbl_profiles p WHERE u.User_ID_PK=p.User_ID_FK and u.active=true and u.user_id_pk in (select User_ID_FK from Tbl_UserFlaggedProfiles where FavBlockUser_ID_FK="&session("userid")&" AND FavBlockFlag='F')",cn,3,1 ' rs.Open "SELECT u.User_ID_PK, u.username, p.ShortDescription, p.DOB, u.active FROM tbl_user AS u, tbl_profiles AS p WHERE u.user_id_pk in (select ContactUser_ID_FK from Tbl_UserContacts where User_ID_FK=" & Session("UserID") & ") 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) Do While Not(Rs.EOF) and iCnt" & 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) strRet = strRet & "One of the Profiles in Contacts previously present here is not currently active." & chr(13) strRet = strRet & "

" & chr(13) strRet = strRet & "" & chr(13) strRet = strRet & "" & chr(13) strRet = strRet & "
" & chr(13) iCnt = iCnt + 1 rCnt = rCnt - 1 rs.MoveNext 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) 'photo 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 set RS2 = server.CreateObject("ADODB.Recordset") Rs2.Open "SELECT Photo, Priority FROM tbl_userphotos WHERE user_id_fk=" & rs("User_ID_PK") & " order by priority",cn,3,1 'RS2.open "select * from Tbl_Profiles where online=yes and user_id_fk="&rs("User_ID_PK"),cn,3,1 strRet = strRet & "" & chr(13) if rs("ShortDescription")<>"" then strRet = strRet & "" & chr(13) else strRet = strRet & "" & chr(13) end if 'strRet = strRet & "" 'edited by mahalingam strRet = strRet & "" 'Ends 'strRet = strRet & "" else 'strRet = strRet & "" 'edited by mahalingam strRet = strRet & "" 'Ends 'strRet = strRet & "" end if strRet = strRet & "" strRet = strRet & "" if rs("Online") then strRet = strRet & "" strRet = strRet & "" & chr(13) strRet = strRet & "" & chr(13) strRet = strRet & "" & chr(13) 'if(not Rs2.eof) then ' strRet = strRet & "" & chr(13) strRet = strRet & "" & chr(13) strRet = strRet & " " strRet = strRet & "  Enlarge " & rs("username") & " " & SafeLayout(rs("ShortDescription")) & " " & trim(rs("ShortDescription")) & " " & year(now) - year(rs("DOB")) & " years" if rs("gender")="M" then ' strRet = strRet & " Male, " & year(now) - year(rs("DOB")) & " years Male, " & rs("age") & " years " & rs("PreferenceDesc") & ", Male, " & year(now) - year(rs("DOB")) & " years Female, " & year(now) - year(rs("DOB")) & " years Female, " & rs("age") & " years " & rs("PreferenceDesc") & ", Female, " & year(now) - year(rs("DOB")) & " years Recent Visit : " & formatdatetime(rs("logintime"),2)&" Remove From List Online View Profile online" & chr(13) ' else ' strRet = strRet & " offline" & chr(13) ' end if strRet = strRet & " " & chr(13) strRet = strRet & "

" & chr(13) rs.MoveNext iCnt = iCnt + 1 end if loop else GetUserContacts = "There are no profiles looking for you" exit function end if strRet = strRet &" " strRet = strRet &" " strRet = strRet &" " strRet = strRet &" " strRet = strRet &"

" For rCount = 1 to TotalPages strRet = strRet &"  " & rCount & "  " Next strRet = strRet &"

" GetUserContacts = 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 %>

<%=LeftSide()%>    <%=GetRandomSuccessStory()%> <%=fnheader%> Members looking for me <% if session("Msg") <> "" then %> <%end if %> <%=links()%> <%=fnsubmenu("Contacts")%> <%=session("Msg")%><%session("Msg")=""%> Here you can find the list of profiles looking for you. <%=GetUserContacts%> <% if session("userid")<>"" or session("username") <>"" then%> <%end if%>