%if request.form("send")="SEND" then
msg="
"
msg=msg & "First Name: " & request.Form("firstname") & "
"
msg=msg & "Last Name: " & request.Form("lastname") & "
"
msg=msg & "Email: " & request.Form("email") & "
"
msg=msg & "Company: " & request.Form("firstname") & "
"
msg=msg & "Phone: " & request.Form("phone") & "
"
msg=msg & "Comments: " & Replace(request.form("comments"), Chr(13), "
") & "
"
msg=msg & ""
Set myMail = Server.CreateObject("CDONTS.NewMail")
myMail.From = "contact@floorsolutions.ca"
myMail.To = "fforte@floorsolutions.ca"
myMail.Subject = "Contact Page Submission"
myMail.BodyFormat = 0
myMail.MailFormat = 0
myMail.Body = msg
myMail.Send
set myMail = nothing
Set myMail = Server.CreateObject("CDONTS.NewMail")
myMail.From = "contact@floorsolutions.ca"
myMail.To = "david@floorsolutions.ca"
myMail.Subject = "Contact Page Submission"
myMail.BodyFormat = 0
myMail.MailFormat = 0
myMail.Body = msg
myMail.Send
set myMail = nothing
%><%
end if%>