<%@ Language=VBScript %>
<%
SET Listado = Server.CreateObject("Scripting.Dictionary")
IF Request.ServerVariables("REQUEST_METHOD") = "POST" THEN
FOR EACH ite IN Request.Form
Listado.Item(ite) = Request.Form(ite)
'//** Response.Write(" ite--> "&ite&" Valor---> "&Request.Form(ite))
NEXT
Listado.Item("Cuerpo") = " ENVIA: " & Listado.Item("required-nombre") & ". E-Mail: " & Listado.Item("required-email") & " TELEFONO: " & Listado.Item("required-telefono") & "///EQUIPO: " & Listado.Item("required-nombre2") & "COMENTARIO:" & Listado.Item("comentario")
'//** CREAR EL OBJETO PARA ENVIAR EL E-MAIL
SET ObjSend = Server.CreateObject("Persits.MailSender")
IF IsObject(ObjSend) THEN
ObjSend.FromName = Listado.Item("required-email")
ObjSend.From = "publicate@maquinariasweb.com"
ObjSend.Host = "mail.maquinariasweb.com"
ObjSend.AddAddress "publicate@maquinariasweb.com"
ObjSend.subject = Listado.Item("destino")
ObjSend.Body = Listado.Item("Cuerpo")
IF ObjSend.Send THEN
Response.Redirect("GRACIAS.HTM")
ELSE
Response.Write(" Ocurrió el error: "&ObjSend.Response)
END IF
END IF
END IF
%>
Solicitud de equipos