<%
dim ErrorMessage
if Request.Form("cancel")="Cancel" then Response.Redirect("guidelist.asp")
if Request.Form("newmail")="" then Response.Redirect("changemail.asp")
if instr(1,Request.Form("newmail"),"@")=0 or instr(1,Request.Form("newmail"),".")=0 then ErrorMessage="You have entered an invalid e-mail address."
if ErrorMessage="" then
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "c:\Inetpub\database\users.mdb"
sql="UPDATE users SET email='" & Request.Form("newmail") & "' WHERE email='" & Session("email") & "'"
conn.Execute sql
conn.close
Session("action")="Changed E-mail"
Response.Redirect("mailchanged.asp")
end if
%>
Underground Guides E-mail Change
E-mail Change failed
Your e-mail change failed for the following reason: