% if Request.QueryString("Send")="Yes" then strBody = "Name: " & Request.Form("firstname") & " " & Request.Form("lastname") & vbCrLf strBody = strBody & "EMail Address: " & Request.Form("email") & vbCrLf strBody = strBody & "Street Address: " & Request.Form("address1") & vbCrLf strBody = strBody & "Street Address 2: " & Request.Form("address2") & vbCrLf strBody = strBody & "City: " & Request.Form("city") & vbCrLf strBody = strBody & "State: " & Request.Form("state") & vbCrLf strBody = strBody & "Zip Code: " & Request.Form("zip") & vbCrLf strBody = strBody & "Phone Number: " & Request.Form("phone") & vbCrLf strBody = strBody & "Comments: " & Request.Form("comments") & vbCrLf ' Set objMail = CreateObject("CDONTS.Newmail") objMail.From = Request.Form("email") objMail.To = "rjpraetorius@gmail.com" objMail.Subject = "DVRCCCA - email from website membership form" objMail.Body = strBody objMail.Send Set objMail = Nothing ' Response.Redirect("thankyou.html") Response.end End if %>
![]() |
![]() |
|
|
|
||||||||||||||||||||||||||