 |
<%If Request.Form("txtName") <> "" Then
strName = Request.Form("txtName")
strPhone = Request.Form("txtPhone")
strAddress = Replace(Request.Form("txaAddress"),vbCrLf,"
")
strEmail = Request.Form("txtEmail")
Select Case Request.Form("cboInterested")
Case "0"
strInterested = "New Construction"
Case "1"
strInterested = "Addition"
Case "2"
strInterested = "Remodeling"
Case "3"
strInterested = "Furniture & Cabinetry"
End Select
msg = "Daeco Builders Contact from website"
msg = msg & "Daeco Builders,
"
msg = msg & "You have received a message from your contact page on daecobuilders.com.
"
msg = msg & "Contact Info:
"
msg = msg & "Name: " & strName & "
"
msg = msg & "Phone: " & strPhone & "
"
msg = msg & "Address: " & strAddress & "
"
msg = msg & "Email: " & strEmail & ""
msg = msg & ""
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.MailFormat = 0
objMail.BodyFormat = 0
objMail.To = "office@daecobuilders.com"
objMail.From = strEmail
objMail.Subject = "Daeco Builders Contact from website"
objMail.Body = msg
objMail.Send
Set objMail = nothing%>
| Contact Daeco Builders, Inc. |
|
| Thank you for contacting Daeco Builders, Inc. |
<%Else%>
<%End If%>
|
|
 |