Enviar mail p/ vários users usando aspemail?

Vilmar,
estou usando um script que tu me enviou, só que com acesso a um banco de dados. só que tu pode fazer um array com os e-mails que tu quer enviar e alterar para teu uso.
P.S.: estou buscando informações de uma outra página.
<%
function email()
dim nome, id, para, de, Mail, assunto, titulo, remetente
remetente = Request.Form("remetente")
titulo = request.Form("titulo")
assunto = request.Form("assunto")
Dim SQL1 '""Usada no acesso a BD.
Dim TotalGeral1,DivididoGeral1,I1,ATCod1 '""Usadas na instrução SQL.
'""Recebe os valores de todos os checkboxes marcados, montando assim um array.
TotalGeral1 = Request("chk")
'""INÍCIO: Consistência geral.
If TotalGeral1 = "" then
Response.Write ""
Response.End()
End If
'""FIM: Consistência geral.
DivididoGeral1 = Split(TotalGeral1, ",", -1, 1) 'esta função split divide uma string em várias partes criando um array
For I1 = 0 to ubound(DivididoGeral1)
ATCod1 = ""
ATCod1 = DivididoGeral1(I1)
' SQL =
Dim Rs1
Dim Rs1_numRows
Set Rs1 = Server.CreateObject("ADODB.Recordset")
Rs1.ActiveConnection = Connection
Rs1.Source = "SELECT * FROM tabela WHERE id = " + Replace(ATCod1, "'", "''") + ""
Rs1.CuRsorType = 0
Rs1.CuRsorLocation = 2
Rs1.LockType = 3
Rs1.Open()
Rs1_numRows = 0
On Error Resume Next

nome = Rs1.fields("nome")
para = Rs1.fields("email")

Set Mail = Server.CreateObject("PeRsits.MailSender")
Mail.Host = "127.0.0.1"
Mail.From = "seuemail@provedor.com"
Mail.FromName = remetente
Mail.AddAddress para
Mail.Subject = titulo
Mail.Body = "<HTML><BODY BGCOLOR=#ff6699><center>
aqui você pode usar várias instruções html que vai belza...
</BODY></HTML>"
Mail.IsHTML = True
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Ocorreu o seguinte erro: " & Err.Description
End If
next

response.write "E-mail(s) enviado(s) com sucesso!"
end function
%>

Espero que ajude.