<%
' The form can be sent to multiple E-mail address by delimiting multiple eTo addresses with a |
eTo = "devinforeq@haynesconstruction.com"
eSubject = "Meadow Brook Estates Information Request"
eFinalURL = "http://www.meadow-brook.com/thankyou.html"
''''''''''''''''''''''''''''''''''''
IF Request.Form("Email") <> "" THEN
'email comment form
eFrom = Request.Form("Email")
eHTML = "The following information was submitted via your online form."
FOR EACH formItem in Request.Form
IF formItem <> "btnsubmit" AND formItem <> "config" AND Request.Form(formItem) <> "" THEN
eHTML = eHTML & REPLACE(formItem,"_"," ") & ": " & Request.Form(formItem) & "
"
END IF
NEXT
eHTML = "
" & eSubject & "" & eHTML & ""
IF Request.Form("config") <> "" THEN
arrConfig = SPLIT(Request.Form("config"),"|")
eTo = arrConfig(0)
eSubject = arrConfig(1)
eFinalURL = arrConfig(2)
END IF
EToArr = SPLIT(eTo,"|")
FOR i = 0 to UBOUND(EToArr)
IF INSTR(eFrom,"@") = 0 THEN
eFrom = "not@valid.com"
END IF
sendMail = SENDMailCDOSYS(EToArr(i),eFrom,eSubject,eHTML)
NEXT
Response.Redirect(eFinalURL)
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
.From = eFrom
.Subject = eSubject
.HTMLBody = eHTML
.Send
END WITH
SET iMsg = Nothing
SET iConf = Nothing
SET Flds = Nothing
END FUNCTION
%>
Contact Us
