<%Language=VBScript%>
<html>
<head>
<title> Password Checker</title>
<script language="Javascript" >
var nam1 = "<%=nam%>";
function ChkID(){
ID=BobForm.UserID.value;
if(ID != nam1){
alert('You must enter a User Name');
event.returnValue=false;
}
ID=BobForm.PhArea.value;
RegX=/\d/;
if (RegX.test(ID)!=true || ID.length !=3)
{
alert("Please input a valid Phone number!");
event.returnValue=false
}
//ID=BobForm.PhArea.value;
// RegX=/\d/;
///RegXA=(ID.search(RegX)!= -1);
//if (RegXA!=true || ID.length !=3)
//{
//alert("Please input a valid Phone number!");
//event.returnValue=false;
//BobForm.MainNum.focus()
//BobForm.MainNum.select()
//}
ID1=BobForm.PreNum.value;
RegX=/\d/;
RegXA=(ID1.search(RegX)!= -1);
if (RegXA!=true || ID1.length !=3)
{
alert("Please input a valid Phone number!");
event.returnValue=false;
BobForm.MainNum.focus()
BobForm.MainNum.select()
}
ID2=BobForm.MainNum.value;
RegX=/\d/;
RegXA=(ID2.search(RegX)!= -1);
if (RegXA!=true || ID2.length !=4)
{
alert("Please input a valid Phone number!");
event.returnValue=false;
BobForm.MainNum.focus()
BobForm.MainNum.select()
}
IDp=BobForm.phone.value;
RegXp=/\(?\d{3}\)?([-\/\.])\d{3}\1\d{4}/;
if (RegXp.test(IDp)!=true )
{
alert("Please input a valid Phone numbertest!");
event.returnValue=false;
}
Ag=BobForm.age.value;
if (Ag== '' || Ag <1 || Ag >101)
{
alert("Please input a valid Age");
event.returnValue=false;
BobForm.age.focus()
BobForm.age.select()
}
YR=BobForm.year.value;
if(YR==" "){
alert('You must enter a Year');
event.returnValue=false;
}
Mth=BobForm.month.value;
if(Mth==" "){
alert('You must enter a Month');
event.returnValue=false;
}
Dy=BobForm.day.value;
if(Dy==" "){
alert('You must enter a Day');
event.returnValue=false;
}
str=BobForm.Email.value;
filter=/^(\w+(?:\.\w+)*)@((?:\w+\.)*\w[\w-]{0,66})\.([a-z]{2,6}(?:\.[a-z]{2})?)$/i
if (filter.test(str)!=true || str=='')
{
alert("Please input a valid email address!");
event.returnValue=false;
BobForm.Email.focus()
BobForm.Email.select()
}
pass1=BobForm.Password.value;
pass2=BobForm.Password2.value;
if (pass1 != pass2 || pass1=='' || pass1.length <5){
alert (" You have entered invalid password or Entered passwords did not match ")
event.returnValue=false;
BobForm.Password.focus()
BobForm.Password.select()
}
}
</script>
</head>
<body>
<%
Dim MyArray(4,1),pass,nam,i,test
pass = request.form("Password")
nam = request.form("UserID")
MyArray(0,1) = "john"
MyArray(1,1) = "mark"
MyArray(2,1) = "jim"
MyArray(3,1) = "doug"
MyArray(4,1) = "tom"
MyArray(0,0) = "john12"
MyArray(1,0) = "mark12"
MyArray(2,0) = "jim123"
MyArray(3,0) = "doug12"
MyArray(4,0) = "thomas"
for i = 0 to 4
If MyArray(i,1) + MyArray(i,0) = nam + pass Then
test=true
Exit For
End If
next
If test = true then
response.write "You are successfull"
%>
<table align="center" border="1"><tr><td>
<table style="background: #037CBB" border="1" align="center"> <!--Tables to hold form-->
<form method="post" action="254Bob.asp" name="BobForm" onSubmit="ChkID();">
<tr>
<td >
User Name
</td>
<td colspan = "3">
<input type="text" name="UserID">
</td>
</tr>
<tr>
<td> <!--Form to accept users password and userID-->
Password
</td>
<td colspan = "3">
<input type="password" name="Password">
</td>
</tr>
<tr>
<td> <!--Form to accept users password and userID-->
Confirm Password
</td>
<td colspan = "3">
<input type="password" name="Password2">
</td>
</tr>
<tr>
<td> <!--Form to accept users password and userID-->
Phone number
</td>
<td>
<input type="text" size = "3" name="PhArea">
<input type="text"size = "3" name="PreNum">
<input type="text" size = "4" name="MainNum">
</td>
</tr>
<tr>
<td>Age</td>
<td><input type="text" size = "3" name="age">
</td>
</tr>
<tr>
<td>full phone</td>
<td><input type="text" size = "14" name="phone"> <!-- for entering full phone number-->
</td>
</tr>
<tr>
<td> <!--Form to accept users password and userID-->
Birthdate
</td>
<td>
Year<select size = "1" name="year">
<option selected value =" ">Year</option>
<%
counter = 1945
Do while counter < 2001
Response.write "<option value='" & counter & "'>" & counter & "</option>"
counter = counter + 1
Loop
%></select>
</td>
<td> Month </td>
<td><select name="month" size="1">
<option selected Value = " ">Month</option>
<option value = "January">Jan</option>
<option value = "Febuary">Feb</option>
<option value = "March">Mar</option>
<option value = "April">Apr</option>
<option value = "May">May</option>
<option value = "June">Jun</option> <!--populate month drop down list-->
<option value = "July">Jul</option>
<option value = "August">Aug</option>
<option value = "September">Sep</option>
<option value = "October">Oct</option>
<option value = "November">Nov</option>
<option value = "December">Dec</option>
</select></td>
<td>
Day <select size = "1" name = "day">
<option selected value =" ">Day</option>
<%counter = 1
Do while counter < 32
Response.write "<option value='" & counter & "'>" & counter & "</option>" '# populate options for day input
counter = counter + 1
Loop%>
</select>
</td>
</tr><tr>
</tr><tr><td>Email</td>
<td><input type="text" name="Email">
</td>
</tr><tr>
<td style="text-align: right;">
<input type="reset" value="Reset"><input type="submit" value="Submit">
</td>
</tr>
</form>
</table>
</td></tr></table>
<%
Else
response.write "You're unsuccessfull please try again"
response.addheader"Refresh","2;URL= logginBob1.htm"
end if
%>
</body>
</html>
"![[pc]](/data/assets/smilies/pc.gif "[pc] [pc]")
Be nice. It's only doing what you tell it to do.