<%@ LANGUAGE = VBSCRIPT %>
<%
if trim(request("opt")) = "1" then
'check email pwd
dim pwd,email,sql
pwd=MakeNuM(trim(request("pwd")))
email=MakeNuM(trim(request("email")))
sql="SELECT id FROM tblPlayers WHERE email='"&email&"' AND pwd='"&pwd&"' AND id="& session("id")
Rs.Open sql,Conn,3,3
if Rs.eof then
msg="Incorrect email or password"
else
conn.execute "DELETE FROM tblPlayers WHERE id="& session("id")
msg="You have been unsubscribed"
session("id")=""
end if
Rs.close
end if
%>
The Official USA Web Site for the Joint Promotion of Portugal and Spain
