udskrive TOP 10 recordset i nyhedsmail
HejsaJeg har et nyhedsmailmodul som udsender mails til nogle bestemt udvalgte i en db. I den mail vil jeg gerne have en liste med den pågælende brugers sidste 10 indbetalinger.
Jeg har følgende kode, som desværre ikke virker:
-----------------------------------------------
strSQL = "SELECT tbl_user.navn,tbl_user.login_id,email,konto_ialt from tbl_user,tbl_konto where konto_ialt <> 0 and tbl_user.login_id = tbl_konto.login_id"
Set res = Conn.Execute(strSQL)
Query= " SELECT TOP 10 * from tbl_indb where login_id=" & res("login_id")
Set ResInd = Conn.Execute(Query)
do while not res.eof
dato = left(dateadd("d", 14, now()),10)
Set objMail = Server.CreateObject("JMail.SMTPMail")
objMail.Silent = True
objMail.ServerAddress = "-"
objMail.Sender = "mail"
objMail.Subject = "faktura"
objMail.AddRecipient res("email")
objMail.HTMLBody = "<html><head><title></title></head><body vlink='#666666' link='#000000' bgcolor='#ffffff'>Hej " & res("navn") &"<p>Dette er din faktura fra denne måned. <p><b>Din saldo: " & res("konto_ialt") &" kr.</b><p>Beløbet bedes indbetalt senest den " & dato &" på følgende konto:<p>Reg: xxxx Konto: xxxxxxxxxxxx<p>Dine seneste indbetalinger:<p><table><tr><td>Dato</td><td>Beløb</td></tr>" & do while not ResInd.EOF &"<tr><td>" & ResInd("dato") &"</td><td>" & ResInd("beloeb") &""& ResInd.MoveNext loop &"<p>Tak for din deltagelse <p>Med venlig hilsen<p><p>-</body></html>"
objMail.execute
set objMail = nothing
Res.MoveNext
loop
resInd.close
set resInd = nothing
res.close
set res = nothing
-------------------------------------
Inde i HTML body har jeg et loop. Kan man ikke det?
På forhånd tak
Henrik
