<% 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 Restoration

HOME PRIVACY                  

 

     
 

"> Call Us Now!
1-866-757-5190

NAME

PHONE

*EMAIL


 
 
 
 
   


 

  PARTNER WITH UCS

PARTNER TESTIMONIALS


PARTNER LOGIN

 

As a valued partner with United Credit Source, we appreciate your continued support! Our goal is to help all of our clients in achieving a solid credit score, which should ultimately have a positive impact on their financial future! So, thank you, for participating in the effort to help those in your pipeline achieve financial success!

 

 



About Us | Credit Restoration Client Testimonials | Current Clients | Partner with UCS | Contact Us

©2010 United Credit Source, Inc. - Dallas, TX