|
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">
<p><h3>Congratulations! Your resume has been entered in the School Jobs Database.</h3>
<p>
<form action="JavaScript:GoHome()">
<input name="Home" value="Main Menu" type=submit>
</form>
<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-->