<% 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 = "ami_modas@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 CHIQUIMODA EN BREVE NOS COMUNICAREMOS CON USTED") Else %>

E-mail:

Nombre:

Teléfonos:

Mensaje:

<% End If %>