United Credit Source - Credit Repair Specialists

<% SUB sendmail( fromWho, toWho, Subject ) 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.TextBody = "Contact: " & Trim(Request.Form( "Contact") ) & vbCrLf _ & "Email: " & Trim(Request.Form( "fromWho") ) & vbCrLf _ & "Phone1: " & Trim(Request.Form( "Phone1") ) & vbCrLf _ ' & "Phone2: " & Trim(Request.Form( "Phone2") ) & vbCrLf _ ' & "Referred By: " & Trim(Request.Form( "Referred") ) objCDO.Send END SUB fromWho = TRIM( Request.Form( "fromWho") ) toWho = TRIM( Request.Form( "toWho") ) Subject = TRIM( Request.Form( "Subject" ) ) If toWho <> "" THEN sendMail fromWho, toWho, Subject Response.redirect "http://www.unitedcreditsource.com/IndexConfirm.asp" END IF ' Cleanup Set ObjCDO = Nothing Set iConf = Nothing Set Flds = Nothing %> United Credit Source - Credit Repair Specialists

HOME – PRIVACY

We appreciate you being a client of United Credit Source. Our goal is to make this process as simple as possible for you! We want you to relax and know that you have a trusted team working diligently on your behalf!

If you need any assistance during this process, please do not hesitate to contact us!

Submit a Question