Ansending af nyhedsbrev og tilføj nyhed til database

Hvorfor sendes der KUN email ud til den første post i databasen der indeholder emailadd.

Det hele bliver sendt som det skal til den første i databasen, men der bliver ikke lavet et loop, hvorved der skulle blive sendt emails ud til de andre i databasen


Selve nyheder bliver fint sendt ned i en anden database som den skal.

<%@ LANGUAGE="VBSCRIPT" %>

<%if not session("Inde") then response.redirect "../../startside.htm"%>
   



<% mode = request("mode") %>
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("Artikler.mdb") & ";UID=admin;PWD=;"

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From Artikel"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>
 

<% if mode ="" then %>
                <form action="ny-artikel.asp?mode=send&action=submit" method="POST" NAME="newtag" onSubmit="return CheckForm();"



    <input type="Submit" value="Send" name="submitbutton"></td>
</tr>
</table>
</form>

<% end if %>
       
               
<% if mode ="send" then
      rs.AddNew
      rs("overskrift") = Request.form("overskrift")
      rs("Sted") = Request.form("Sted")
      rs("info") = Request.form("info")
      rs("navn") = Request.form("navn")
      rs("afdeling") = Request.form("afdeling")
      rs("Vis") = Request.form("Vis")
      rs("dato") = date()
      rs.Update

rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing


Set DataConn = Server.CreateObject("ADODB.Connection")
Set data = Server.CreateObject("ADODB.Recordset")


DataConn.Open "DBQ=" & Server.Mappath("mail.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

MYSQL = "SELECT * FROM mail"

data.Open MYSQL, DataConn , 0, 1

Do Until data.EOF


Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = "mail.xxxx.dk"
Mailer.FromName = "xxxxx"
Mailer.FromAddress = "xxxx@xxxx.dk"
Mailer.AddRecipient data("navn"), data("email")
Mailer.Subject = Request.form("overskrift")
Mailer.BodyText = Request.form("info")
Mailer.CharSet = 2

data.MoveNext
Loop
%>



<% 
            if not Mailer.SendMail then
            Response.Write " Mailing Failed... Error is: <br>"
              Response.Write Mailer.Response
            else
              Response.Write " sent successfully...<p>"
            end if
            Set Mailer = nothing
        %>