<%@ language="vbscript"%>
<% 
	Dim bNew
	Dim sTitle
	sTitle = "Enter User Information"
%>
<%
	Dim sUserID
	if Request("userid") = "" then
		sUserID = ""
	else
		sUserID = Request("userid")
	end if
%>
<!--#include file=DataStore.asp-->
<!--#include file=header.asp-->
<!--#include file=top.asp-->
<div align="center">
	<table width="600" cellspacing="0" cellpadding="0" border="0" bgcolor="#FFFFFF">
	<tr>
		<td width="420" valign="top">
			<img src="images/registration1.jpg" border="0" WIDTH="420" HEIGHT="60">
		</td>
		<td width="180" valign="top">
			<table width="100%" cellspacing="0" cellpadding="0" border="0">
				<tr>
					<td bgcolor="#003399">
						<table bgcolor="#003399" width="100%" cellspacing="2" cellpadding="2" border="0">
							<tr><td bgcolor="#6699FF" align="center"><a href="default.asp">Job Search</a></td></tr>
							<tr><td bgcolor="#6699FF" align="center"><a href="login.asp?menu=teacher">My Resume</a></td></tr>
							<tr><td bgcolor="#6699FF" align="center"><a href="login.asp?menu=school">For Schools</a></td></tr>
							<tr><td bgcolor="#6699FF" align="center"><a href="faqs.asp">FAQs</a></td></tr>
						</table>
					</td>
				</tr>
			</table>
		</td>
	</tr>
	</table>	
</div>

<script language="JavaScript">
<!--
function VerifyData()
{

var msgError="";

// Check for empty field - User ID
if (document.frmUser.txtUserID.value == "")
	{
		msgError = msgError + "\n*User ID is a required field."
	}

// Check for empty field - Name
if (document.frmUser.txtName.value == "")
	{
		msgError = msgError + "\n*Name is a required field."
	}

// Check for empty field - Password
if (document.frmUser.txtPassword.value == "")
	{
		msgError = msgError + "\n*Password is a required field."
	}


// Check for empty field - User Email
if (document.frmUser.txtEmail.value == "")
	{
		msgError = msgError + "\n*Email is a required field."
	}

 
// 
if (msgError != "")
	{
		alert("Please fill in all required fields...\n" + msgError)
		return false;
	}
else
	{
		if (document.frmUser.txtPassword.value != document.frmUser.txtRPassword.value)
			{
				alert ("Your passwords do not match - please reenter");
				return false;
			}
		else
			{
				return true;
			}
	}

}
//-->
</script>

<div align="center">
<table width="600" border="0">
<tr>
<td>
<!-- User Information -->

<% if request("notfound") = "1" then %>
<i>We were unable to locate your information. Please take the time to register again.</i></p>
<% end if %>

<% 
if request("update") = "1" then 
Dim rsUser ' Recordset object
Dim cnObj ' Connection object

'the user wants to update the information
bNew = False

'Create the connection object
set cnObj = Server.CreateObject("ADODB.Connection")

'and open it
cnObj.open sConnect

'Create the recordset
set rsUser = Server.CreateObject("ADODB.Recordset")

'and open the MANAGER table
rsUser.open "MANAGER", cnObj, 0, 3, adCmdTable

'Filter the recordset
rsUser.Filter = "managerid = '" & sUserID & "'"

%>

Please edit the information listed below and click on Save Changes<p>

<% 
else 
	bNew = True
%>
<br><b>In order to post jobs, you will need to be registered with our system. Please take a few minutes to enter the information below.</b><p>
<%end if%>

<p align="center">
<font color="red" face=arial><b>All Information Is Required</b></font>
<form name="frmUser" action="adduser.asp" method="post" onSubmit="return VerifyData()">
<table width="100%" border="0" cellspacing="0" cellpadding="5">
	<tr>
		<td>&nbsp;</td>
		<td><b>Name:</b></td>
		<td><input name="txtName" id="txtName" size="30" type="text" value="<%if not bNew then response.write rsUser("name") end if%>" maxlength=50></td>
	</tr>
	<tr>
		<td>&nbsp;</td>
		<td><b>Email:</b></td>
		<td><input name="txtEmail" id="txtEmail" type="text" size="30" value="<%if not bNew then response.write rsUser("email") end if%>" maxlength=50></td>
	</tr>
	<tr>
		<td>&nbsp;</td>
		<td><b>Choose Your Login ID:</b></td>
		<td><input name="txtUserID" id="txtUserID" size="15" type="text" value="<%if not bNew then response.write rsUser("managerid") end if%>" maxlength=15> <font color=red>15 Char. Max.</font></td>
	</tr>
	<tr>
		<td>&nbsp;</td>
		<td><b>Choose Your Password:</b></td>
		<td><input name="txtPassword" id="txtPassword" size="15" type="password" value="<%if not bNew then response.write rsUser("password") end if%>" maxlength=15> <font color=red>15 Char. Max.</font></td>
	</tr>
	<tr>
		<td>&nbsp;</td>
		<td><b>Retype Your Password:</b></td>
		<td><input name="txtRPassword" id="txtRPassword" size="15" type="password" maxlength=15></td>
	</tr>
	<tr>
		<td>&nbsp;</td>
		<td>&nbsp;</td>
		<td>&nbsp;</td>
	</tr>
	<tr>
		<td>&nbsp;</td>
		<td>&nbsp;</td>
		<td><input type="submit" value="<%if bNew then%>Register<%else%>Save Changes<%end if%>" id="RegisterUser" name="RegisterUser">&nbsp;<input type="reset" value="Reset" id="ResetFields" name="ResetFields"></td>
	</tr>
</table>

</form>

</td>
</tr>

</table>
</div>

<!--#include file=bottom.asp-->
<!--#include file=footer.asp-->
<% if not bNew then rsUser.Close%>