<% Option Explicit dim sName, sEmail, sPhone, sComment1 dim oCdoMail, oCdoConf, sConfURL if Request.Form("Action") <> "" then sName = Request.Form("Name") sEmail = Request.Form("Email") sPhone = Request.Form("Phone") sComment1 = Request.Form("Comment1") Set oCdoMail = Server.CreateObject("CDO.Message") Set oCdoConf = Server.CreateObject("CDO.Configuration") sConfURL = "http://schemas.microsoft.com/cdo/configuration/" with oCdoConf .Fields.Item(sConfURL & "sendusing") = 2 .Fields.Item(sConfURL & "smtpserver") = "relay-hosting.secureserver.net" .Fields.Item(sConfURL & "smtpserverport") = 25 .Fields.Update end with with oCdoMail .To = "doug@vcfphoenix.com" .From = "ContactUs@vcfphoenix.com" .Subject = "Web submitted Contact Request from: " & sName .HTMLBody = "NAME:
" & sName & "

EMAIL:
" & sEmail & "

PHONE:
" & sPhone & "

Comments:
" & sComment1 .Configuration = oCdoConf .Send end with Set oCdoConf = Nothing Set oCdoMail = Nothing //response.write "Thank you, your message has been sent to VCF Phoenix!" response.Redirect "http://www.vcfphoenix.com/C_response.html" else %> Vineyard Christian Fellowship of Phoenix
About UsMissionseventsVisitorsMinistriescontact us
Contact Us


Contact Us

Please fill in your Name, E-mail, Contact Phone and your question/comment. If you would rather speak to us in person, please call us at 602-843-8848

God bless and have a good day!

">

Name:

E-mail Address:

Phone Number:

Question/Comments:

 

 

 

 

 

 

 

 

 



 
<% end if %>