Accredited

   Collection

        Services, Inc


Home
Services
Litigation
Fees
Contact Us
Client Application
Career Opportunities
Welcome

Please fill out the form below if you would like to retain our services for your company.  We will contact you for further information.

 

 <% Function RemoveHTML(strText) Set objRE = createObject("VBScript.RegExp") objRE.Pattern = "\<[^\>]*\>" objRE.Global = true objRE.IgnoreCase = true RemoveHTML = objRE.Replace(strText,"") End Function If Request.ServerVariables("REQUEST_METHOD") = "POST" Then For Each Item In Request.Form EscriboCuerpoMensaje = EscriboCuerpoMensaje & "" & Item & ": " & Request.Form(Item) & "
" & VbCrlf Next Set ObjSendMail = CreateObject("CDO.Message") 'This section provides the configuration information for the remote SMTP server. ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network). ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="192.168.254.103" ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False) ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ' If your server requires outgoing authentication uncomment the lines bleow and use a valid email address and password. 'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication 'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="" 'ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="" ObjSendMail.Configuration.Fields.Update 'End remote SMTP server configuration section== ObjSendMail.To = "acsmoney@qwest.net" ' a quien se le envia el correo ObjSendMail.Subject = "Client Application" ' asunto ObjSendMail.From = "acsmoney@qwest.net" ' el que envia el correo ' we are sending a text email.. simply switch the comments around to send an html email instead ObjSendMail.HTMLBody = EscriboCuerpoMensaje 'cuerpo HTML 'ObjSendMail.TextBody = RemoveHTML(EscriboCuerpoMensaje) ' cuerpo texto ObjSendMail.Send Set ObjSendMail = Nothing Response.Write "" Else %>

Client Application
Company
First Name
Last Name
Phone Number
Fax Number
Street Address
City
State
Zip Code
Type of Business
<%End If%>

Copyright © 2005 Accredited Collection Services, Inc