Microsoft VBScript çalışma hatası (0x800A01A8)

<%no=request.querystring("Ysfgms") 
  no=cint(no)%> 
  <html> 
  <head> 
  <meta name="GENERATOR" content="Microsoft FrontPage 5.0"> 
  <meta name="ProgId" content="FrontPage.Editor.Document"> 
  <meta http-equiv="Content-Type" content="text/html; charset=windows-1254"> 
  <title>Gümüş</title> 
  </head> 
  <% 
  do while not Urunler.EOF 
  if Urunler("kategoID") = no  then 
  %> 
  <body topmargin="0" leftmargin="0"> 
   
  <div align="left"> 
    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="934" height="429" id="AutoNumber1"> 
      <tr> 
        <td width="968" height="112" colspan="2"> 
        <img border="0" src="resimler/Banner.gif" width="1129" height="112"></td> 
      </tr> 
      <tr> 
        <td width="1129" height="29" colspan="2" background="resimler/banner-2.gif"> 
          <input type="ara" name="T1" size="15"></td> 
      </tr> 
      <tr> 
        <td width="158" height="284" valign="top"> 
   <!--#include file="inc/sag.asp"--> 
  </td> 
        <td width="810" height="334" valign="top"> 
        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="107%" id="AutoNumber3" height="428"> 
          <tr> 
            <td width="100%" height="36" valign="top" style="border-bottom-style: none; border-bottom-width: medium"> 
            <p align="center"> 
            <img border="0" src="resimler/Urunler.gif" align="left"></td> 
          </tr> 
          <tr> 
            <td width="100%" height="392" valign="top" style="border-style: none; border-width: medium">  
  <%do while not Urunler.eof%>      <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="19%" id="AutoNumber4" height="148"> 
              <tr> 
                <td width="100%" height="127"> 
                <img border="0" src="Urunler/<%=Urunler("ufak_resim")%>"></td> 
              </tr> 
              <tr> 
                <td width="100%" height="21"><b><font face="Tahoma" size="2"><%=Urunler("marka")%></b></font> <font face="Tahoma" size="2"><%=Urunler("urunadi")%></td> 
              </tr> 
            </table> 
  <%Urunler.movenext 
  Loop%> 
  </td> 
          </tr> 
        </table> 
        </td> 
      </tr> 
      </table> 
  </div> 
   
  </body> 
   
  </html><%end if 
  Loop%>