<%
dim submitted
submitted=0
if Request.Form("submit") = "submit" then
if Request.form("txtName") = "" or Request.form("txtEmail") = "" or Request.Form("txtPhone") = "" or Request.Form("txtMessage") = "" then
Response.write ""
else
Set objMail = Server.CreateObject("CDONTS.Newmail")
objmail.MailFormat = 0
objmail.BodyFormat = 0
objMail.To = "john@fullerarchitecture.com"
objMail.From = "Request.form(txtEmail)"
objmail.Subject = "Contact from Website"
strBody = strBody & "| Name: | " & request.Form("txtName") & " | " & vbCrLf
strBody = strBody & "| Email: | " & request.Form("txtEmail") & " | " & vbCrLf
strBody = strBody & "| Phone: | " & request.Form("txtPhone") & " | " & vbCrLf
strBody = strBody & "| Message: | " & request.Form("txtMessage") & " | " & vbCrLf
strBody = strBody & "
"
objMail.Body = strBody
objMail.Send
Set objMail = Nothing
Response.write ""
end if
end if
%>
|
