% Response.Buffer = true If Request("success") <> "" then Dim CDOMail, strBody Set CDOMail = Server.CreateObject("CDONTS.NewMail") CDOMail.Importance = 1 CDOMail.To = "info@rxexpressmarketing.com" 'CDOMail.To = "Jaslap@Charter.net" CDOMail.From = "Website Job Applicant <" & Request("email") & ">" CDOMail.Subject = "Online Job Application" strBody = "The following was received " & now() & ":" & vbcrlf strBody = strBody & "---------------------------------------------------------------" & vbcrlf strBody = strBody & "Person's Name: " & Request("name") & vbcrlf strBody = strBody & "Person's Address: " & Request("address") & vbcrlf strBody = strBody & "Person's City: " & Request("city") & vbcrlf strBody = strBody & "Person's State: " & Request("state") & vbcrlf strBody = strBody & "Person's Zip: " & Request("zip") & vbcrlf strBody = strBody & "Person's Phone Number: " & Request("phone") & vbcrlf strBody = strBody & "Person's Email: " & Request("email") & vbcrlf strBody = strBody & "---------------------------------------------------------------" & vbcrlf CDOMail.Body = strBody CDOMail.Send Set CDOMail = nothing Response.Redirect Request("success") End If %>