Problemer med visning af \"tom\" side...

Hej
På min side kan brugere selv uploade dokumenter, filer etc. Mit problem er, at hvis der ikke er uploaded noget under en bestemt kategori, vises siden ikke. Hvad kan jeg indsætte så kategori siden hvor der ikke er uploaded noget på viser teksten i body: \"endnu ikke nogle dokumenter i denne kategori\"

se mit visningsscript:
<%@ LANGUAGE=\"VBSCRIPT\" %>
<% Option Explicit
%>
<!-- #INCLUDE VIRTUAL=\"/adovbs.inc\" -->
<%
    Dim Conn, RS, Kategori, Tittel, Beskrivelse, Sprog, Vurdering, Forfatter
    Kategori = CInt(Request(\"Kategori\"))
    Set Conn    = Server.CreateObject(\"ADODB.Connection\")
    Conn.Open Application(\"fildb\")
    Set RS        = Server.CreateObject(\"ADODB.Recordset\")
    RS.Open \"SELECT ID, FILENAME, Kategori, Tittel, Beskrivelse, Sprog, Vurdering, Forfatter FROM TFiles WHERE Kategori=\"& Kategori &\"\", Conn
%>
<% dim sti
select case RS(\"SPROG\")
case 1 sti=\"/billeder/forside/denmark.gif\"
case 2 sti=\"/billeder/forside/Sweden.gif\"
case 3 sti=\"/billeder/forside/Norway.gif\"
case 4 sti=\"/billeder/forside/unitedkingdom.gif\"
case 5 sti=\"/billeder/forside/spain.gif\"

end select%>
 
<html>
<head>

<LINK href=\"/main.css\" rel=\"stylesheet\" type=\"text/css\">
<title>[ .. .. ]</title>
<style fprolloverstyle>A:hover {color: #000000}
</style>
</head>

<body link=\"#FFFFFF\" vlink=\"#FFFFFF\" alink=\"#FFFFFF\">
<table border=\"0\" width=\"100%\">
<tr>
<td width=\"115\" valign=\"top\" align=\"middle\">
<!-- #INCLUDE VIRTUAL=\"/inc/leftmenu.asp\" -->
</td>
<td bgcolor=\"#C8CCC8\" width=\"90%\" valign=\"top\" align=\"center\">
&nbsp;
<table border=\"0\" width=\"90%\">
  <tr>
    <td width=\"90%\" rowspan=\"3\" bgcolor=\"#18949C\" style=\"border: 1 solid #FFFFFF\">

<p align=\"center\"><b><font face=\"Arial\" color=\"#FFFFFF\" size=\"4\">Hent dokument fra&nbsp;
</font><font face=\"Arial\" size=\"4\" color=\"#000080\"><i>Videndelings</i></font><font face=\"Arial\" color=\"#FFFFFF\" size=\"4\">Banken</font></b></p>

    </td>
  </tr>
</table>
&nbsp;

<!-- Her er det reele indhold af siden. --> <%
    While NOT RS.eof
        Response.write \"<p><table border=\"\"0\"\" width=\"\"90%\"\" rowspan=\"\"0\"\" bgcolor=\"\"#18949C\"\" style=\"\"border: 1 solid #FFFFFF\"\">\"
        Response.Write \"<td><img src=\"\"\"& sti &\"\"\"> <a href=\"\"/upload/DownloadDB.asp?ID=\"& RS(\"ID\") &\"\"\">\"
        Response.Write RS(\"FILENAME\")
        Response.Write \"</a></b>\"
        Response.Write \"<BR><b><FONT FACE =\"\"Arial, VERDANA, Times New Roman\"\" SIZE=\"\"2\"\" color=\"\"#000000\"\">Titel:  </FONT></b><FONT FACE =\"\"VERDANA, Times New Roman\"\" SIZE=\"\"2\"\" color=\"\"#000000\"\">\" & RS (\"Tittel\")       
        Response.Write \"&nbsp;<b><FONT FACE =\"\"Arial, VERDANA, Times New Roman\"\" SIZE=\"\"2\"\" color=\"\"#000000\"\">Beskrivelse:  </FONT></b><FONT FACE =\"\"VERDANA, Times New Roman\"\" SIZE=\"\"2\"\" color=\"\"#000000\"\">\" & RS (\"Beskrivelse\")       
        Response.write \"<BR><b><FONT FACE =\"\"Arial, VERDANA, Times New Roman\"\" SIZE=\"\"1\"\" color=\"\"#000000\"\">Evt. vurdering:  </FONT></b><FONT FACE =\"\"VERDANA, Times New Roman\"\" SIZE=\"\"1\"\" color=\"\"#000000\"\">\" & RS (\"Vurdering\")

        Response.write \"<BR><b><FONT FACE =\"\"Arial, VERDANA, Times New Roman\"\" SIZE=\"\"1\"\" color=\"\"#000000\"\">Forfatter:  </FONT></b><FONT FACE =\"\"VERDANA, Times New Roman\"\" SIZE=\"\"1\"\" color=\"\"#000000\"\">\" & RS (\"Forfatter\")
        Response.write \"</td></p>\"       
        RS.Movenext
    Wend
    Response.write \" \"
    RS.Close
    Set RS = NOTHING
    Conn.Close
    Set Conn = NOTHING
%>

</body>