Ufff. es un poco largo explicar todo, pero haber si tienes alguna experiencia en esto, y lograr entender este codigo, psra que lo utilizes a tu antojo, puedes hacer que recoja los valores desde el Form, y los mande a tu nuevo suscriptor, pero debes destriparlo, un poco, y sarle algunas cosas, perdana pero, pero el hacerlo yo en este momento sería muy largo...
si te complicas, avisame y teniendo un tiempito lo hacemos...
<%
xy = request.querystring("contrato")
sqltext2 = "SELECT * FROM tabla1 where contrato='"& xy &"'"
'sqltext2 = "SELECT * FROM tabla1"
rst2.Open sqltext2,cnn2
Do While Not rst2.eof
rut = rst2("rut")
sqltext4 ="SELECT * FROM tabla1 where rut="& rut &""
rst4.Open sqltext4,cnn4,3,3
a =rst4("email")
b = rst2("cliente")
c = rst4("nombre")
de = "
[email protected]"
asunto ="Un nuevo contrato"
cuerpo ="<html><img src=http://www.tupagina.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.tupagina.com>
www.tupagina.com</a></p><p><b>El equipo Vmaule.com</b></p><img src=http://www.tupagina.com/imagenes/productores.jpg></html>"
Do While Not rst4.eof
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 'RSBODY("Email")
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>
<%
RSt4.movenext
loop
rst4.close
RSt2.movenext
loop
rst2.close
%>
</body>
</html>