Skippe et record set hvis det er tomt

while not recordset.eof


loop

det var vist et svar

bare husk at lave en recordset.movenext inde i loopet ellers laver det lidt ballade

while not recordset.eof
  kode
  recordset.movenext
loop

prøv at kigge på min kode så får du bedre indtryk af mit problem...

<%
Server.ScriptTimeOut = 300
SQL1 = "Select * from Nyheder where ID = "&request.form("news")&""
Set RS1 = Conn.execute(SQL1)
SQL2= "Select * from Mail where"
SQL2 = SQL2 & " (Kat01 = '"&request.form("Kategori")&"')"
SQL2 = SQL2 & " OR (Kat02 = '"&request.form("Kategori")&"')"
SQL2 = SQL2 & " OR (Kat03 = '"&request.form("Kategori")&"')"
SQL2 = SQL2 & " OR (Kat04 = '"&request.form("Kategori")&"')"
SQL2 = SQL2 & " OR (Kat05 = '"&request.form("Kategori")&"')"
SQL2 = SQL2 & " OR (Kat06 = '"&request.form("Kategori")&"')"
SQL2 = SQL2 & " OR (Kat07 = '"&request.form("Kategori")&"')"
SQL2 = SQL2 & " OR (Kat08 = '"&request.form("Kategori")&"')"
Set RS2 = Conn.execute(SQL2)

Emne = RS1("Overskrift")
Tekst = RS1("Tekst")

Do while Not RS2.EOF

Modtager = RS2("Navn")
Modtageradresse = RS2("Email")

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = ""
Mailer.FromName = ""
Mailer.FromAddress = ""


Mailer.AddRecipient ""&Modtager&"",""&Modtageradresse&""


Mailer.Subject = ""&Emne&""
Mailer.BodyText = "<font face=Arial, Helvetica, sans-serif size=2><b>Hej "

Mailer.BodyText = "<font face=Arial, Helvetica, sans-serif size=2> "&Emne&" </font><br><br>"
Mailer.BodyText = "<font face=Arial, Helvetica, sans-serif size=2> "&Tekst&" </font><br><br>"

Mailer.BodyText = "<font face=Arial, Helvetica, sans-serif size=2>Du kan læse flere spændende nyheder på vores website </a><br><br> Med venlig hilsen <br><br> <b></b></font>"


Mailer.ContentType = "text/html"
Mailer.CharSet = 2



if not Mailer.SendMail then
Response.Write("Fejl i afsendelse")
else
response.write("<font face=Arial, Helvetica, sans-serif size=2>Mailen til "&Modtager&" blev afsendt uden problemer</font><br>")
end if
RS2.Movenext
loop
response.write("<font face=Arial, Helvetica, sans-serif size=2><a Href = > Tilbage </a></font>")

%>

Det er et mail script som sender en mail til mange modtagere fra en database.

Jeg er ikke helt sikker på hvilket recordset der skal checkes. (Du har jo to) Men mit forslag herunder gælder, hvis det er mail-adresserne der skal checkes!!!




<%
Server.ScriptTimeOut = 300
SQL1 = "Select * from Nyheder where ID = "&request.form("news")&""
Set RS1 = Conn.execute(SQL1)
SQL2= "Select * from Mail where"
SQL2 = SQL2 & " (Kat01 = '"&request.form("Kategori")&"')"
SQL2 = SQL2 & " OR (Kat02 = '"&request.form("Kategori")&"')"
SQL2 = SQL2 & " OR (Kat03 = '"&request.form("Kategori")&"')"
SQL2 = SQL2 & " OR (Kat04 = '"&request.form("Kategori")&"')"
SQL2 = SQL2 & " OR (Kat05 = '"&request.form("Kategori")&"')"
SQL2 = SQL2 & " OR (Kat06 = '"&request.form("Kategori")&"')"
SQL2 = SQL2 & " OR (Kat07 = '"&request.form("Kategori")&"')"
SQL2 = SQL2 & " OR (Kat08 = '"&request.form("Kategori")&"')"
Set RS2 = Conn.execute(SQL2)

Emne = RS1("Overskrift")
Tekst = RS1("Tekst")

Do while Not RS2.EOF

Modtager = RS2("Navn")
Modtageradresse = RS2("Email")

If not Modtager = "" or Modtageradresse = "" then 'Indsat af WittnezZ

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = ""
Mailer.FromName = ""
Mailer.FromAddress = ""


Mailer.AddRecipient ""&Modtager&"",""&Modtageradresse&""


Mailer.Subject = ""&Emne&""
Mailer.BodyText = "<font face=Arial, Helvetica, sans-serif size=2><b>Hej "

Mailer.BodyText = "<font face=Arial, Helvetica, sans-serif size=2> "&Emne&" </font><br><br>"
Mailer.BodyText = "<font face=Arial, Helvetica, sans-serif size=2> "&Tekst&" </font><br><br>"

Mailer.BodyText = "<font face=Arial, Helvetica, sans-serif size=2>Du kan læse flere spændende nyheder på vores website </a><br><br> Med venlig hilsen <br><br> <b></b></font>"


Mailer.ContentType = "text/html"
Mailer.CharSet = 2



if not Mailer.SendMail then
Response.Write("Fejl i afsendelse")
else
response.write("<font face=Arial, Helvetica, sans-serif size=2>Mailen til "&Modtager&" blev afsendt uden problemer</font><br>")
end if

end if 'Indsat af WittnezZ

RS2.Movenext
loop
response.write("<font face=Arial, Helvetica, sans-serif size=2><a Href = > Tilbage </a></font>")

%>