will this work? [Archive] - CodingForums.com

rayray123105

04-03-2005, 05:14 AM

Will this work????
<%
'Save entered username and password
Username = Request.Form("txtUsername")
Password = Request.Form("txtPassword")
Level = Request.Form("txtLevel")
Emailaddress = Request.Form("txtEmailaddress")
Highestskill = Request.Form("txtHighestskill")
Highestskilllevel = Request.Form("txtHighestskilllevel")
Openpositions = Request.Form("txtOpenpositions")

'Check if username and password are entered
if Username = "" then Response.redirect("login.asp?login=createnamefailed")
if Password = "" then Response.Redirect("login.asp?login=createpassfailed")

'Build connection
set conn = server.CreateObject ("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("userspass.mdb")
set rs = server.CreateObject ("ADODB.Recordset")
'Open all records
rs.Open "SELECT * FROM userlist", conn, 3, 3

'Check if username doesn't already exist
do while not rs.EOF
if rs("username")=Username then
set rs=nothing
set conn=nothing
Response.Redirect("login.asp?login=createnamefailed")
end if
rs.MoveNext
loop

'Add a record
rs.AddNew
'Put username and password in record
rs("username")=Username
rs("password")=Password
rs("level")=Level
rs("emailaddress")=Emailaddress
rs("Highestskill")=Highestskill
rs("Highestskilllevel")=Highestskilllevel
rs("Openpositions")=openpositions
'Save record
rs.Update

set rs=nothing
set conn=nothing
Response.Redirect("login.asp?login=creatednew")
%>
<head>
<title>:.:.:Pykerlclan!:.:.:-Create account</title>
</head>
<body bgcolor="#6d8ga8">
<br><a href="http://christophercopley.tzo.com/default.html">Home!</a>
</Body>