|
Server : Apache/2.4.62 System : FreeBSD fbsdweb2.web.rcn.net 14.1-RELEASE FreeBSD 14.1-RELEASE releng/14.1-n267679-10e31f0946d8 GENERIC amd64 User : www ( 80) PHP Version : 8.3.8 Disable Function : NONE Directory : /domains/highlandlabs/cqi-bin/ALFA_DATA/alfasymlink/root/domains/howardbender2/jobs/ |
Upload File : |
<%@ language="vbscript"%>
<%
Dim sTitle
sTitle = "Post Resume"
%>
<!--#include file=DataStore.asp-->
<!--#include file=header.asp-->
<!--#include file=top.asp-->
<%
Dim objConn 'Connection Object
Dim objRs 'Recordset Object
'create the connection object
Set objConn = Server.CreateObject("ADODB.Connection")
'and open it
objConn.Open sConnect
'Create the recordset object
Set objRs = Server.CreateObject("ADODB.Recordset")
'and open the TEACHER table
objRs.Open "TEACHER", objConn, 3, 3
'Filter the recordset and verify if information has already been saved with this email
objRs.Filter = "email = '" & Request.Form("txtEmail") & "'"
'test if recordset is empty
if objRs.EOF or request("modify") = "1" then
if objRs.EOF then
'there is no record for this person add his information
objRs.AddNew
end if
'store new/modified information
objRs("email")= Request.Form("txtEmail")
objRs("password")= Request.Form("txtPassword")
objRs("name")= Request.Form("txtName")
objRs("address1") = Request.Form("txtAddress1")
objRs("address2")= Request.Form("txtAddress2")
objRs("city")= Request.Form("txtCity")
objRs("state")=Request.Form("cboState")
objRs("zipcode")= Request.Form("txtZipCode")
objRs("areacode")= Request.Form("txtAreaCode")
objRs("phone")= Request.Form("txtPhone")
objRs("region")= Request.Form("cboRegion")
objRs("metroarea")= Request.Form("cboMetro")
objRs("jobtitle")= Request.Form("txtJobTitle")
objRs("expertise")= Request.Form("cboExpertise")
objRs("grade")= Request.Form("txtGradesTaught")
objRs("experience")= Request.Form("txtExperience")
objRs("education")= Request.Form("cboEducation")
objRs("educationother")= Request.Form("txtOther")
objRs("specialskills")= Request.Form("txtSpecialSkills")
objRs("salary")= Request.Form("txtSalary")
objRs("datesubmitted")= date()
objRs("active")= -1
'end store
objRs.Update
%>
<script language=Javascript>
<!--
function GoHome()
{
window.location.href="default.asp"
}
//-->
</script>
<div align="center">
<table width="600" cellspacing="0" cellpadding="0" border="0" bgcolor="#FFFFFF">
<tr>
<td width="420" valign="top">
<img src="images/blank.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 bgcolor="#003399"><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>
<div align="center">
<p><h3>Congratulations! Your resume has been entered in the School Jobs Database.</h3>
<P> </P>
</div>
<%
else
if not objRs.EOF and request("modify") = "0" then
'allow the person to edit his information
Response.Write "<div align=center><br>"
Response.Write "<h3>The email that you've entered already exits in the system.</h3>"
Response.Write "<h3>If you would like edit your resume please re-enter your password.</h3>"
Response.Write "<a href=""forgot.asp"" target=""_top"">Forgot your password?</a>"
Response.Write "<form name=""frmUserLogin"" action=""editres.asp?notimes=1"" method=""post"">"
Response.Write "<table width=400 cellspacing=0 cellpadding=5 border=0>"
Response.Write "<tr><td><b>Email Address:</b></td>"
Response.Write "<td><input name=txtUserID id=txtUserID type=hidden size=30 value=" & Request.Form("txtEmail") & ">"
Response.Write "<font size=4 color=red>" & Request.Form("txtEmail") & "</font></td></tr>"
Response.Write "<tr><td><b>Password:</b></td>"
Response.Write "<td><input name=txtUserPassword id=txtUserPassword type=password size=30></td></tr>"
Response.Write "<tr><td></td>"
Response.Write "<td><input name=Submit value=""Edit Resume"" type=submit></td></tr>"
Response.Write "</table>"
Response.Write "</form>"
Response.Write "</div>"
end if
end if
objRs.Close
%>
<!--#include file=bottom.asp-->
<!--#include file=footer.asp-->