% 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.TextBody = Body objCDO.Send END SUB fromWho = TRIM( Request.Form( "email") ) toWho = "patron@architecture.org" Subject = "Patron Nomination Form" Body = TRIM( Request.Form( "Project") ) & _ "|" & TRIM( Request.Form( "Patron") ) & _ "|" & TRIM( Request.Form( "Name") ) & _ "|" & TRIM( Request.Form( "Category") ) & _ "|" & TRIM( Request.Form( "Organization") ) & _ "|" & TRIM( Request.Form( "Address") ) & _ "|" & TRIM( Request.Form( "Address2") ) & _ "|" & TRIM( Request.Form( "Phone") ) & _ "|" & TRIM( Request.Form( "Email") ) If FromWho <> "" THEN sendMail fromWho, toWho, Subject, Body 'Cleanup Set ObjCDO = Nothing Set iConf = Nothing Set Flds = Nothing Response.redirect "formthanks.html" ' Any existing page can be used for the response redirect method END IF %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||