<%@ 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-->

<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("update") = 1 then %>
<p align="center"><font size="5" face="verdana, arial" color="red">Update</font>
<%else%>
<p align="center"><font face="verdana, arial" size="5" color="red">New</font>
<%end if%>
<p align="center"><font face="verdana, arial" size="5" color="red">REGISTRATION<br>(Must Be Done Before You Can Post Job Listings)</font></p>

<% 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
%>
In order to post jobs, you will need to be registered with our systems. Please take a few minutes to enter the information below. Once you have done that you will have full access to the system.<p>
<%end if%>

<p align="center"><font size="5" color="red">User Information</font><br>
<font color="red"><font size="5" color="red"><b>*</b></font> Indicates a required field.</font>
<form name="frmUser" action="adduser.asp" method="post" onSubmit="return VerifyData()">
<table width="100%" border="0" cellspacing="0" cellpadding="5">
	<tr>
		<td><font size="5" color="red"><b>*</b></font></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><font size="5" color="red"><b>*</b></font></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><font size="5" color="red"><b>*</b></font></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><font size="5" color="red"><b>*</b></font></td>
		<td><b>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><font size="5" color="red"><b>*</b></font></td>
		<td><b>Confirm Password:</b></td>
		<td><input name="txtRPassword" id="txtRPassword" size="15" type="password" maxlength=15> <font color=red>Retype your password.</font></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>

<tr>
	<td align="center"><a href="default.asp">Home</a></td>
</tr>
</table>
</div>

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