Mail script - hvordan sender jeg til flere emails

jeg kan ikke få scriptet til at sende til alle Emails - den sender kun til den sidst oprettede. Hvordan sender jeg til alle sammen - uden at emailsene vises i "To:" feltet når man modtager mailen.

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../../Connections/scandlines.asp" -->
<%
Dim rsNyhedsbrev
Dim rsNyhedsbrev_numRows

Set rsNyhedsbrev = Server.CreateObject("ADODB.Recordset")
rsNyhedsbrev.ActiveConnection = MM_scandlines_STRING
rsNyhedsbrev.Source = "SELECT * FROM Nyhedsbreve ORDER BY IDnyhedsbreve DESC"
rsNyhedsbrev.CursorType = 0
rsNyhedsbrev.CursorLocation = 2
rsNyhedsbrev.LockType = 1
rsNyhedsbrev.Open()

rsNyhedsbrev_numRows = 0
%>
<%
Dim rsEmails
Dim rsEmails_numRows

Set rsEmails = Server.CreateObject("ADODB.Recordset")
rsEmails.ActiveConnection = MM_scandlines_STRING
rsEmails.Source = "SELECT Email FROM Nyhedsbrev ORDER BY IDnyhedsbrev DESC"
rsEmails.CursorType = 0
rsEmails.CursorLocation = 2
rsEmails.LockType = 1
rsEmails.Open()

rsEmails_numRows = 0
%>
<%
Overskrift = (rsNyhedsbrev.Fields.Item("Overskrift").Value)
Tekst = (rsNyhedsbrev.Fields.Item("Tekst").Value)
Dato = (rsNyhedsbrev.Fields.Item("Dato").Value)
Mail = (rsEmails.Fields.Item("Email").Value)

    Set JMail                 = Server.CreateObject("JMail.SMTPMail")
    JMail.ContentType        = "text/html"
    JMail.ServerAddress        = "websmtp.border-wines.dk"
    JMail.AddRecipient        Mail
    JMail.Sender            = "Border-Wines"
    JMail.Subject            = "Nyhedsbrev fra Border-Wines"
   
JMail.Body = "<font size='2' face='Verdana'>" &_
"<strong>" &_
Overskrift &_
"</strong>" &_
"<br>" &_
"<br>" &_
Tekst &_
"<br>" &_
"</font>"

    JMail.Priority = 3
    JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
    JMail.Execute
    Response.Redirect "http://www.fzy.dk"

%>
<%
rsNyhedsbrev.Close()
Set rsNyhedsbrev = Nothing
%>
<%
rsEmails.Close()
Set rsEmails = Nothing
%>