% if request.form = "" then %>
Morris Pickering & Sanner - Admin
Morris Pickering & Sanner - Password Creator
<% else %>
<%
'Check for existing username
sqltext = "Select * From Pword WHERE Username = '" & request.form("username") & "'"
rs.Open sqltext, Conn
if not rs.bof then
response.write "The username you have entered already exists, please press back and enter a different name."
else
rs.close
sqltext = "Select * From Pword"
rs.Open sqltext, Conn,2,2
rs.AddNew
rs("Username") = request.form("username")
rs("Password") = request.form("password")
rs.Update
response.redirect "index.asp"
end if
rs.close
Conn.close
end if
%>