<%
SUB sendmail( Name, Address, Phone, Email, Message )
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.Name = Name
objCDO.Address = Address
objCDO.Phone = Phone
objCDO.Email = Email
objCDO.Message = Message
objCDO.Send
END SUB
Name = TRIM( Request.Form( "Name") )
Address = TRIM( Request.Form( "Address") )
Phone = TRIM( Request.Form( "Phone" ) )
Email = TRIM( Request.Form( "Email") )
Message = TRIM( Request.Form( "Message") )
If toWho <> "" THEN
sendMail Name, Address, Phone, Email, Message
Response.redirect "http://www.unitedcreditsource.com/confirmation.html"
'Cleanup
Set ObjCDO = Nothing
Set iConf = Nothing
Set Flds = Nothing
END IF
%>
|
|
|
|
||||||||||||||||
About Us
|
Credit Restoration |
Client
Testimonials |
Current Clients
| Partner with
UCS |
Contact Us
©2010 United
Credit Source, Inc. - Dallas, TX