Formulario de comentarios en ASP

LedideR · #1 (**permalink**) 12/01/2005, 09:01

Hola, bueno la verdad es que no entiendo mucho de ASP, pero me surgio un problema, y nesesito de forma urgente un script de envio de comentarios a un correo electronico, espero que puedan ayudarme, se los agradeceria mucho. Gracias de antemano.

univercity · #2 (**permalink**) 12/01/2005, 10:47

El formulario de envio lo haces tu, aqui esta el scripts que te recibe los datos y lo envia al mail, utiliza Cdonts.

espero te sirva...

<%

a =request.form("email")
b = request.form("comentario")
c = request.form("nombre")
de = "escribe quien envia aqui, tu mail"
asunto ="Comentario"

cuerpo ="<html><img src=http://www.vmaule.com/images/LOGO3.jpg>" & c
cuerpo1= "Un nuevo proceso de asignacion ha comenzado Ud. cumple con las condiciones del contrato con" & b
Cuerpo2 = cuerpo & cuerpo1 & "le invitamos a Aceptar ó Rechazar este contrato directamente en <a href=http://www.vmaule.com>www.vmaule.com</a>El equipo Vmaule.com<img src=http://www.vmaule.com/imagenes/productores.jpg></html>"

set mailObj = Server.CreateObject("CDONTS.NewMail")

mailObj.BodyFormat = 0
mailObj.MailFormat = 0

'If (rsbody("Format") = "Text") Then
'mailObj.BodyFormat = 1
'mailObj.MailFormat = 1
'Else
'mailObj.BodyFormat = 0
'mailObj.MailFormat = 0
'End If

mailObj.From = de
mailObj.To = a
mailObj.Subject = asunto
mailObj.Body = c
mailObj.Body = cuerpo2
mailObj.Send

%>

La Informacion solicitada a sido enviada a <%=rst4("email")%>, Gracias por Utilizar nuestro sistema.

univercity · #3 (**permalink**) 12/01/2005, 10:49

debes cambiar obviamente el html, del texto que yo le tengo configurado, yo le borre mucho codigo y lo deje para lo que tu necesitas...
o por lo menos lo que te entendí
slds.