Nyhedsmail ud fra denne kode

Hey!

jeg har nedenstående kode som jeg har fundet her i en tråd på eksperten. Har rodet med den, men har ikke kunnde få det til at virke. Skal bruge den i et nyhedsystem.

Har en database som lyder følgende:
TABEL: nyhedsbrev
ID  EMAIL
1  demo@demo.dk
2  demo1@demo.dk
3  demo2@demo.dk

Hvordan omkriver jeg koden, så den sender ud til de mail der er i min database


<%
if request.servervariables("REQUEST_METHOD") = "POST" Then

Email = request.form("email")
ENavn = " VisualCoder "
subject = "test af jmail på itrade.dk"
BodyTextto = " VisualCoder "
FromNavn = " VisualCoder "
FromMail = "admin@inetpost.dk"
SMTPNavn = "pasmtp.tele.dk"
grundnr ="0000"
mailnr=1
mailmax = 1000
loopmax = mailmax
Session.Timeout = 40
Server.ScriptTimeout =1800

for loopcounter = 1 to loopmax       

    response.write("<br><br>jmail objekt dannes " & now & "<br><br>")
    '-------------- start------------------------
    ' dimarc 4.3 JMAIL
    Set JMail = Server.CreateOBject( "JMail.Message" )
    JMail.Logging = false
    JMail.silent = falsea
    JMail.From = FromMail
    JMail.FromName = FromNavn
    JMail.Priority      = 3
    JMail.AddHeader    "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
   
    ' ---------------------Loop del ----------------------

        'do while mailnr <= Int(mailmax)
            taeller = " " & left(grundnr,4-len(cstr(mailnr))) & cstr(mailnr)
            mailnr= mailnr+1
            JMail.Subject      = subject & taeller
            JMail.AddRecipient Email, Enavn
            JMail.Body="Velkommen " & Enavn & " " & BodyTextto & taeller
            if not JMail.Send(SMTPNavn) then
                Response.write "<pre>" & JMail.log & "</pre>"
            else
                Response.write "Mail OK" & "-->"
                Response.write Email  & "<b>"  & "-->"
                Response.write subject  & taeller & "-->"
                Response.write BodyTextto & "</b>"
            end if
            If (mailnr MOD 20) = 0 then
                JMail.Close()
                Response.write ("<br>Con Lukket : " & now  & "<br>" )
                Response.flush
                If Response.isclientconnected()=false THEN
                    Response.Write "Vi tabte forbindelsen .... "
                    'EXIT DO
                    exit for
                END IF
                'set jmail = nothing
                'exit do
            end if
        'loop
       
        'response.write("gennemløb nr " & loopcounter & " lukker nu " & now  & "<br>" )       
        'response.flush
        'if mailnr = mailmax then exit for
       
next

'-------------------------- slutstadie ---------------------------------------
set JMail = nothing
else
%>
        jmail tester 1000 mails
<form method="post" action="default.asp" >
Email der skal sendes til&nbsp:&nbsp&nbsp<input type="text" name="email" size="50" maxlength ="50">
<input type="submit" value="Start Jmail" name="start">
</form>       
       
       
       
        <%end if%>