SCIF Solutions

<% strMessage = Request.Form ("Company") strMessage = strMessage & vbCRLF & Request.Form ("Name") strMessage = strMessage & vbCRLF & Request.Form ("Title") strMessage = strMessage & vbCRLF & Request.Form ("Phone") strMessage = strMessage & vbCRLF & Request.Form ("Email") SUB sendmail( fromWho, toWho, Company, Name, Title, Phone, Email) 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) = MailServer .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPconnectiontimeout) = 10 .Update End With Set objCDO.Configuration = iConf objCDO.From = "info@scifsolutions.com" objCDO.To = "anne@techgrrl.com; paquinb@scifsolutions.com" objCDO.Subject = "SCIF Quote Request Form" objCDO.TextBody = strMessage objCDO.Send END SUB Dim Domainname Dim MailServer Dim From Domainname = "scifsolutions.com" MailServer = "mail-fwd" From = "info@scifsolutions.com" fromWho = Request.Form( "fromWho") + "@scifsolutions.com" toWho = Request.Form( "toWho") + "@scifsolutions.com" Subject = TRIM( Request.Form( "Subject" ) ) Company = TRIM( Request.Form( "Company") ) Title = TRIM( Request.Form( "Title") ) Name = TRIM( Request.Form( "Name") ) Phone = TRIM( Request.Form( "Phone") ) Email = TRIM( Request.Form( "Email") ) Website = TRIM( Request.Form( "Website") ) Comments = TRIM( Request.Form( "Comments") ) send_mail = Request.Form( "send_mail") If send_mail <> "" THEN sendMail fromWho, toWho, Company, Name, Title, Phone, Email 'Cleanup Set ObjCDO = Nothing Set iConf = Nothing Set Flds = Nothing END IF %> SCIF Solutions