<%
id = request.querystring("id")
if request.form = "" then
if id <> "" then
sqltext = "SELECT * FROM Pword WHERE PID = " & id
rs.Open sqltext, Conn
Username = trim(rs("Username"))
Password = trim(rs("Password"))
rs.close
end if
else
Message = "Error Processing request"
if id <> "" then
'Check for existing username
sqltext = "SELECT * FROM Pword WHERE PID <> " & id & " AND Username = '" & request.form("username") & "'"
' response.write sqltext
' sqltext = "SELECT * FROM Pword"
rs.Open sqltext, Conn
if not rs.bof then
Message = "You have changed the username to one that exists. No work done."
else
rs.close
sqltext = "SELECT * FROM Pword WHERE PID = " & id
rs.Open sqltext, Conn,2,2
rs("Username") = request.form("username")
rs("Password") = request.form("password")
rs.Update
rs.close
response.redirect "index.asp"
end if
end if
end if
Conn.close
%>
Morris Pickering & Sanner - Admin
Morris Pickering & Sanner - Password Creator
<%= Message %>