Arteriors Architecture Information Request Form

<% 'NOTE: In ASP, comment lines start with a single quote '========================================================================= 'This checks to see if the Send Submit button of the form was clicked 'Obviously, on the first pass through the code it will be empty, so 'this code will not execute. 'Once clicked however the value of sbmSend = "Send" and the code 'within the IF/END IF block is executed '========================================================================= If Request("Send") <> "" Then MailMsg = Request.Form("Name") & vbCRLF MailMsg = MailMsg & Request.Form("Spouse") & vbCRLF MailMsg = MailMsg & Request.Form("Address") & vbCRLF MailMsg = MailMsg & Request.Form("City") & vbCRLF MailMsg = MailMsg & Request.Form("State") & vbCRLF MailMsg = MailMsg & Request.Form("Zipcode") & vbCRLF MailMsg = MailMsg & Request.Form("Day_Phone") & vbCRLF MailMsg = MailMsg & Request.Form("Evening_Phone") & vbCRLF MailMsg = MailMsg & Request.Form("Fax") & vbCRLF MailMsg = MailMsg & Request.Form("Email") & vbCRLF MailMsg = MailMsg & Request.Form("New_Home") & vbCRLF MailMsg = MailMsg & Request.Form("Remodeling") & vbCRLF MailMsg = MailMsg & Request.Form("Addition") & vbCRLF MailMsg = MailMsg & Request.Form("Other") & vbCRLF MailMsg = MailMsg & Request.Form("Other_Text") & vbCRLF MailMsg = MailMsg & Request.Form("Comments") & vbCRLF Dim objCDO Set objCDO = Server.CreateObject("CDO.Message") objCDO.To = "info@arteriors.com" objCDO.From = "info@arteriors.com" objCDO.Subject = "Arteriors Information Request" objCDO.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDO.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.popp.net" objCDO.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objCDO.Configuration.Fields.Update objCDO.TextBody = MailMsg objCDO.Send set objCDO = Nothing '--- end of email sending Response.redirect "thanks.htm" End If %> Arteriors Architecture Information Request Form

Thank you for your interest in Arteriors Architecture.
Please feel free to contact us by telephone, fax, email,
or by submitting the form below.

Arteriors Architecture
2115 Morton Road
Minneapolis, MN 55391
Tel (952) 548-9800 · Fax (952) 548-9801

General Information

Name

Spouse Name

Address

City State Zip code

Daytime Phone

Evening Phone

Fax

Email

I am considering...

Building a new home
Remodeling an existing home
Adding on to an existing home
Other

Additional Comments or Questions?

Press the "Send Form Now" button above, when you have completed this form.