JMail

Halløjsjovs

Jeg har lige et problem, som jeg er sikker på at i eksperter kan hjælpe med. Jeg er interresseret i at lave en mailingsliste, ved hjælp af JMail. Jeg skal lave et udtræk fra min Ascess DB som indeholder alle mail-adresserne. Det går da også fint, men problemet er bare at det kun er en første post i databasen som modtager mailen. Er der noget med at der skal tilføjes et semikolon eller sådan noget i AddRecipient?
Min kode følger her:

<html>
<head>
<title>sendmail</title></head>
<body>
<p align="center"><font face="Arial, geneva" size="5"> Email Formular</font></p>

<%
dim Conn, Indhold

function OpenConn( DBName )

Set Conn = Server.CreateObject("ADODB.Connection")
ODBCpath = left(request.servervariables("PATH_TRANSLATED"), instrrev(request.servervariables("PATH_TRANSLATED"), "\"))
Conn.Open "DBQ=" & ODBCpath & DBName & ";DefaultDir=" & ODBCpath & ";Driver={Microsoft Access Driver (*.mdb)}"

end function

OpenConn("mail.mdb")
Set Indhold = Conn.execute("SELECT email FROM mail")
do until Indhold.EOF
%>

<%
set msg = Server.CreateOBject( "JMail.Message" )
msg.ContentType = "text/html"
msg.Logging = true
msg.silent = true

msg.From = "en@mail.dk"
msg.FromName = "Jens Fup"
msg.AddRecipient Indhold("email")


Indhold.MoveNext
loop
msg.Subject = "Mail-listen"

msg.appendText "Hejsa her er en mail"


if not msg.Send("xxx.xxxxxxxx.dk") then
    Response.write msg.log
else
    Response.Redirect("tak.asp")
    'Response.write( Recipient.EMail )

end if

%>
</body>
</html>