<%if request.QueryString("mode")="unsub" then set RS2=server.CreateObject("ADODB.Recordset") rs2.Open "select * from Tbl_profiles",cn,3,1 do until rs2.eof cn.execute "update tbl_profiles set sendautomail=false where user_id_fk=" & session("userid") rs2.movenext loop 'Rs.Update response.Redirect("memberhome.php") 'rs2.Close end if%>

	<%=LeftSide()%>    <%=GetRandomSuccessStory()%> <%=fnheader%> <%if Session("msg")<>"" then response.Write Session("msg"): Session("msg")=""%>     If do not wish to receive two way matching profiles you can turn it off. <%if request.QueryString("id")<>"" then set RS1=server.CreateObject("ADODB.Recordset") rs1.Open "select * from Tbl_user where user_id_pk=" &request("id") & "",CN,3,1 session("userid")=request("id") if rs1.eof <> true then Session("UserID")= rs1("User_ID_PK") Session("UserName") = rs1("LoginName") session("IsFYFMember") = true Session("IsMemberLoggedIn") = true session("email") = rs1("email") session("IsProfileUpdated") = true session("IsProfileUpdated1") = false end if %> User Name <%response.write Session("UserName") %> Email <%response.write Session("email") %> Please Check here "> <% set RS11=server.CreateObject("ADODB.Recordset") rs11.Open "select * from Tbl_profiles where user_id_fk=" &session("userid") & " and sendautomail=true",CN,3,1 if rs11.eof <> true then %> <%else %> <%end if%>   <%end if%>