La fuerza de la Perseverancia....

<% If request("submit") <> "" THEN Set objEMail = Server.CreateObject("CDO.Message") Set objConfig = Server.CreateObject("CDO.Configuration") Set Confi = objConfig.Fields Confi("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 Confi("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:\inetpub\mailroot\pickup" Confi.Update Set objEMail.Configuration = objConfig objEMail.To = "buzon@mujeryempresa.com" objEMail.From = Request("from") objEMail.Subject = Request("subject") objEMail.TextBody = Request("message") objEMail.Send Set objEMail = Nothing Response.Write("GRACIAS POR COMUNICARSE CON NOSOTRAS") Else %>

Escribenos tu mensaje aquí:

E-mail:

Asunto:

Nombre:

Empresa:

Dirección:

Teléfono:

Mensaje:

Si no tienes correo escribe tu nombre

Empresa, Organización, Institución o tu actividad principal

<% End If %>