Hola, soy bastante nuevo y totalmente autodidacta en esto de ASP, y hasta ahora venia re bien, pero quiero hacer una aplicacion que envie un mail determinado a todos los usuarios que tengo en un tabla, y por alguna razon todo funciona bien, salvo que me manda solo al primer usuario de la tabla y no al resto, yo ya tengo el bocho completamente quemado, y no se me ocurren mas ideas o donde mas buscar info para aprender a hacerlo, asi que si alguien se copa y me da una mano,,, le voy a estar muy agradecido, aca les pego todo el codigo
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Documento sin título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<!--#include file="../../Connections/cnx_BD.asp" -->
<%
Dim rsClientes
Set rsClientes = Server.CreateObject("ADODB.Recordset")
rsClientes.ActiveConnection = MM_cnx_BD_STRING
rsClientes.Source = "SELECT * FROM Cliente1"
rsClientes.Open()
%>
<%
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "***********"
Mail.Username = "*********"
Mail.Password = "**********"
Mail.From = "
[email protected]"
Mail.FromName = "Departamento "
Mail.AddAddress ""&rsClientes("email")&""
Mail.Subject= "Hola"
Mail.Body ="<html><body bgcolor=#DDDDDD>Estimado Amigo,..."&rsClientes("email")&"</BODY></HTML>"
Mail.IsHTML = True
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Ha ocurrido un error: " & Err.Description
Else
Response.Write "Mensaje enviado con éxito "&rsClientes("email")&" <br> "
End if
If Not rsClientes.EOF Then
do while not rsClientes.EOF
'call sendMail(rsClientes(0))
rsClientes.moveNext
loop
End If
%>
</body>
</html>
Desde ya muchas gracias!!!!!!!!!