
09/01/2005, 01:24
|
 | | | Fecha de Ingreso: noviembre-2002
Mensajes: 681
Antigüedad: 22 años, 6 meses Puntos: 0 | |
<%
dim dsn
dim Conn
dsn="DBQ=" & Server.Mappath("../dbtravi/em.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dsn
'Server.ScriptTimeout = 1000000
Dim rs, rsbody, sql
Set RS = Server.CreateObject("ADODB.Recordset")
Set RSBODY = Server.CreateObject("ADODB.Recordset")
SQL2 = "SELECT top 1 * from tabla2 order by id desc"
RSBODY.Open SQL2, Conn, 1, 3
SQL = "SELECT * FROM tabla1"
RS.open SQL, conn
Do While Not RS.eof
set mailObj = Server.CreateObject("CDONTS.NewMail")
If (rsbody("Format") = "Text") Then
mailObj.BodyFormat = 1
mailObj.MailFormat = 1
Else
mailObj.BodyFormat = 0
mailObj.MailFormat = 0
End If
mailObj.From = rsbody("de") 'RSBODY("Email")
mailObj.To = RS("Email")
mailObj.Subject = rsbody("asunto")
mailObj.Body = RS("nombre")
mailObj.Body = Rsbody("mensaje1")
mailObj.Send RS.movenext
loop
%>
Este es codigo que yo utilizo, trabaja con Cdonts, habro una base de datos y 2 tablas (por siaca)
espero te sirva...
__________________ "Lo importante es nunca dejar de hacerse preguntas"
Albert Einstein |