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