<% '============================================= 'SHOW CONTACT PAGE CONTENT AND SEND MAIL CODE '============================================= sendform = request.querystring("action") if sendform = "send" then strrecipient = request.form ("recipient") Name1 = request.form ("contact_name") comp1 = request.form ("company") stremail = request.form ("contact_email") strtel = request.form ("telephone") strbodytxt = request.form ("contact_body") strbodytxt = Replace(strbodytxt, vbCrLf, "
", 1, -1, 1) Bodytext = "

" & strCompany & " - Enquiry Response Email

From: " & name1 & "
Email: " & stremail & "

Enquiry/Comments:
" & strbodytxt & "

Note: It is recommended to print THEN delete this email." Set objMail = Server.CreateObject("CDONTS.Newmail") objMail.To = strrecipient objMail.Subject = "Website Enquiry" objMail.From = stremail objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.Body = Bodytext objMail.Send Set objMail = Nothing %>

 

Thank you for sending your prayer request!

We pray that the peace and the Love of God be with you continuously!
<% ELSE %>

Note: fields marked * are required.

Name*:
Organisation*:
 
Your e-mail*:

 
Telephone:
 
Comments*:

 
 
<% End If %>