FFG: Resource Center

<% SUB sendmail( fromWho, toWho, Subject, Body ) Dim objCDO Dim iConf Dim Flds Const cdoSendUsingPort = 2 Set objCDO = Server.CreateObject("CDO.Message") Set iConf = Server.CreateObject("CDO.Configuration") Set Flds = iConf.Fields With Flds .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "mail-fwd" .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPconnectiontimeout) = 10 .Update End With Set objCDO.Configuration = iConf objCDO.From = fromWho objCDO.To = toWho objCDO.Subject = Subject objCDO.HTMLBody = "Name:"& names &"
"_ & VBCrLf & "Email: " & fromWho & "
"_ & CBCrLf & "Comments: "& comments & "
" objCDO.Send END SUB fromWho = TRIM( Request.Form( "email") ) toWho = TRIM( Request.Form( "recipient") ) Subject = TRIM( Request.Form( "subject" ) ) names = TRIM( Request.Form( "names" ) ) comments = TRIM( Request.Form( "comments" ) ) comments = Replace(comments, chr(10), "
") If toWho <> "" THEN sendMail fromWho, toWho, Subject, Body 'Cleanup Set ObjCDO = Nothing Set iConf = Nothing Set Flds = Nothing Response.redirect "thanks.html" ' Any existing page can be used for the response redirect method END IF %> FFG: Resource Center







	newsletter sign-up

Newsletter Sign-Up

Please fill out the following form to join our mailing list.