<%@ LANGUAGE = VBSCRIPT %>
<%if session("id")="" then response.redirect "Login.asp"%>
<%
'response.write session("id")
if trim(request("upd")) = "1" and trim(request("email")) <> "" then
dim setupd
'check for duplicate email
sql="SELECT email FROM tblPlayers WHERE email='"&trim(request("email"))&"' AND id <> "&session("id")&""
'response.write sql
'response.end
Rs.Open sql,Conn,3,3
if not rs.eof then
msg="Email already exixts"
else
if trim(request("SendQ")) = "1" then
setupd=setupd&",SendQ=1"
elseif trim(request("SendQ")) = "" then
setupd=setupd&",SendQ=0"
end if
if trim(request("NewsLetter")) = "1" then
setupd=setupd&",NewsLetter=1"
elseif trim(request("NewsLetter")) = "" then
setupd=setupd&",NewsLetter=0"
end if
sql="UPDATE tblPlayers SET email='"&MakeNum(trim(request("email")))&"'"&setupd&" WHERE id="& session("id")
'response.write sql
conn.execute sql
msg="Email information updated successfully"
end if
rs.close
end if
%>
The Official USA Web Site for the Joint Promotion of Portugal and Spain
