<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="adovbs.asp"-->
<!--#include file="SRPconfig.txt"-->
<%
val = 0
pass = 0

'NAME of the e-mail field is stored in this string variable
emailField = "emailadd"

'All fields are acted as required except those the NAME of which is in this string variable
exceptions = Array("emailadd")

dim errorMessage, badItem, inputArray(), message_body : badItem=-1
redim inputArray(50,2)

'Get all what is submitted
IF request.Form.Count > 0 THEN
  execute("const numberOfFields =" & request.Form.Count)
  execute("redim inputArray("&numberOfFields&",2)")
  FOR i = 1 TO request.Form.Count
    inputArray(i,1) = request.Form.Key(i)
    inputArray(i,2) = request.Form.Item(i)
  NEXT
  validate
ELSEIF request.QueryString.Count > 0 THEN
  execute("const numberOfFields =" & request.QueryString.Count)
  execute("redim inputArray("&numberOfFields&",2)")
  FOR i = 1 TO request.QueryString.Count
    inputArray(i,1) = request.QueryString.Key(i)
    inputArray(i,2) = request.QueryString.Item(i)
  NEXT
  validate
END IF

SUB validate
	'Check for empty fields
	FOR i = 1 TO numberOfFields
		isException = False
		IF inputArray(i,2)="" THEN
			FOR j = 0 to UBound(exceptions)
				IF inputArray(i,1) = exceptions(j) THEN isException = TRUE
			NEXT
			IF NOT isException THEN
				badItem = i
				errorMessage = "At least one of the required fields is left empty."
				EXIT SUB
			END IF
		END IF
		isException = False
		val = 1
	NEXT
	
	'Check email address for basic errors
	IF inputArray(8,2) <> "" THEN
		FOR i = 1 TO numberOfFields
			IF emailField = inputArray(i,1) THEN
				validationResult = validateEmail(inputArray(i,2))
				IF validationResult <> "" THEN
					errorMessage = validationResult
					badItem = i
					EXIT SUB
				END IF
			END IF
		NEXT
	END IF
	
	'Check password field 
	IF inputArray(10,2) <> inputArray(11,2) THEN
		badItem = 99
		errorMessage = "Passwords do not match. Please try again."
	ELSE
		pass = 1
	END IF
END SUB

FUNCTION validateEmail(strAddress)
  IF InStr(strAddress,"@") < 2 THEN
    validateEmail = "Email address must contain ""@"" sign."
  ELSEIF InStr(Right(strAddress,Len(strAddress)-InStr(strAddress,"@")),".") < 2 OR InStr(Right(strAddress,Len(strAddress)-InStr(strAddress,"@")),".") = Len(strAddress)-InStr(strAddress,"@") THEN
    validateEmail = "Email address must contain ""."" sign."
  END IF
END FUNCTION

IF val = 1 and pass = 1 Then
	' Write user info to database
	set dbConn=server.createobject("adodb.connection") 
	ConnString = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/SummerReading.mdb") & ";uid=;pw=;" 
	 
	dbConn.Open ConnString 
	' A connection to the db. 
	
	dim rs 
	set rs = Server.CreateObject("ADODB.RecordSet") 
	rs.cursorlocation = adUseServer 
	rs.CursorType = adOpenKeySet 
	rs.LockType = adLockOptimistic
	
	rs.open "tblSummerReading_Users",dbconn, , ,adCmdTable
	
	IF rs.EOF = TRUE THEN
		dup_user = "N"
	ELSE
		Do WHILE NOT rs.EOF
			IF TRIM(LCASE(inputArray(9,2))) = TRIM(LCASE(rs("UserName"))) THEN
				badItem = 99
				errorMessage = "User name already in use. Please chooses another user name."
				dup_user = "Y"
				EXIT DO	
			ELSE
				dup_user = "N"		
			END IF
			rs.MoveNext
		LOOP 
	END IF
	IF dup_user = "N" THEN
	rs.addnew 
	
	rs("FirstName") = TRIM(request.form("first_name"))
	rs("LastName") = TRIM(request.form("last_name")) 
	rs("Age") = request.form("age") 
	rs("SchoolName") = request.form("school_name")
	rs("grade") = request.form("grade")
	rs("goal") = request.form("goal")
	IF request.form("phone") <> ""  THEN
		rs("Phone") = TRIM(request.form("phone"))
	END IF
	IF request.form("emailadd") <> ""  THEN
		rs("EmailAdd") = TRIM(request.form("emailadd"))
	END IF
	rs("UserName") = TRIM(request.form("user_name"))
	rs("Password2") = TRIM(request.form("password2"))	
	
	rs.update	
	
	rs.close 
	set rs = nothing 
	dbconn.close 
	set dbconn = nothing
	
	Session("user_name") = TRIM(request.form("user_name"))
	Session("user_pass2") = TRIM(request.form("password2"))
	Session("new_user") = "Y"
	
	Response.Redirect "SummerReading_login.asp"
	END IF
