Send Resume

<% If Request.Form("Send") <> "" Then dim objMail Set objMail = CreateObject("CDONTS.NewMail") objMail.To = Request.Form("frmDirect") objMail.From = Request.Form("From") objMail.Subject = Request.Form("Subject") objMail.BodyFormat = "0" objMail.Body = Request.Form("Body") & vbCrLf&_ "E-mail: " & cStr(Request.Form("frmEmail"))& vbcrlf&_ "Comments: " & cStr(Request.Form("frmComments"))'& vbcrlf&_ objMail.Send Set objMail = Nothing Response.Redirect "thankyou.asp" End If %>
Reqired Fields:
* First Name
Middle Name
Last Name
Email
Contact Information:
Phone Number
* Primary Address
* City
Province
* Postal Code
* Country
Most Recent Employment:
Company Name
Job Title
Start Date
End Date
Most Recent Studies:
University
Degree
Major
Minor
Graduation Date
* Resume
 

 

 

© 2005 All rights reserved