<%Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = Request.Form("FullName")
Mailer.FromAddress = Request.Form("email")
Mailer.RemoteHost = "smtp.rcn.com"
'Mailer.AddRecipient "Jeff Kovach", "[email protected]"
Mailer.AddRecipient "Recruiter", "[email protected]"
Mailer.Subject = "Compass Website Resume"
Mailer.BodyText = vbCrLf & "FullName: " & Request.Form("FullName") & vbCrLf & _
	"Address1: " & Request.Form("address1") & vbCrLf & _
	"Address2: " & Request.Form("address2") & vbCrLf & _
	"City: " & Request.Form("city") & vbCrLf & _
	"State: " & Request.Form("state") & vbCrLf & _
	"Zipcode: " & Request.Form("zipcode") & vbCrLf & _
	"Country: " & Request.Form("country") & vbCrLf & _
	"Email: " & Request.Form("email") & vbCrLf & _
	"Phone: " & Request.Form("phone") & vbCrLf & vbCrLf & _
	" - Resume pasted below here - " & vbCrLf & _
	"__________" & vbCrLf & vbCrLf & _
	Request.Form("resume") & vbCrLf
Mailer.Priority = 1
if Mailer.SendMail then
  Response.Redirect("resume_sent.shtml")
else
  Response.Redirect("resume_error.shtml")
end if
%>