Hvad hulen er der galt her

Fejl:

ADODB.Recordset error \'800a0cc1\'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/eshop/shopping/browse_items.asp, line 90

Scriptet:
<%
  ProdCat = Request(\"Cat\")

  If Not IsNumeric(ProdCat) OR ProdCat = \"\" Then
        ProdCat = 0
        \'Response.Write \"Her er ikke et tal\"
  End If
%>

<html>
<head>
<meta name=\"GENERATOR\" Content=\"Microsoft FrontPage 4.0\">
<title>Eshop</title>
<style type=\"text/css\">
<!--
a:link      { color: #808080 }
a:visited    { color: #808080 }
a:hover      { color: #333333 }
-->
</style>
</head>
<body bgcolor=\"#ffffff\" topmargin=\"0\" leftmargin=\"0\" marginwidth=\"0\"
marginheight=\"0\" text=\"#808080\" link=\"#FF0000\">
<basefont face=\"Verdana\" size=\"2\">
<table border=\"0\" width=\"100%\" cellpadding=\"0\" cellspacing=\"0\">
  <tr>
    <td valign=\"top\" nowrap bgcolor=\"#333333\"><img border=\"0\" src=\"images/ny_title.gif\"></td>
  </tr>
</table>
<table width=\"100%\" cellpadding=\"0\" cellspacing=\"0\" border=\"0\" bgcolor=\"#FFFFFF\">
  <tr>
    <td bgcolor=\"#333333\" align=\"left\" valign=\"middle\" nowrap
colspan=\"4\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\" color=\"#FFFFFF\"><b><a href=\"http://ebberup.dk\"
style=\"color:#FFFFFF;text-decoration:none;\">Ebberup Computer </a></b>&nbsp;| <b>&nbsp;<a href=\"default.asp\"
style=\"color:#FFFFFF;text-decoration:none;\">Start</a>&nbsp;|</b>&nbsp; </font><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\"
color=\"#CC3300\">*</font><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\" color=\"#FFFFFF\"><a style=\"color: #FFFFFF;
text-decoration: none\" href=\"browse_items.asp\">Vis kategorier</a><a style=\"color: #FFFFFF; text-decoration: none\">
</a>|&nbsp;<a style=\"color: #FFFFFF; text-decoration: none\" href=\"view_list.asp\">Vis alle varer&nbsp; </a>|&nbsp;<a href=\"search_items.asp\"
style=\"color:#FFFFFF;text-decoration:none;\"> S&oslash;g </a>|&nbsp;<a style=\"color: #FFFFFF; text-decoration:
none\" href=\"default.asp?action=checkout&#checkout#head\">Vis kurv </a>| <a href=\"../admin/default.asp\">
<font color=\"#FF0000\">Admin</font></a>&nbsp;&nbsp;</font></b>
</td>
  </tr>
    </table>
  <hr color=\"#CCCCCC\" size=\"1\" noshade>

<table border=\"0\" bgcolor=\"#FFFFFF\" cellpadding=\"0\" cellspacing=\"0\" width=\"625\">
  <tr>
    <td width=\"128\" valign=\"top\" align=\"center\">
      <table border=\"0\" cellspacing=\"4\" cellpadding=\"4\" width=\"125\">
        <tr bgcolor=\"#FFFFFF\">
          <td width=\"128\"><b><font color=\"#ff9900\" size=\"3\"
face=\"Arial\"><i> <font color=\"#333333\">Demo</font></i></font></b><br>
            <br>
            <font face=\"Verdana\" color=\"#808080\" size=\"1\">Denne butik og dets
            produkter er kun til demonstration. Du kan ikke k&oslash;be de listede
            varer</font><font face=\"Verdana\" size=\"1\" color=\"#808080\">.</font><br>
            <br>
            <br>
            <font face=\"Verdana\" size=\"2\" color=\"#808080\"><a href=\"moreinfo.asp\"><br>
            <b>Mere info</b></a></font><br>
          </td>
        </tr>
      </table>
    <td width=\"1\" bgcolor=\"#000000\"><img src=\"images/spacer.gif\" width=\"1\" height=\"1\" alt border=\"0\"></td>
    <td align=\"center\" valign=\"top\">
      <p> <b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">
        <%
  Set Conn = Server.CreateObject(\"ADODB.Connection\")
  Set Rs = Server.CreateObject(\"ADODB.Recordset\")

  Conn.Open \"Driver={Microsoft Access Driver (*.mdb)};DBQ=D:\\web\\vibnt0194\\database\\eshop\\items.mdb\"


  If ProdCat = 0 OR ProdCat = \"\" Then
  SQL = \"SELECT Category FROM Categories WHERE ParentID = 0\"
  Else
  SQL = \"SELECT Category FROM Categories WHERE ParentID = \"  & ProdCat
  End If

  rs.Open SQL, Conn

  x = 0
  For x = 1 to 9999
  If rs.eof then
  Exit For
  Else

  \'URL Convert
  ParentID = rs(\"ParentID\")
  Category = rs(\"Category\")
 
  Category = \"<a href=\'items.asp?\" & Category & \"\'>\" & Category &\"</a><br>\"
  If ParentID = 0 Then
  Category = Category & \"<a href=\'browse_items.asp?cat=\" & Category &\"\'>Se kategorier</a><br>\"
    End If

  \'End URL Convert

  %>
        </font></b>
      <font face=\"Arial\" size=\"4\">
      <table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\">
        <tr>
          <td width=\"100%\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"2\">&nbsp;
  <% =Category %>
  <%
  rs.MoveNext
  End If
  Next
  %>
            </font></b></td>
        </tr>
      </table>
      </font> </td>
  </tr>
</table>

</body>
</html>