<%Option Explicit
if session("administrator") <> "true" then
Response.Redirect "login.asp"
end if
Dim msg
msg = ""
if Request.Form("new_password") <> "" then
if Request.Form("new_password") = Request.Form("verify_password") then
' change password
Dim conn, sql
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "PRINTAND-NODA_LOGIN"
sql = "UPDATE logins SET logins.[password] = '" & Request.Form("new_password") & "'"
conn.Execute sql
conn.Close
Set conn = Nothing
msg = "Password successfully updated!"
else
msg = "Error: The second password you entered does not match the first password you entered!"
end if
end if
%>