<%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 "Dan White", "[email protected]"
Mailer.AddRecipient "Marge Kolkin", "[email protected]"
Mailer.Subject = "Compass Website Candidate Feedback"
Mailer.BodyText = vbCrLf & "FullName: " & Request.Form("FullName") & vbCrLf & _
	"Address: " & Request.Form("address1") & 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 & _
	"Do you want Compass to Contact You?: " & Request.Form("contact") & vbCrLf & vbCrLf & _
	"Message: " & vbCrLf & _
	Request.Form("message") & vbCrLf
Mailer.Priority = 1
if Mailer.SendMail then
  Response.Redirect("feedback_sent.shtml")
else
  Response.Redirect("mailerror.shtml")
end if
%>