Undlad recordset hvis nul..

Hey!

Jeg har lavet et kommenteringssystem til et nyhedssite.. Der er bare et problem! Den melder fejl hvis værdien af kommentarer er nul.
Den laver 3 recordset, men de 2 sidste skal ikke køre hvis der ikke findes nogen poster i tabellen.

<%
Set DataConn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("dbase.mdb")
DataConn.Open DSN

Set RS_read_comments = Server.CreateObject("ADODB.RecordSet")
RS_read_comments.open "Select * From [comments] WHERE textid = '" & Request("id") & "' order by id" , DataConn, 1, 3
                   
Set RS_user2 = Server.CreateObject("ADODB.RecordSet")
SQL2 = "Select * from [users] Where username = '" & RS_read_comments("author") & "'"

RS_user2.Open SQL2, DataConn, 1, 3           
Set RS_disko2 = Server.CreateObject("ADODB.RecordSet")
SQL_disko2 = "Select * from [discos] Where id = " & RS_user2("discoId") & ""
RS_disko2.Open SQL_disko2, DataConn, 1, 3
%>

<%
If Not (RS_read_comments.BOF Or RS_read_comments.EOF) Then
' Hvis der er fundet kommentarer til indlæg
Do While Not RS_read_comments.EOF
%>
                   
<font face="Trebuchet MS" color="000000" style="font-size: 9pt">
<img border="0" src="images/all_a3_small_gray.gif">
<%Response.Write(RS_read_comments("author"))%>, <%Response.Write(RS_disko2("name"))%>:<br>
<%Response.Write(RS_read_comments("text"))%><p>
</font>
<%
RS_read_comments.movenext
loop
   
Else
' Hvis der ikke er fundet poster på søgningen
Response.Write "<p>Der er ingen kommentarer til dette indlæg!</p>"
End If

RS_read_comments.Close
DataConn.Close
%>

Håber I kan hjælpe!!

/Bruhn