<u>AddUser.asp</u>
<!--#include file = "adoObjects.asp"-->
<%
Dim rsUsers
Set rsUsers = Server.CreateObject("ADODB.Recordset")
rsUsers.Open "Person", objConn, adOpenForwardOnly, adLockOptimistic, adCmdTable
If Session("PersonID") <> "" Then 'currently logged-on user
rsUsers.Filter = "PersonID = '" & Session("PersonID") & "'"
Else 'new session
rsUsers.Filter = "UserID = '" & Request.Form("UserID") & "' " &_
"AND Passwd = '" & Request.Form("Passwd") & "' "
If rsUsers.EOF Then 'User not found
rsUsers.AddNew 'add a new record
' Else
' UserID and Password matched with DB records
' In this case we'll allow this to update user's personal details
End If
End If
rsUsers("PersonName") = Request.Form("PersonName")
rsUsers("UserID") = Request.Form("UserID")
rsUsers("Passwd") = Request.Form("Passwd")
rsUsers("SecretQns") = Request.Form("SecretQns")
rsUsers("SecretAns") = Request.Form("SecretAns")
rsUsers("School") = Request.Form("School")
rsUsers("Contact") = Request.Form("Contact")
rsUsers("Email") = Request.Form("Email")
rsUsers("LastLogin") = Now
rsUsers.Update 'Update DB
Dim strName, strvalue 'create session variables
For each strField in rsUsers.Fields
strName = strField.Name
strValue = strField.value
Session(strName) = strValue
Next
Session("blnValidUser") = True
'Declare that current user is validated
Response.Redirect "MenuForRegisteredUsers.asp"
%>
____________________________________________________
____________________________________________________
____________________________________________________
<u>Register.asp</u>
<!--#include file = "adoObjects.asp"-->
<%
Dim rsUsers, userid
Set rsUsers = Server.CreateObject("ADODB.Recordset")
rsUsers.Open "Person", objConn
userid = Session("UserID")
%>
<BASEFONT face="Comic Sans MS" COLOR="#000000">
<html>
<head>
<script language="JavaScript">
<!--
// function to validate form, checking error inputs by user
function VerifyData(f)
{
var i;
var contact_no = f.Contact.value;
var person_name = f.PersonName.value;
var email = f.Email.value;
var UserID = f.UserID.value;
var testid2;
var UserID3 = f.UserIDs.value
var passwd = f.Passwd.value;
var passwd2 = f.Passwd2.value;
var SecretQns;
var SecretAns = f.SecretAns.value;
var filter=/^([\w-]+(?:\.[\w-]+)*)@((?:[\w-]+\.)*\w[\w-]{0,66})\.([a-z]{2,6}(?:\.[a-z]{2})?)$/i;
for(i=0;i<f.UserID2.length;i++)
{
var testid = f.UserID2[i].value;
if (UserID3 == testid)
testid2 = 0;
else if(UserID == testid)
testid2 = 1;
}
if(person_name == "")
alert("Key in PersonName");
else if(isNaN(contact_no) == true || contact_no.charAt(0)!= 6 && contact_no.charAt(0)!= 9 )
alert("Key in Valid Contact");
else if(email== "")
alert("Key in Email");
else if (filter.test(email) != true)
alert("Please input a valid email address!");
else if(UserID == "")
alert("Key in UserID");
else if(passwd == "" || passwd2 == "")
alert("Key in Password");
else if(passwd != passwd2)
alert("Your passwords do not match - please re-enter");
else if(SecretAns == "")
alert("Please choose your secret question and enter your secret answer.");
else if(testid2 ==1)
alert("Sorry, This UserId had been used, Please enter another UserId");
else
{
var confirm2 = confirm ("Are you sure you wish to register?")
if (confirm2==true)
f.submit();
else
alert("please enter your correct particulars...")
}
}
-->
</script>
<title>Registration Page for staff</title>
<body bgcolor="#CCCCFF" background="../images/paper_b003.gif">
<center>
<%
If Request("Update") = "True" Then
Response.Write "<h1>E-BookStore<br></h1><h2>Update Staff User Registration</h2>"
Else
Response.Write "<h1>E-BookStore<br></h1><h2>New Staff User Registration</h2>"
End If
%>
</center>
<div align="center">
<p align="center">
<%
If Request("Update") = "True" Then
Response.Write "Please change your registration information as listed below<p>"
Else If Request("NotFound") = "True" Then
Response.Write "<I>We were unable to locate your information." & "Please take the time to register again</i><p>"
Else
Response.Write "(If you're already registered with us, " & " then click the 'Login' link below)<p>"
End If
End If
%>
<%Response.Write "In order to use these services,"%>
<br>
<%Response.Write "Please take a few minutes to complete the form below."%>
<br>
<%Response.Write "Once you have done that,you will have full access to the system"%>
<form name="frmUser" method="post" action="AddUser.asp">
<div align="center">
<table width="70%" border="0">
<tr>
<td width="22%">Staff Name :</td>
<td width="51%"><input name="PersonName" type="text" value="<%If Request("Update")="True" Then Response.Write (Session("PersonName")) Else Response.Write ""%>" size="40" maxlength="30"></td>
<td width="27%"> </td>
</tr>
<tr>
<td>School:</td>
<td><select name="School" value="<%If Request("Update")="True" Then Response.Write (Session("School")) Else Response.Write ""%>">
<option>Corp Dept</option>
<option>SBM</option>
<option>SEG(M)</option>
<option>SEG(E)</option>
<option>SHS</option>
<option>SCL</option>
<option>SIT</option>
<option>SDN</option>
<option>SIT(EI)</option>
<option>CPTC</option>
<option>SIT(Info Comm)</option>
</select> </td>
<td></td>
</tr>
<tr>
<td>Contact No.:</td>
<td><input name="Contact" type="text" value="<%If Request("Update")="True" Then Response.Write (Session("Contact")) Else Response.Write ""%>" size="8" maxlength="8">
(eg. 61234567 or 97654321)</td>
<td></td>
</tr>
<tr>
<td>Email Address:</td>
<td><input name="Email" type="text" value="<%If Request("Update")="True" Then Response.Write (Session("Email")) Else Response.Write ""%>" size="30" maxlength="30"></td>
<td></td>
</tr>
<tr>
<td>Login UserID:</td>
<td><input name="UserID" type="text" value="<%If Request("Update")="True" Then Response.Write (Session("UserID")) Else Response.Write ""%>" size="15" maxlength="12">
(Max 12 characters) #</td>
<td></td>
</tr>
<tr>
<td>Login Password:</td>
<td><input name="Passwd" type="password" value="" size="15" maxlength="10">
(Max 10 characters) #
<%Do until rsUsers.EOF%> <input type="hidden" name="UserID2" value="<%=rsUsers("UserID")%>"></td>
<%rsUsers.MoveNext%>
<%loop%>
<td><%If Request("Update")="True" Then Response.Write "Please re-enter your password" End If%></td>
<input type="hidden" name="UserIDs" value="<%=userid%>">
</tr>
<tr>
<td>Verify Password:</td>
<td><input name="Passwd2" type="password" size="15" maxlength="10"></td>
<td></td>
</tr>
<tr>
<td>Secret question:</td>
<td><select name:"SecretQns" value="<%If Request("Update")="True" Then Response.Write (Session("SecretQns")) Else Response.Write ""%>">
<option>Favourite pet's name?</option>
<option>Favourite movie?</option>
<option>Anniversary [dd/mm/yyyy]?</option>
<option>Spouse's name?</option>
<option>Child's name?</option>
<option>Favourite artiste?</option>
<option>Favourite sports?</option>
<option>Favourite food?</option>
<option>Where you stay?</option>
</select> </td>
<td></td>
</tr>
<tr>
<td>Secret Answer:</td>
<td><input name="SecretAns" type="text" value="<%If Request("Update")="True" Then Response.Write (Session("SecretAns")) Else Response.Write ""%>" size="20" maxlength=""></td>
<td></td>
</tr>
</table>
<br>
<table width="75%" border="0">
<tr>
<td height="31">* Please enter your secret question and answer so we can help you retrieve password. ,</td>
</tr>
<tr>
<td height="31">* Please give your mobile phone as contact no. ,</td>
</tr>
<tr>
<td>so that the bookstore staff can contact you for your collection.
</td>
</tr>
<tr>
<td>If you have changed your contact no. ,please remember to edit it.</td>
</tr>
<tr>
<td> <p align="center">Thank you.</p></td>
</tr>
</table>
<p align="center">
<input type="button" name="Submit" value="Submit Registration" onClick="VerifyData(frmUser)">
<input name="Reset" type="reset" id="Reset" value="Reset">
</p>
</div>
<p>
<p><img src="../images/lines_blue_078.gif" width="572" height="10"></p>
<div align="center">
<p><b><i><strong><em>You are now currently in the Registration Page</em></strong></i></b></p>
</div>
</form>
</div>
</body>
</html>