Indian Matrimonials

<% Dim oConx,TotalMembers Set conn = Server.CreateObject("ADODB.Connection") set rs=server.createobject("adodb.recordset") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(".") & "\data\matrimonial_db.mdb;" set rs1 =server.CreateObject("adodb.recordset") rs1.open "select * from tbl_user WHERE User_ID_PK=" &request("sno") & "",conn,3,2 if rs1.eof<>true then name=rs1("username") Session("UserName") = rs1("LoginName") Session("UserID")= rs1("User_ID_PK") end if %> Indian Matrimonials - Marriage

<%=LeftSide()%>

<%=GetRandomSuccessStory()%>

<%=fnheader%>

<% if request.QueryString("mode")<>"verify" or flag=1 then%>

Dear <%=trim(name)%>
<%if request.QueryString("mode")<>"verify" or flag=1 then%>
As per your request to un-subscribe from receiving Birthday greetings by email kindly login to your account to deactivate the setting.

<%end if%>

<%if request.QueryString("mode")="verify" then set rs=server.CreateObject("adodb.recordset") set rs2 =server.CreateObject("adodb.recordset") UserName = Request("txtUserName") Password = Request("txtPassword") rs.open "select * from tbl_user Where loginname='" & UserName & "' and Password='" & Password & "' ",conn,3,2 if rs.eof<>true then set rs2=conn.execute("UPDATE tbl_user set subscribe=false WHERE User_ID_PK=" &rs("User_ID_PK") & "") %> Your account has been
** Sucessfully deactivated from receiving egreetings **

Here after you will not get egreetings email from us.
If at any point of time you wish to activate this facility to recive egreetings from us, you can activate it by changing the settings in your profile.

Regards
team @ findyourfate.com
www.findyourfate.com

<% else%> <% flag=1 response.write("

"&" ") response.write " "&"Incorrect Username (or) Password" &"" response.write("") response.write "
" response.write " Please Verify Your Username (or) Password" response.write "

" 'response.Redirect "greetings-unsubscribe.php?mode=model&sno="&request("sno")&"" end if end if%>

<%end if%>