Udskriver kun en!

Hej Eksperter!

Jeg har et lille problem. Jeg har lavet et system, så man kan tilføje kommentarer til mine nyheder, men når jeg skal udskrive kommentarerene udskriver den kun en, selvom der er flere i databasen. Her er sourcen:

<%
set conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"nyt/XcNews.mdb\")
SQL = \"select * from Kommentarer WHERE NewsID = \"& Request.QueryString(\"newsid\") &\";\"
Set RS = Conn.Execute(SQL)

  If RS.EOF Then
      Response.Write(\"Der er ingen kommentarer, til denne nyhed.\")
  Else
 
set conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"brugere.mdb\")
SQL = \"select * from brugerne WHERE username = \'\" & rs(\"brugernavn\") & \"\'\"
Set EZ = Conn.Execute(SQL)
%>
<table border=\"0\" width=\"100%\" bgcolor=\"#000000\" cellspacing=\"1\" cellpadding=\"0\">
  <tr>
    <td width=\"100%\" bgcolor=\"#8EACC1\"><font class=\"header\">
<%
response.Write \"      <p align=\'right\'><small>\"& rs(\"dato\") & \"  <img border=\'0\' src=\'images/ny.gif\'><a href=\'community/info.asp?id=\"& ez(\"id\") & \"\'>\"& ez(\"navn\") & \"</a></small></td>\"
%>
  </tr>
  <tr>
<td width=\'100%\' bgcolor=\'#8EACC1\'><font class=\"header\"><% = Replace(RS(\"kommentar\")&\"\", vbCrLf, \"<BR>\") %></td>
  </tr>
</table><br><%
End IF
RS.Close
Conn.Close

%><br>