<%
If Session("logged") <> "1" Then
Response.Redirect("login.asp")
End If
if Request("wearedoing") = "changePassword" then
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Properties("Data Source") = Server.Mappath("../db/db1.mdb")
conn.Open
username = "admin"
password = Request.form("password")
encodePwd = EnCrypt(password, "password")
sql = "Update Users set password='" & encodePwd & "' where userid='" & username & "'"
conn.execute (sql)
conn.close
end if
%>
Change Password
<% if Request("wearedoing") = "changePassword" then %>
Thank you the password was changed
<% else %>
<% end if %>