<% ' Envio de correo usando ASPEmail en formato Texto. Dim message br = vbCrLf 'Salto de Linea If Request("Send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") 'Enter valid SMTP host ==> smtp.triara.com, No mover IP Mail.Host = "smtp.condelmex.com" 'Authentification Mail.Username = "prueba@condelmex.com" Mail.Password = "valdomx" Mail.From = "prueba@condelmex.com" Mail.FromName = "Formulario" ' enviar a destinatario Mail.AddAddress "prueba@condelmex.com" ' message subject Mail.Subject = "Envio de correo desde el Web" 'message body 'Creamos la variable message con todos los datos message = "" message = message + " " + FormatDateTime(Date) + br + br message = message + "Nombre = " + Request("nombre") + br message = message + "Empresa = " + Request("empresa") + br message = message + "Teléfono = " + Request("tel") + br message = message + "Fax = " + Request("fax") + br message = message + "Email = " + Request("email") + br message = message + "Dirección = " + Request("direccion") + br message = message + "Ciudad = " + Request("ciudad") + br message = message + "Estado = " + Request("estado") + br + br message = message + "Comentarios = " + Request("comentarios") + br message = message + "Formulario." Mail.Body = message On Error Resume Next Mail.Send If Err <> 0 Then Response.Write "Error encontrado: " & Err.Description Else Response.buffer=true Response.redirect "gracias.html" End If End If %>

55 69 - 87 00

56 99 - 12 00

55 69 - 11 20

57 55 - 16 52

55 69 - 33 36

57 55 - 94 99

*Nombre y Apellidos :

*E-Mail:

Empresa:

Teléfono:

*Asunto:

*Detalles:

* Campos obligatorios

Condelmex, S.A. de C.V.
Antigua Carretera a Pachuca Km. 12.5 No. 148, Col. Cuauhtémoc, Ecatepec, Estado de México, México. C.P. 55310
©2008 Condelmex. Es una marca registrada. Las marcas y los logotipos aqui publicados son propiedad de sus respectivas compañías.