<%@LANGUAGE="VBSCRIPT"%> Add New User

<% if request.Form("new") = "true" then dim Randchar(36) randchar(0) = "1" randchar(1) = "2" randchar(2) = "3" randchar(3) = "4" randchar(4) = "5" randchar(5) = "6" randchar(6) = "7" randchar(7) = "8" randchar(8) = "9" randchar(9) = "a" randchar(10) = "b" randchar(11) = "c" randchar(12) = "d" randchar(13) = "e" randchar(14) = "f" randchar(15) = "g" randchar(16) = "h" randchar(17) = "j" randchar(18) = "k" randchar(19) = "l" randchar(20) = "m" randchar(21) = "n" randchar(22) = "p" randchar(23) = "q" randchar(24) = "r" randchar(25) = "s" ' here is the end of random password generator setup Randomize() password = "" for l = 1 to 8 password = password + randchar(Int(25 * Rnd())) 'Get a random number or charater and add to string next Query = "select * FROM password" Set RS = Server.CreateObject("ADODB.Recordset") RS.Open Query, test_connector, 3, 3 RS.addnew RS("user_name") = request.form("first_name") & " " & request.form("last_name") RS("email") = request.form("email") RS("password") = password RS("admin") = "guest" RS("first_name") = request.form("first_name") RS("last_name") = request.form("last_name") RS("address1") = request.form("address1") RS("address2") = request.form("address2") RS("city") = request.form("city") RS("prov") = request.form("prov") RS("zip") = request.form("zip") RS("country") = request.form("country") RS("test") = request.form("test") RS("test_left") = test_take RS.update response.write "

Email support turned off. Password set to: " & password & "


" else %>

First Name *
Last Name *
Address
City
Province/Territory/State
Postal Code/Zip
Country
Email Address *
Choose Test *
Disabled in Free Test

* Required to process password
<% end if %>
www.000webhost.com