% function WA_Universal_Email_1_SendMail(RecipientEmail) dim MailObject, MailAttachments, MailBCC, MailCC, MailTo, MailBodyFormat, MailBody, MailImportance, MailFrom, MailSubject MailAttachments = "" MailBCC = "" MailCC = "" MailTo = "" MailBodyFormat = "" MailBody = "" MailImportance = "" MailFrom = "webmaster@harborsideinternational.com" MailSubject = "New Employment Application" 'Global Variables gAddBCC = "" gAddCC = "" gAddRecipient = "" gBodyFormat = "" gSetImportance = "" set WA_MailObject = WAUE_Definition() if (RecipientEmail <> "") then set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail) MailTo = gAddRecipient gAddRecipient = "" else 'To Entries end if 'Attachment Entries 'BCC Entries set WA_MailObject = WAUE_AddBCC(WA_MailObject,"") MailBCC = gAddBCC 'CC Entries set WA_MailObject = WAUE_AddCC(WA_MailObject,"kevin@harborsideinternational.com") MailCC = gAddCC 'Body Format set WA_MailObject = WAUE_BodyFormat(WA_MailObject,0) MailBodyFormat = gBodyFormat 'Set Importance set WA_MailObject = WAUE_SetImportance(WA_MailObject,"3") MailImportance = gSetImportance 'Start Mail Body MailBody = MailBody & "
Terry and Kevin, this is a new email employment application from the Website:
Personal Information Section:
Last_Name: "
MailBody = MailBody & Request("Last_Name")
MailBody = MailBody & "
First_Name: "
MailBody = MailBody & Request("First_Name")
MailBody = MailBody & "
Middle_Name: "
MailBody = MailBody & Request("Middle_Name")
MailBody = MailBody & "
Applicant_Address: "
MailBody = MailBody & Request("Applicant_Address")
MailBody = MailBody & "
Applicant_City: "
MailBody = MailBody & Request("Applicant_City")
MailBody = MailBody & "
Applicant_State: "
MailBody = MailBody & Request("Applicant_State")
MailBody = MailBody & "
Applicant_ZipCode: "
MailBody = MailBody & Request("Applicant_ZipCode")
MailBody = MailBody & "
Applicant_Telephone: "
MailBody = MailBody & Request("Applicant_Telephone")
MailBody = MailBody & "
Applicant_SocialSecurity: "
MailBody = MailBody & Request("Applicant_SocialSecurity")
MailBody = MailBody & "
Email: "
MailBody = MailBody & Request("email")
MailBody = MailBody & "
FelonyConviction-Yes: "
MailBody = MailBody & Request("FelonyConviction-Yes")
MailBody = MailBody & "
FelonyConviction-No: "
MailBody = MailBody & Request("FelonyConviction-No")
MailBody = MailBody & "
Felony_Explanation: "
MailBody = MailBody & Request("Felony_Explanation")
MailBody = MailBody & "
Job Interests/Skills Section
Position_AppliedFor: "
MailBody = MailBody & Request("Position_AppliedFor")
MailBody = MailBody & "
Salary_Desired: "
MailBody = MailBody & Request("Salary_Desired")
MailBody = MailBody & "
Applied_Before-Yes: "
MailBody = MailBody & Request("Applied_Before-Yes")
MailBody = MailBody & "
Applied_Before-No: "
MailBody = MailBody & Request("Applied_Before-No")
MailBody = MailBody & "
Applied_When: "
MailBody = MailBody & Request("Applied_When")
MailBody = MailBody & "
FullTime: "
MailBody = MailBody & Request("FullTime")
MailBody = MailBody & "
PartTime: "
MailBody = MailBody & Request("PartTime")
MailBody = MailBody & "
Temporary: "
MailBody = MailBody & Request("Temporary")
MailBody = MailBody & "
Summer: "
MailBody = MailBody & Request("Summer")
MailBody = MailBody & "
Date_Available: "
MailBody = MailBody & Request("Date_Available")
MailBody = MailBody & "
Special_Skills: "
MailBody = MailBody & Request("Special_Skills")
MailBody = MailBody & "
Education Section
High_School: "
MailBody = MailBody & Request("High_School")
MailBody = MailBody & "
College_University: "
MailBody = MailBody & Request("College_University")
MailBody = MailBody & "
Other_Education1: "
MailBody = MailBody & Request("Other_Education1")
MailBody = MailBody & "
Other_Education2: "
MailBody = MailBody & Request("Other_Education2")
MailBody = MailBody & "
Employment History Section
Previous_Employer1: "
MailBody = MailBody & Request("Previous_Employer1")
MailBody = MailBody & "
Previous_Supervisor1: "
MailBody = MailBody & Request("Previous_Supervisor1")
MailBody = MailBody & "
Previous_Title1: "
MailBody = MailBody & Request("Previous_Title1")
MailBody = MailBody & "
Period_Employed1: "
MailBody = MailBody & Request("Period_Employed1")
MailBody = MailBody & "
Starting_Salary1: "
MailBody = MailBody & Request("Starting_Salary1")
MailBody = MailBody & "
Ending_Salary1: "
MailBody = MailBody & Request("Ending_Salary1")
MailBody = MailBody & "
Work_Performed1: "
MailBody = MailBody & Request("Work_Performed1")
MailBody = MailBody & "
" & vbCrlf & ""
MailBody = MailBody & "
Previous_Employer2: "
MailBody = MailBody & Request("Previous_Employer2")
MailBody = MailBody & "
Previous_Supervisor2: "
MailBody = MailBody & Request("Previous_Supervisor2")
MailBody = MailBody & "
Previous_Title2: "
MailBody = MailBody & Request("Previous_Title2")
MailBody = MailBody & "
Period_Employed2: "
MailBody = MailBody & Request("Period_Employed2")
MailBody = MailBody & "
Starting_Salary2: "
MailBody = MailBody & Request("Starting_Salary2")
MailBody = MailBody & "
Ending_Salary2: "
MailBody = MailBody & Request("Ending_Salary2")
MailBody = MailBody & "
Work_Performed2: "
MailBody = MailBody & Request("Work_Performed2")
MailBody = MailBody & "
" & vbCrlf & ""
MailBody = MailBody & "
Previous_Employer3: "
MailBody = MailBody & Request("Previous_Employer3")
MailBody = MailBody & "
Previous_Supervisor3: "
MailBody = MailBody & Request("Previous_Supervisor3")
MailBody = MailBody & "
Previous_Title3: "
MailBody = MailBody & Request("Previous_Title3")
MailBody = MailBody & "
Period_Employed3: "
MailBody = MailBody & Request("Period_Employed3")
MailBody = MailBody & "
Starting_Salary3: "
MailBody = MailBody & Request("Starting_Salary3")
MailBody = MailBody & "
Ending_Salary3: "
MailBody = MailBody & Request("Ending_Salary3")
MailBody = MailBody & "
Work_Performed3: "
MailBody = MailBody & Request("Work_Performed3")
MailBody = MailBody & "
" & vbCrlf & ""
MailBody = MailBody & "
References Section
" & vbCrlf & ""
MailBody = MailBody & "Reference_1: "
MailBody = MailBody & Request("Reference_1")
MailBody = MailBody & "
Reference_2: "
MailBody = MailBody & Request("Reference_2")
MailBody = MailBody & "
Reference_3: "
MailBody = MailBody & Request("Reference_3")
MailBody = MailBody & "
"
'End Mail Body
set WA_MailObject = WAUE_SendMail(WA_MailObject,MailAttachments,MailBCC,MailCC,MailTo,MailImportance,MailFrom,MailSubject,MailBody)
set WA_MailObject = nothing
end function
%>
<%
if ((Request.ServerVariables("Request_Method") = "POST")) then
'WA Universal Email object="CDONTS NewMail"
'Send Loop Once Per Entry
WA_Universal_Email_1_SendMail("terry@harborsideinternational.com")
'Send Mail All Entries
if ("../contactus/successful.htm"<>"") then
Response.Redirect("../contactus/successful.htm")
end if
end if
%>
|
HARBORSIDE INTERNATIONAL EMPLOYMENT APPLICATION |