Ver Mensaje Individual
  #2 (permalink)  
Antiguo 12/01/2005, 10:47
Avatar de univercity
univercity
 
Fecha de Ingreso: noviembre-2002
Mensajes: 681
Antigüedad: 22 años, 5 meses
Puntos: 0
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><p><b><font face=verdana size=1 color=#0066cc>" & c
cuerpo1= "</font></b></p><font face=verdana size=1 color=#000000><p>Un nuevo proceso de asignacion ha comenzado Ud. cumple con las condiciones del contrato con</p><p>" & b
Cuerpo2 = cuerpo & cuerpo1 & "<p>le invitamos a Aceptar ó Rechazar este contrato directamente en <a href=http://www.vmaule.com>www.vmaule.com</a></p><p><b>El equipo Vmaule.com</b></p><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

%>


<p><font size="1" face="Verdana">La Informacion solicitada a sido enviada a <b><%=rst4("email")%></b>, Gracias por Utilizar nuestro sistema.</font></p>
__________________
"Lo importante es nunca dejar de hacerse preguntas"
Albert Einstein