<% Option Explicit
Response.Buffer = true
dim SendResume
dim importance
dim FirstName
dim LastName
dim Address
dim City
dim State
Dim Zip
Dim HomePhone
Dim strErrors
Dim SendMail
%>
BCS Placement | Human Resources | Submit Resume
 |
 |
 |
<%
'dim vars
dim sendMailFlag
dim pageerrors
sendMailFlag = Request("sendmail")
pageerrors = validate()
if isempty(sendMailFlag) or (request("sendmail")="true" and pageerrors<>"0") then 'Initial request screen
%>
<%if request("sendmail")="true" then%>
<%=pageerrors%>
<%end if%>
Please complete the following Human Resources resume.
|
| Contact Information.
(
*
Required fields)
|
|
|
<%
else 'request has been submitted
'send mail:
'dim object vars for sending email
'Specify the recipient's email address:
Set SendResume = Server.CreateObject("Persits.MailSender")
SendResume.Host = "smtp.enteract.com" ' Specify a valid SMTP server
SendResume.From = "webserver@bcsplacement.com" ' Specify sender's address
SendResume.FromName = "Web Server" ' Specify sender's name
SendResume.AddReplyTo "bcsmail@bcsplacment.com"
'SendResume.AddAddress "rchomko@dhburnham.com"
SendResume.AddAddress "resume@bcsplacement.com"
'Build Subject line:
SendResume.Subject = Request("FirstName") & " " & Request("LastName") & " is interested in an HR Position."
'build message body:
SendResume.Body = "The following person has submitted a resume for review:" & chr(10) & chr(10)
SendResume.Body = SendResume.Body & request("FirstName") & " " & request("mi") & " " & request("LastName") & chr(10)
SendResume.Body = SendResume.Body & request("address") & chr(10)
SendResume.Body = SendResume.Body & request("city") & ", " & request("state") & " " & request("zip") & chr(10) & chr(10)
SendResume.Body = SendResume.Body & "Work Phone: " & request("WorkPhone") & chr(10)
SendResume.Body = SendResume.Body & "Contact at work?: " & request("ContactWork") & chr(10) & chr(10)
SendResume.Body = SendResume.Body & "Home Phone: " & request("HomePhone") & chr(10) & chr(10)
SendResume.Body = SendResume.Body & "Email: " & request("email") & chr(10) & chr(10)
SendResume.Body = SendResume.Body & "Date Available: " & request("DateAvail") & chr(10) & chr(10)
SendResume.Body = SendResume.Body & "Human Resources Positions Desired: " & request("HRPositions") & chr(10) & chr(10)
SendResume.Body = SendResume.Body & "********************* Resume Below *********************" & chr(10) & chr(10)
SendResume.Body = SendResume.Body & request("resume") & chr(10) & chr(10)
'Send the email:
SendResume.Send
If Err <> 0 Then
Response.Write "An error occurred: " & Err.Description
End If
Set SendMail = Nothing
Response.Write(" | Your resume has been sent. We appreciate your interest in BCS Placement employment. Someone will contact you in the near future to discuss your application. | ")
End If
%>
<%
function validate()
'returns "0" (zero) if values pass validation, otherwise returns an error message decsribing which fields are in error
dim strErrors
strErrors="" 'default
FirstName = Request("FirstName")
if FirstName = "" then
strErrors = strErrors & "Missing First Name."
Set SendMail = Nothing
End If
LastName = Request("LastName")
if LastName = "" then
strErrors = strErrors & "Missing Last Name."
'SendMailFlag = "False"
end if
Address = Request("Address")
if Address = "" then
strErrors = strErrors & "Missing Address."
'SendMailFlag = "False"
end if
City = Request("City")
if City = "" then
strErrors = strErrors & "Missing City."
'SendMailFlag = "False"
end if
State = Request("State")
if State = "" then
strErrors = strErrors & "Missing State."
'SendMailFlag = "False"
end if
Zip = Request("Zip")
if Zip = "" then
strErrors = strErrors & "Missing Zip."
'SendMailFlag = "False"
end if
HomePhone = Request("HomePhone")
if HomePhone = "" then
strErrors = strErrors & "Missing Home Phone."
'SendMailFlag = "False"
end if
if strErrors = "" then
strErrors = "0"
else
strErrors = "
The following errors were found with the resume you submitted:
Please correct these errors and re-submit.
"
end if
validate=strErrors
end function
%>
|
|