Fortsætter ikke efter loop hvis der kun er een post...??!!!

Jeg har det her forum der ikke virker helt. I koden: først finder jeg massage, hvilket ikke er noget problem. Men hvis ikke der er lavet nogen replies stopper den med at læse resten af koden. Det ser sådan ud:

<%
If R.EOF Then
    Response.Write(\"<tr><td bgcolor=\"\"\" & S(\"table1\") & \"\"\" width=\"\"5%\"\" align=\"\"center\"\"><a href=\"\"reply.asp?Nr=\" & ID & \"\"\">\" & S(\"FontWit\") & \"<B>Reply</B></a></td></tr><tr><td bgcolor=\"\"\" & S(\"table1\") & \"\"\" colspan=\"\"5\"\" align=\"\"right\"\"><font face=\"\"Verdana,Arial\"\" size=\"\"1\"\" color=\"\"#FFFFFF\"\">\" & S(\"Copyright\") & \" &nbsp;</font></td></tr></table></center></body></html>\")
    R.Close
    Set R = Nothing
    Response.End
End If
%>
<% Do until R.EOF %>
<%
standaard = R(\"Tekst\")
nieuw = replace(standaard,\":)\",\"<img src=\"\"gfx/lach.gif\"\">\")
nieuw = replace(nieuw,\":(\",\"<img src=\"\"gfx/boos.gif\"\">\")
nieuw = replace(nieuw,\"|(\",\"<img src=\"\"gfx/muur.gif\"\">\")
nieuw = replace(nieuw,\":P\",\"<img src=\"\"gfx/lekker.gif\"\">\")
nieuw = replace(nieuw,\":D\",\"<img src=\"\"gfx/lol.gif\"\">\")
nieuw = replace(nieuw,\":~\",\"<img src=\"\"gfx/kwijl.gif\"\">\")
nieuw = replace(nieuw,\";)\",\"<img src=\"\"gfx/knipoog.gif\"\">\")
nieuw = replace(nieuw,\":+\",\"<img src=\"\"gfx/clown.gif\"\">\")
nieuw = replace(nieuw,\":*\",\"<img src=\"\"gfx/zoen.gif\"\">\")
nieuw = replace(nieuw,\"8)\",\"<img src=\"\"gfx/cool.gif\"\">\")
nieuw = replace(nieuw,\":Y\",\"<img src=\"\"gfx/vork.gif\"\">\")
nieuw = replace(nieuw,\";(\",\"<img src=\"\"gfx/triest.gif\"\">\")
nieuw = replace(nieuw,\"*D\",\"<img src=\"\"gfx/schijnend.gif\"\">\")
nieuw = replace(nieuw,\"}>\",\"<img src=\"\"gfx/gevaarlijk.gif\"\">\")
nieuw = replace(nieuw,\";\\\",\"<img src=\"\"gfx/huilen.gif\"\">\")
nieuw = replace(nieuw,\":o\",\"<img src=\"\"gfx/rood.gif\"\">\")
nieuw = replace(nieuw,\":r\",\"<img src=\"\"gfx/kotsen.gif\"\">\")
nieuw = replace(nieuw,\":7\",\"<img src=\"\"gfx/roken.gif\"\">\")
nieuw = replace(nieuw,\"})\",\"<img src=\"\"gfx/koe.gif\"\">\")
nieuw = replace(nieuw,\"(>\",\"<img src=\"\"gfx/nerd.gif\"\">\")
nieuw = replace(nieuw,\":Z\",\"<img src=\"\"gfx/slaap.gif\"\">\")
nieuw = replace(nieuw,\":z\",\"<img src=\"\"gfx/lekkerslaap.gif\"\">\")
nieuw = replace(nieuw,\":?\",\"<img src=\"\"gfx/vraag.gif\"\">\")
nieuw = replace(nieuw,\"[s]\",\"<font color=\"\"red\"\" face=\"\"Verdana,Arial\"\" size=\"\"2\"\">SPAM RESET</font>\")
nieuw = replace(nieuw,chr(13),\"<br>\")
%>
<tr>
<td bgcolor=\"<%=S(\"table2\")%>\" align=\"left\"><%=S(\"FontZwart\")%>&nbsp;Fra: <a href=\"mailto:<%=R(\"Email\")%>\"><%=S(\"FontZwart\")%><%=R(\"Naam\")%></a> den <%=R(\"Datum\")%></b></font></td>
</tr>
<tr>
<td bgcolor=\"<%=S(\"table2\")%>\" align=\"left\"><br><blockquote><%=S(\"FontZwart\")%><%=nieuw%></font></blockquote></font></td>
</tr>
<%
R.MoveNext
loop
%>
<tr>
<td bgcolor=\"<%=S(\"table1\")%>\" width=\"5%\" align=\"center\"><a href=\"reply.asp?Nr=<%=ID%>\"><%=S(\"FontWit\")%><B>Reply</B></a></td>
</tr>
<tr><td bgcolor=\"<%=S(\"table1\")%>\" colspan=\"5\" align=\"right\" height=\"1\"><font face=\"Verdana,Arial\" size=\"1\" color=\"#151D75\"><%=S(\"Copyright\")%>&nbsp;</font></td></tr>
</table>
</center>
<br></td>
</tr>
</table>
<!-- #include file=\"../bund.asp\" -->
</body>
</html>

Som det ser ud nu, bliver den nederste med \"Copyright\" skrevet med hvid (hvilket den var tidligere), og bund.asp bliver ikke included.

Lige så snart man laver et reply virker det hele - \"Copyright\" står med rigtig farve og bund.asp bliver sat ind!

Er der nogen der kan hjælpe?