Suggerimento programmazione codice su pagina asp

[Ian CPFC]

Salve, non riesco a far funzionare correttamente una mia pagina asp.
Vi riporto solo il pezzo che crea il problema.
In pratica vengono pescati i dati, il problema è che se c'è una sola riga da scrivere allora la scrive giusta. Se ce ne sono 2 scrive per due volte l'ultima, invece di scrivere le due righe.
Qualche esperto ha un suggerimento da darmi? Grazie!

<% conn.Open DSNtemp 
SQL = "SELECT Postdate,Postby,Posttitle,Postno,Posttype FROM Newspaper WHERE Postby = '" & TheUsername & "' AND Posttype = 0 ORDER BY Postdate DESC LIMIT 0,5" 
Set rs = conn.Execute(SQL) 
If Not rs.eof Then  
Pdate = rs("Postdate") 
Pby = rs("Postby") 
Ptitle = rs("Posttitle") 
Pno = rs("Postno")  %> 
   
<h1>Latest press statements</h1> 
<table id="hor-minimalist-b" summary="Latest Articles"> 
<tbody> 
<%Do While Not rs.eof%> 
<tr><td><%=Pdate%> -  <%=Ptitle%></td></tr> 
<% rs.MoveNext Loop 
End If %>

[br1]

<% conn.Open DSNtemp 
SQL = "SELECT Postdate,Postby,Posttitle,Postno,Posttype FROM Newspaper WHERE Postby = '" & TheUsername & "' AND Posttype = 0 ORDER BY Postdate DESC LIMIT 0,5" 
Set rs = conn.Execute(SQL) 
If Not rs.eof Then  %> 
   
<h1>Latest press statements</h1> 
<table id="hor-minimalist-b" summary="Latest Articles"> 
<tbody> 
<%
  Do While Not rs.eof
    Pdate = rs("Postdate") 
    Pby = rs("Postby") 
    Ptitle = rs("Posttitle") 
    Pno = rs("Postno")  
%>
<tr><td><%=Pdate%> -  <%=Ptitle%></td></tr> 
<% 
    rs.MoveNext 
  Loop 
%>
</table>
<%
End If 
%>