% If (Request.form("submit") = "Submit") Then '************************************** 'BEGINNING OF MAIN MAILING '************************************** Dim objMail2 ' As CDONTS.NewMail 'Don't mess with this Set objMail2 = Server.CreateObject("CDONTS.NewMail") '-------------------------------------------------------------------------------------------------------- 'VARIABLES TO BE CHANGED FOR MAILING dim yourname, youremail, yoursubject, clientemail, ResultsBody yourname="Get More Clients" youremail="andy@getmoreclients.com.au" yoursubject= "Email from website" clientemail= request.form("email") clientname= request.form("name") objMail2.To = youremail objMail2.bcc = "info@davewallace.net" objMail2.From = clientemail objMail2.Subject = yoursubject '------------------- 'BODY OF FORM RESULTS TO BE EMAILED TO YOU ResultsBody ="The following has been generated by a visitor to your website" & CHR(10)& "Please respond to questions as soon as possible" & CHR(10) ResultsBody = ResultsBody & CHR(10) & "Name: "& request.form("name") ResultsBody = ResultsBody & CHR(10)& CHR(10) & "Email: "& request.form("email") ResultsBody = ResultsBody & CHR(10)& CHR(10) & "Phone: "& request.form("phone") ResultsBody = ResultsBody & CHR(10)& CHR(10) & "Business Type: "& request.form("BusinessType") ResultsBody = ResultsBody & CHR(10)& CHR(10) & "Problems I am experiencing: "& request.form("ProblemsExperiencing") ResultsBody = ResultsBody & CHR(10)& CHR(10) & "What I would like to achieve: "& request.form("WouldLikeToAchieve") objMail2.Body = ResultsBody '---------------------------------------------------------------------------------------------------------------------- objMail2.Send 'Don't mess with this Set objMail2 = Nothing '****************************** 'END OF MAILING '******************************* Call Response.Redirect("thankyou.asp") End IF %>
|