<%@ 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
	if objConn.State = 0 then	'only open if the connection is closed
		objConn.Open sConnect
	end if

'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">
<%if request("userexist")=1 then %>
<font color="red"><b>Error:</b></font> User already exists.<br>
<%end if%>
<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>Your Country:</b></td>
			<td>
				<select id="txtCountry" name="txtCountry" size="1" class="criteria">
					<option value="1001">Canada</option>
					<option value="91">India</option>
					<option value="1002">Marianas Islands</option>
					<option value="82">South Korea</option>
					<option selected value="1">United States</option>
				</select>
			</td>
		<%if not bNew then response.write rsUser("country") end if%>
	</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><b>15 Char. Max. (no spaces)</b></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><b>15 Char. Max. (no spaces)</b></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><%if bNew then%><input type="submit" value="Register" id="RegisterUser" name="RegisterUser"><%else%><input type="submit" value="Save Changes" id="Update" name="Update"><%end if%>&nbsp;<input type="reset" value="Reset" id="ResetFields" name="ResetFields"></td>
	</tr>
</table>

</form>

</td>
</tr>

</table>
</div>

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