<% '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Dim iConf ' As CDO.Configuration Dim MyMail ' As CDO.Message Dim Fields ' As ADODB.Fields deliverymonth= request("deliverymonth") deliveryday = request("deliveryday") deliveryyear = request("deliveryyear") deliverytime = request("deliverytime") deliverytime2= request("deliverytime2") deliverytime3= request("deliverytime3") name= request("name") email = request("email") companyname= request("companyname") companyphone= request("companyphone") deliveryaddress= request("deliveryaddress") deliverycity= request("deliverycity") deliveryzip= request("deliveryzip") Set iConf = Server.CreateObject("CDO.Configuration") Set MyMail = CreateObject("CDO.Message") 'E-mail form info for database updates if request("contactsubmit") = "true" then Set MyMail.Configuration = iConf MyMail.Subject = "Order Form" MyMail.From = "info@TEST.com" MyMail.To = "user1@TEST.com" MyMail.CC = "user2@TEST.com; user3@TEST.com" MyMail.Bcc = "" MyMail.HTMLBody = "Inquirey Form

Delivery Date = " & deliverymonth & " " & deliveryday & ", " & deliveryyear & " @ " & deliverytime & ":" & deliverytime2 & deliverytime3 & "

" & "Name = " & name & "
" & "Email = " & email & "
" & "Company Phone = " & companyphone & "
" & "Delivery Address = " & deliveryaddress & "
" & "Delivery City = " & deliverycity & "
" & "Delivery Zip = " & deliveryzip & "

" MyMail.Send Set MyMail = Nothing '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ response.redirect ("menu_confirm.asp") end if %> JMARC Homes: Contact Page

Contact Us:

Presidio Group, LLC

1777 NE Loop 410, Suite 910

San Antonio, TX 78217

Tel: (210) 826-9000

*Required