<%
IF Request.Form("email") <> "" THEN
FOR EACH fld in Request.Form
IF fld <> "s" THEN
body = body & fld & ": " & Request.Form(fld) & " "
END IF
NEXT
body = "" & body & ""
sendMail = SENDMailCDOSYS("info@haynesconstruction.com",TRIM(Request.Form("Email")),"Contact Us Form Submission",body)
END IF
FUNCTION SendMailCDOSYS(eTo,eFrom,eSubject,eHTML)
SET iMsg = CreateObject("CDO.Message")
SET iConf = CreateObject("CDO.Configuration")
SET Flds = iConf.Fields
Flds("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True
Flds.Update
WITH iMsg
SET .Configuration = iConf
.To = eTo ' """User A"" "
.From = eFrom ' """User B"" "
.Subject = eSubject
.HTMLBody = eHTML
.Send
END WITH
SET iMsg = Nothing
SET iConf = Nothing
SET Flds = Nothing
END FUNCTION
%>
About Haynes
