<%
dim ErrorMessage
if Request.Form("cancel")="Cancel" then Response.Redirect("guidelist.asp")
if Request.Form("oldpass")="" or Request.Form("newpass")="" or Request.Form("confirm")="" then Response.Redirect("changepass.asp")
if Request.Form("oldpass")<>Session("password") then ErrorMessage="You entered your old password incorrectly."
if Request.Form("newpass")<>Request.Form("confirm") then ErrorMessage="Your new password and the confirmation password don't match."
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 pass_word='" & Request.Form("newpass") & "' WHERE email='" & Session("email") & "'"
conn.Execute sql
conn.close
Session("action")="Changed Password"
Response.Redirect("passchanged.asp")
end if
%>
Underground Guides Password Change
Password Change
Your password change failed for the following reason: