Dynamiske Emails med Jmail

Hejsa eksperter!!

Jeg er ved at lave en mailingliste som arbejder udfra en accessdatabase!

I databasen er der to tabeller "kunder_tid" og "tekster"

I tabellen "kunder_tid" er et felt som hedder "servicetid" i dette felt står der tallene "1, 2, 3 op til 30"

I tabellen "tekster" er der et felt der hedder TID som også går fra 1-30.

Scriptet skal så sende data fra tabellen "teskter" hvor "TID" fra tekster og "servicetid" fra kunder_tid stemmer overens!

Jeg har forgæves prøvet at få det til at virke, men kan kun få det til at virke hvis jeg laver TID og Service id til en fast value og gentager scriptet 30 gange - som overhovedet ikke er optimalt!  håber der er nogle der kan hjælpe!!

Scriptet uden tabellen tekster står forneden!!

--------------------------------------------------------
<%
if request("mode") = "send" then

Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "DBQ="&(Server.MapPath(".")) &"\database\rygning.mdb; DefaultDir=DBQ="&(Server.MapPath(".")) &"\;Driver={Microsoft Access Driver (*.mdb)};"
    SQL = "SELECT * from kunder_tid WHERE servicestart = 1;"
    set send = conn.execute( SQL )
    do while not send.eof
    on error resume next
        Set JMail = Server.CreateObject("JMail.SMTPMail")
        ' This is my local SMTP server
        JMail.ServerAddress = "websmtp.andersenit.dk"
   
        ' mail config settings
        JMail.Charset = "iso-8859-1"
        JMail.ContentTransferEncoding = "8bit"
       
        JMail.ContentType = "text/html"
        JMail.Sender = "stoprygning@stop.dk"
        JMail.Subject = sider.Fields.Item("SOverskrift")
        JMail.AddRecipient send("Kemailadresse")
        JMail.Body = sider.Fields.Item("Sbeskrivelse")
       
        ' 1 - highest priority (Urgent)
        ' 3 - normal
        ' 5 - lowest
       
        JMail.Priority = 3
       
        ' Send it...
        JMail.Execute
        set JMail = nothing

response.write "<FONT FACE='Arial' SIZE='2' COLOR='#000000'><STRONG>E-mail er sendt til : "& send("Knavn") &"</STRONG></FONT><BR>"
send.movenext
loop
conn.close
else %>
<% end if %>