<%@ Language=VBScript %> <% Option Explicit %> <% Dim sch, cdoConfig, cdoMessage, strHTMLBody, strTextBody, blnHTML, strMailingList If Request.ServerVariables("REQUEST_METHOD") = "POST" Then blnHTML = True ' Set this to true to send HTML Email If Request.Form("nomail") = "No" Then strMailingList = "No" Else strMailingList = "Yes" End If '################################################################### '## This is the Text Version that would be sent as the E-mail Body '## if blnHTML is set to False '################################################################### strTextBody = "First Name: " & Request.Form("fname") & vbcrlf _ & "Last Name: " & Request.Form("lname") & vbcrlf _ & "E-Mail Address: " & Request.Form("email") & vbcrlf _ & "Phone Number: " & Request.Form("phone") & vbcrlf _ & "Join Mailing List: " & strMailingList & vbcrlf & vbcrlf _ & "Mailing Address: " & vbcrlf _ & Request.Form("mailingaddress") & vbcrlf & vbcrlf _ & "Comments: " & vbcrlf _ & Request.Form("comments") & vbcrlf '################################################################### '## This is the HTML Version that would be sent as the E-mail Body '## if blnHTML is set to True '################################################################### strHTMLBody = "" _ & " " _ & " " _ & " " _ & " " _ & " " _ & " " _ & " " _ & " " _ & " " _ & " " _ & " " _ & " " _ & " " _ & " " _ & " " _ & " " _ & " " _ & " " _ & " " _ & " " _ & " " _ & " " _ & " " _ & " " _ & " " _ & " " _ & " " _ & " " _ & " " _ & " " _ & " " _ & " " _ & "
New Feedback Message from Website (" & Now() & ")
First Name:" & Request.Form("fname") & "
Last Name:" & Request.Form("lname") & "
E-Mail Address:" & Request.Form("Email") & "
Phone Number:" & Request.Form("phone") & "
Join Mailing List:" & strMailingList & "
Mailing Address:" & Replace(Request.Form("mailingaddress"), vbcrlf, "
") & "
Comments:" & Replace(Request.Form("comments"), vbcrlf, "
") & "
" sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = Server.CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2 ' cdoSendUsingPort .Item(sch & "smtpserver") = "127.0.0.1" .update End With Set cdoMessage = Server.CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = "AllAmericanFloorsInc.com - Feedback " .To = "" .Subject = "Website Inquiry" If blnHTML = True Then .HTMLBody = strHTMLBody Else .TextBody = strTextBody End If .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing Response.Redirect("http://www.AllAmericanFloorsInc.com/Thanks.htm") End If %> All American Floors contact form
 

Contact Us for more info, quotes, etc.

" method="POST">

First Name:

Last Name:

E-Mail Address:

Telephone Number:

Mailing address:

Comments or Questions:

If you do not wish to be on our mailing list, please click here.