<% if request("sendemail") = "true" then Dim iConf ' As CDO.Configuration Dim MyMail ' As CDO.Message Dim Fields ' As ADODB.Fields 'Set iConf = Server.CreateObject("CDO.Configuration") Set MyMail = CreateObject("CDO.Message") 'Set Flds = iConf.Fields 'With Flds ' .Item(cdoSendUsingMethod) = 2 ' .Item(cdoSMTPServer) = "secureserver.net" ' .Item(cdoSMTPServerPort) = 25 ' .Item(cdoSMTPconnectiontimeout) = 10 ' .Update 'End With 'E-mail form info for database updates 'Set MyMail.Configuration = iConf MyMail.Subject = "JMarc Homes Contact Form" MyMail.From = "information@jmarchomes.com" MyMail.To = "wdtrainor@gmail.com" MyMail.HTMLBody = "Name: " & Request("name") & "
" & _ "Email: " & Request("email") & "
" & _ "Comments: " & Request("comments") MyMail.Send Set MyMail = Nothing response.redirect("confirmation.html") end if %> JMARC Homes: Contact Page


Contact Us:

JMarc Homes

2107 Pecan Haven

New Braunfels, TX 78130-2769

Tel: (830) 625-1300

*Required