Free User Registration Form
This script lest you to build a registration form for your clients. A visitor can create a username and password filling this form. All usernames and passwords stored in a MS-Access database.
</font></font><font face="courier new, courier, mono">Register Form</font><font color="#0000c0"><font face="courier new, courier, mono">
function formsubmit(myform)
{myform.submit()}
function checkform() {var message = "";
if (document.newForm.uname.value.length == 0) {
message = message + "- Username field is Null.\\n\\n";}
if (document.newForm.pword.value.length == 0) {
message = message + "- Password field is Null.\\n\\n";}
if (document.newForm.uname.value.length < 4) {
message = message + "- Username length can not be shorter than 5 characters.\\n\\n";}
if (document.newForm.pword.value.length < 4) {
message = message + "- Password length can not be shorter than 5 characters.\\n\\n";}
if ( message.length > 0 ) { // is there an error message?
message = "Please, fill the form completely :\\n\\n" + message ;
alert( message );
return false; }}
<%
if request.form("func") = "Register" then
Dim uname, pword, strCon, con, rec
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("users.mdb")
uname = trim(request.form("uname"))
pword = trim(request.form("pword"))
Set con = server.createobject("adodb.connection")
con.open strCon
set rec = con.execute("SELECT uname from userlist where uname LIKE '"& uname &"';")
if rec.eof then
con.execute("INSERT INTO userlist (uname, pword) VALUES ('"& uname &"', '"& pword &"');")
if err.
response.write "Your account created !"
else
response.write "Username already in use, Please Choose Another !"
end if
rec.close
set rec = nothing
con.close
set con = nothing
else
%>
"POST" action="register.asp" name="newForm" onsubmit="return checkform()">
"1" cellpadding="0">
"50%"> Username :
"50%"> "text" name="uname" size="15">
"50%"> Password :
"50%"> "password" name="pword" size="10">
"submit" value="Register" name="func">
<%end if%>
Comments:
Only members can write comments.Please, login / register to write comment.
