Online Resume

<% If Request.Form.Count <> 0 AND Request.Form("Duty") = "SubmitResume" Then VerifySubmitResume() Else ShowResume() End If Function VerifySubmitResume() If Request.Form("spamField") = "true" Then SubmitResume() Else ShowResume() End If End Function Function SubmitResume() MailConfirmBody = "Resume for: " + Request.Form ("Name") + Chr(13) + Chr(13) MailConfirmBody = MailConfirmBody + "Personal Information: " + Chr(13) MailConfirmBody = MailConfirmBody + "Name: " + Chr(9) + Request.Form("Name") + Chr(13) MailConfirmBody = MailConfirmBody + "Address: " + Chr(9) + Request.Form ("MailAddrs1") + Chr(13) If Request.Form("MailAddrs2") <> "" Then MailConfirmBody = MailConfirmBody + Chr(9) + Chr(9) + Request.Form("MailAddrs2") + Chr(13) Else MailConfirmBody = MailConfirmBody + Chr(13) End If MailConfirmBody = MailConfirmBody + Chr(9) + Chr(9) + Request.Form("City") + ", " + Request.Form("State") + " " + Request.Form("ZIP") + Chr(13) MailConfirmBody = MailConfirmBody + Chr(13) MailConfirmBody = MailConfirmBody + "Daytime Phone: " + Chr(9) + Request.Form("DaytimePhone") + Chr(13) MailConfirmBody = MailConfirmBody + "Fax: " + Chr(9) + Request.Form("Fax") + Chr(13) + Chr(13) MailConfirmBody = MailConfirmBody + "E-mail: " + Chr(9) + Request.Form("Email") + Chr(13) + Chr(13) MailConfirmBody = MailConfirmBody + "Willing to relocate?: " + Chr(9) + Request.Form("Relocate") + Chr(13) MailConfirmBody = MailConfirmBody + "How did you hear about Position/Adelman?: " + Chr(9) + Request.Form("ReferralType") + Chr(13) + Chr(13) MailConfirmBody = MailConfirmBody + "Position/Location: " + Request.Form("PosLoc") + Chr(13) + Chr(13) MailConfirmBody = MailConfirmBody + "Objective: " + Request.Form("Objective") + Chr(13) + Chr(13) MailConfirmBody = MailConfirmBody + "Education" + Chr(13) MailConfirmBody = MailConfirmBody + "High School: " + Chr(9) + Request.Form("HighSchool") + Chr(13) MailConfirmBody = MailConfirmBody + "Diploma?: " + Chr(9) + Chr(9) + Request.Form("Diploma") + Chr(13) MailConfirmBody = MailConfirmBody + "GPA: " + Chr(9) + Chr(9) + Chr(9) + Request.Form("GPA") + Chr(13) MailConfirmBody = MailConfirmBody + "College: " + Chr(9) + Chr(9) + Request.Form("College") + Chr(13) MailConfirmBody = MailConfirmBody + "Major: " + Chr(9) + Chr(9) + Request.Form("Major") + Chr(13) MailConfirmBody = MailConfirmBody + "Degree: " + Chr(9) + Chr(9) + Request.Form("Degree") + Chr(13) MailConfirmBody = MailConfirmBody + "College GPA: " + Chr(9) + Request.Form("CollegeGPA") + Chr(13) MailConfirmBody = MailConfirmBody + "Trade School: " + Chr(9) + Request.Form("Trade") + Chr(13) + Chr(13) MailConfirmBody = MailConfirmBody + "Employment History" + Chr(13) MailConfirmBody = MailConfirmBody + "Employer: " + Chr(9) + Request.Form("Employ1") + Chr(13) MailConfirmBody = MailConfirmBody + "Title: " + Chr(9) + Request.Form("Title1") + Chr(13) MailConfirmBody = MailConfirmBody + "Dates: " + Chr(9) + Request.Form("From1") + " to " + Request.Form("To1") + Chr(13) MailConfirmBody = MailConfirmBody + "Description: " + Chr(9) + Request.Form("Description1") + Chr(13) + Chr(13) MailConfirmBody = MailConfirmBody + "Employer: " + Chr(9) + Request.Form("Employ2") + Chr(13) MailConfirmBody = MailConfirmBody + "Title: " + Chr(9) + Request.Form("Title2") + Chr(13) MailConfirmBody = MailConfirmBody + "Dates: " + Chr(9) + Request.Form("From2") + " to " + Request.Form("To2") + Chr(13) MailConfirmBody = MailConfirmBody + "Description: " + Chr(9) + Request.Form("Description2") + Chr(13) + Chr(13) MailConfirmBody = MailConfirmBody + "Employer: " + Chr(9) + Request.Form("Employ3") + Chr(13) MailConfirmBody = MailConfirmBody + "Title: " + Chr(9) + Request.Form("Title3") + Chr(13) MailConfirmBody = MailConfirmBody + "Dates: " + Chr(9) + Request.Form("From3") + " to " + Request.Form("To3") + Chr(13) MailConfirmBody = MailConfirmBody + "Description: " + Chr(9) + Request.Form("Description3") + Chr(13) + Chr(13) MailConfirmBody = MailConfirmBody + "Employer: " + Chr(9) + Request.Form("Employ4") + Chr(13) MailConfirmBody = MailConfirmBody + "Title: " + Chr(9) + Request.Form("Title4") + Chr(13) MailConfirmBody = MailConfirmBody + "Dates: " + Chr(9) + Request.Form("From4") + " to " + Request.Form("To4") + Chr(13) MailConfirmBody = MailConfirmBody + "Description: " + Chr(9) + Request.Form("Description4") + Chr(13) + Chr(13) MailConfirmBody = MailConfirmBody + "Additional Information/Awards/Certifications, Etc." + Chr(13) MailConfirmBody = MailConfirmBody + Request.Form("AdditionalInfo") + Chr(13) Const cdoSendUsingPort = 2 Const strSmartHost = "MKEEXCHANGE" Set Mailer = CreateObject("CDO.Message") Set iConf = Mailer.Configuration With iConf.Fields .item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort .item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost .Update End With With Mailer Mailer.From = "intranet@adelmanmail.com" Mailer.To = "jobs@adelmanmail.com" Mailer.BCC = "jjennings@adelmanmail.com" Mailer.Subject = "New Resume Submitted" Mailer.TextBody = MailConfirmBody Mailer.Send End With If Request.Form("Email") <> "" Then With Mailer Set .Configuration = iConf .Sender = "jobs@adelmanmail.com" .From = "jobs@adelmanmail.com" .To = Request.Form("Email") .BCC = "jjennings@adelmanmail.com" .Subject = "Thank you for submitting your resume to Adelman Travel." .HTMLBody = " " .Send End With End If Set Mailer = Nothing Response.Write("

Thank you for submitting your resume.

We have received your resume and are reviewing it to see if your skills, experience and education are a good match for our current needs. If we need additional information or want to schedule an interview, we will contact you.

If your qualifications do not match our current needs, we will keep your resume on file for one year.

Thank you for your interest in Adelman Travel.

") End Function Function ShowResume() %>

Create & Submit Your Resume

Complete the form below to send your resume to Adelman Travel Group Human Resources electronically.

Instructions:
Please note that this form takes several minutes to complete, so you may want to review the entries beforehand to be as thorough as possible in your entries. Be sure to fill in each item so that we can best match your skills to our available positions.

Navigating Within The Form:
The TAB key allows you to move to the next entry.
Text will wrap within the large input fields.
The SUBMIT button sends your information to us.

Personal Information

*Name:
*Mail Address 1:
Mail Address 2:
*City, State, ZIP:	, - AL AK AZ AR CA CO CT DE FL GA HI ID IL IN IA KS KY LA ME MD MA MI MN MS MO MT NE NV NH NJ NM NY NC ND OH OK OR PA RI SC SD TN TX UT VT VA WA WV WI WY
*Daytime Phone:
Fax:
E-mail:
*Are You Willing To Relocate?	- No Yes
How Did You Hear About The Position and/or Adelman Travel Group?

Objective

Please indicate the position and location you are applying for.
Please provide one concise sentence describing the type of job you are seeking.

Education

High School:
Diploma:	Yes No GPA
College:
Major:
Degree:	GPA
Trade School:

Employment History - List most recent first

Employer/Company
Your Job Title:
	From: To: MM/YYYY
Job Responsibilities:
Employer/Company
Your Job Title:
	From: To: MM/YYYY
Job Responsibilities:
Employer/Company
Your Job Title:
	From: To: MM/YYYY
Job Responsibilities:
Employer/Company
Your Job Title:
	From: To: MM/YYYY
Job Responsibilities:

Additional Information

Please provide a list of any honors, awards, certifications, volunteer work, languages or skills that you believe are important.
*Required Fields

<% End Function %>