END IF

randomize
Dim randomnum
Dim pictname

randomnum = int(rnd*6) + 1
Select Case randomnum
Case 1
	pictname = "SRP-1.gif"
Case 2
	pictname = "SRP-2.gif"
Case 3
	pictname = "SRP-3.gif"
Case 4
	pictname = "SRP-4.gif"
Case 5
	pictname = "SRP-5.gif"
Case 6
	pictname = "SRP-6.gif"
End Select

set dbConn_school=server.createobject("adodb.connection") 
ConnString_school = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("db/SummerReading.mdb") & ";uid=;pw=;" 
	 
dbConn_school.Open ConnString_school 
	
dim rs_school 
set rs_school = Server.CreateObject("ADODB.RecordSet") 
rs_school.cursorlocation = adUseServer 
rs_school.CursorType = adOpenKeySet 
rs_school.LockType = adLockOptimistic

qry_school = "SELECT * FROM tblConfigSchools ORDER BY SchoolName"
	
rs_school.open qry_school,dbconn_school
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<head>
<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title><%= kids_program_title %> sign up</title>
<LINK REL=StyleSheet HREF="css/SRP.css">
<style>
  .errorMessage {color : Black;}
  .errorItem {background : #F99;}
</style>

</head>
<body class="kids_signup_body">
<CENTER>
<BR><BR>
<table border="0" width="800px" cellpadding="0" cellspacing="0">
<tr>
	<td VALIGN="middle" width="30%" height="100%">		
		<IMG src="images/<%= pictname %>">
	</td>
	
	<td width="70%" align="left" VALIGN="top">

	  <!-- Main body content starts here -->
		<BR><BR><BR>
		<form action="SummerReading_signup.asp" method="POST" title="Summer Reading Program Online sign up" name="SignUp">
		<table border="0" width="100%">
		<TR VALIGN="top">
			<TD colspan="2"><BR>
				<SPAN class="kids_signup_title"><%= kids_program_title %> sign up</SPAN>
				<HR class="kids">
			</TD>
		</TR>
		<% IF errorMessage<>"" THEN %>
		<TR VALIGN="top" align="center">
			<TD colspan="2" bgcolor="#FFFF00">			
					<span class="errorMessage"><%=errorMessage%></span>		
			</TD>
		</TR>
		<% END IF %>
		<TR>
			<TD valign="top">
				first name<BR>
				<input type="text" name="first_name" size="30" maxlength="50" value="<%= inputArray(1,2) %>" <% IF badItem = 1 THEN response.write "class=""errorItem""" %>>
			</td>
			<td valign="top">
				last name<BR>
				<input type="text" name="last_name" size="30" maxlength="50" value="<%= inputArray(2,2) %>" <% IF badItem = 2 THEN response.write "class=""errorItem""" %>>
			</td>
		</tr>
		<tr>
			<td>
				age<BR>
				<SELECT name="age" size="1">
					 <OPTION value="<%= inputArray(3,2) %>" <% IF badItem = 3 THEN response.write "class=""errorItem""" %>><%= inputArray(3,2) %>
					 <OPTION value="5">5	
					 <OPTION value="6">6
					 <OPTION value="7">7
					 <OPTION value="8">8
					 <OPTION value="9">9
					 <OPTION value="10">10
					 <OPTION value="11">11
					 <OPTION value="12">12
					 <OPTION value="13">13							 
				</SELECT>
			</td>
			<td>
				school<BR>
				<SELECT name="school_name" size="1">
					 <OPTION value="<%= inputArray(4,2) %>" <% IF badItem = 4 THEN response.write "class=""errorItem""" %>><%= inputArray(4,2) %>
					 <% DO WHILE NOT rs_school.EOF %>
					 	<OPTION value="<%= rs_school("SchoolName") %>"><%= rs_school("SchoolName") %>
					 <% 
					 	rs_school.MoveNext
						IF rs_school.EOF = TRUE THEN EXIT DO
						LOOP %>
					 <OPTION value="home school">home school
					 <OPTION value="other school">other school									 
				</SELECT>
			</td>
		</tr>
		<tr>
			<td>
			<% IF use_goals = "Y" THEN %>
				<% IF goal_type = "books" THEN %>
				goal (number of books)<BR>
				<SELECT name="goal" size="1">
					 <OPTION value="<%= inputArray(5,2) %>" <% IF badItem = 5 THEN response.write "class=""errorItem""" %>><%= inputArray(5,2) %>
					 <OPTION value="1">1
					 <OPTION value="2">2
					 <OPTION value="3">3			 
					 <OPTION value="4">4
					 <OPTION value="5">5
					 <OPTION value="6">6
					 <OPTION value="7">7
					 <OPTION value="8">8
					 <OPTION value="9">9
					 <OPTION value="10">10
					 <OPTION value="11">11
					 <OPTION value="12">12
					 <OPTION value="13">13
					 <OPTION value="14">14
					 <OPTION value="15">15
					 <OPTION value="16">16
					 <OPTION value="17">17
					 <OPTION value="18">18
					 <OPTION value="19">19
					 <OPTION value="20">20+				 				 
				</SELECT>
				<% ELSE %>
				goal (number of <%= goal_type %>)<BR>
				<SELECT name="goal" size="1">
					 <OPTION value="<%= inputArray(5,2) %>" <% IF badItem = 5 THEN response.write "class=""errorItem""" %>><%= inputArray(5,2) %>
					<% FOR goal = min_goal to max_goal STEP step_goal %>
					 <OPTION value="<%= goal %>"><%= goal %>
					 <% NEXT %>
				<% END IF %>
			<% ELSE %>
				<input name="goal" type="hidden" value="-1" >
			<% END IF %>
			</td>
			<td>
				grade (this coming fall)<BR>
				<SELECT name="grade" size="1">
					 <OPTION value="<%= inputArray(6,2) %>" <% IF badItem = 6 THEN response.write "class=""errorItem""" %>><%= inputArray(6,2) %>
					 <OPTION value="0">K
					 <OPTION value="1">1
					 <OPTION value="2">2			 
					 <OPTION value="3">3
					 <OPTION value="4">4
					 <OPTION value="5">5									 
				</SELECT>
			</td>
		</tr>
		<tr>
			<td>
				phone number<BR>
				<input type="text" name="phone" size="15" maxlength="15" value="<%= inputArray(7,2) %>" <% IF badItem = 7 THEN response.write "class=""errorItem""" %>>				
			</td>
			<td>
				e-mail address (optional)<BR>
				<input type="text" name="emailadd" size="25" maxlength="50" value="<%= inputArray(8,2) %>" <% IF badItem = 8 THEN response.write "class=""errorItem""" %>>
			</td>
		</tr>
		<tr>
			<td colspan="2">
				user name<BR>
				<input type="text" name="user_name" size="15" maxlength="15" value="<%= inputArray(9,2) %>" <% IF badItem = 9 THEN response.write "class=""errorItem""" %>>
			</td>
		</tr>
		<tr>
			<td>
				password<BR>
				<input name="password" type="password" size="15" maxlength="15" <% IF badItem = 10 THEN response.write "class=""errorItem""" %>>
			</td>
			<td>
				password again<BR>
				<input name="password2" type="password" size="15" maxlength="15" <% IF badItem = 11 THEN response.write "class=""errorItem""" %>>
			</td>
		</tr>
		<tr>
			<td>
				<input name="Submit" type="submit" value="sign up">
			</td>
		</tr>
		</table>
		</form>
		<BR>
	<!-- Main body content ends here -->

</td></tr>
	<!-- footer row -->
<tr><td colspan="2"><!--#include file="inc/footer.asp"--></td></tr>
</table>
<!-- End Main Body -->
</CENTER>
<%
rs_school.close 
set rs_school = nothing 
dbconn_school.close 
set dbconn_school = nothing
%>
</body>
</html>