ASPTurkiye.com Forum: Sıralamada Döngü Hatası

Set art = Server.CreateObject("ADODB.Recordset") SQL="Select * from stoklar where pics=true and id= "&id&"" art.open sql,Baglanti,1,3 Toplam = art.RecordCount If Toplam = 0 Then intSayfaSayisi = 0 Response.Write "Tabloda Kayıt Yok" Else intGecerliSayfa = Request.Querystring("sayfa") If intGecerliSayfa = "" OR IsNumeric(intGecerliSayfa) = False Then intGecerliSayfa = 1 %>

Hata:
ADODB.Field hata '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

liste.asp, line 0 --Normalde kayıtlar sıralanıyor ama alt sayfalamada bu hatayı sade son sayfadaki kayıtları listele deyince oluyor sanırım yanyana sıralamayı yaptırırken yanlış bir dögü kullandım ama bulamadım.yardım ederseniz sevinrim.
Kodlar ...

Kod:

Set art = Server.CreateObject("ADODB.Recordset")
SQL="Select * from stoklar where pics=true and id= "&id&""
art.open sql,Baglanti,1,3
Toplam = art.RecordCount 

If Toplam = 0 Then
intSayfaSayisi = 0
Response.Write "Tabloda Kayıt Yok"
Else
intGecerliSayfa = Request.Querystring("sayfa")
If intGecerliSayfa = "" OR IsNumeric(intGecerliSayfa) = False Then intGecerliSayfa = 1

%>
<% If art.EOF And art.BOF Then
  Response.Redirect("islem.asp?StrMsg=Bu kategoriye Bağlı Ürün Yok&StrRefer=liste.asp")
  Response.End
 else
%>
<%
galeriSirala = 4
art.PageSize = 28
if request.QueryString("sayfa")="" or request.querystring("sayfa")=0 then
 sayfa=1
else
 sayfa=request.QueryString("sayfa")
end if
intSayfaSayisi= art.PageCount
art.AbsolutePage =intGecerliSayfa
%><body topmargin="0" leftmargin="0"></td>
 </tr>
  </table>
<div align="center">
 <table width="197" cellpadding=3 height="131" style="border-collapse: collapse" border="0" id="table73"> 
   <tr>
    <% for k=1 to art.pagesize %>
     <% if art.eof or art.bof then exit for %>
     <% if yan=galeriSirala then 
      response.write ("<tr>")
      yan=0 
      End if
     %>
<td width="191">
<div align="center">
<table width="191" height="190" border="0"  style="border-collapse: collapse" id="table74">
 <tr>
  
  <td width="189" onmouseover="this.imgsrc=images/dene1.png" onmouseout="this.bgColor=''" align="center" >
     <table border="0" width="186" id="table75" style="border-collapse: collapse" height="228">
      <tr>
       <td background="tema/<%=dsg("tema")%>/a1.jpg" width="14" height="27">&nbsp;</td>
       <td background="tema/<%=dsg("tema")%>/a2.jpg" width="144" height="27">
       <font color="#FFFFFF" size="2">Ürün Kodu : <%=art("urunkodu")%></font></td>
       <td background="tema/<%=dsg("tema")%>/a3.jpg" height="27">&nbsp;</td>
      </tr>
      <tr>
       <td width="14" height="174"  background="tema/<%=dsg("tema")%>/a5.png">&nbsp ;</td>
       <td align="center" valign="top" width="144" height="174">
     <table border="0" width="67%" id="table76" height="139" style="border-collapse: collapse" onmouseover="this.bgColor='#E8F2FE'" onmouseout="this.bgColor=''">
      <tr>
       <td>
       <p align="center">
     <a  href="detay.asp?urunID=<%=art("urunID")%>&syf=resi m1">
   <img border="0" src="icons/<%=art("resim1")%>" onerror="src = 'images/yokt.gif'" align="center"onmouseover="this.bgColor='#ffffff'" onmouseout="this.bgColor=''" width="139" height="100" style="border-style: outset; border-width: 1px; background-color: #0000FF" /></a></td>
      </tr>
     </table>
     <table border="0" width="137" id="table77" style="border-collapse: collapse" height="28">
   <tr>
    <td width="135" valign="top">           
    <p align="left">           
    <font color="#000000" face="Bodoni MT" size="2"><span style="text-decoration: none">
    &nbsp;<img border="0" src="http://forum.ceviz.net/images/ok2.jpg" width="9" height="9">&nbsp;&nbsp;<a  href="detay.asp?urunID=<%=art("urunID")%>&syf=resi m1"><span style="text-decoration: none"> <%=Left(art("urunadi"),12)%>...<br>
    <hr size="1">Fiyat : <%=art("fiyat")%> TL</span></a> 
    </span></font> 
    <table border="0" width="100%" id="table78" style="border-collapse: collapse">
     </table>
           </td>
   </tr>
  </table>
       </td>
       <td height="174"  background="tema/<%=dsg("tema")%>/a4.png">&nbsp ;</td>
      </tr>
      <tr>
       <td width="14"  background="tema/<%=dsg("tema")%>/a6.jpg">&nbsp ;</td>
       <td width="144" background="tema/<%=dsg("tema")%>/a7.jpg">
       <p align="center">
       <font color="#C0C0C0" style="font-size: 6pt">
       <a  href="detay.asp?urunID=<%=art("urunID")%>&syf=resi m1">
      <font color="#C0C0C0" style="font-size: 6pt">
      <img border

<% If art.EOF And art.BOF Then Response.Redirect("islem.asp?StrMsg=Bu kategoriye Bağlı Ürün Yok&StrRefer=liste.asp") Response.End else %> <% galeriSirala = 4 art.PageSize = 28 if request.QueryString("sayfa")="" or request.querystring("sayfa")=0 then sayfa=1 else sayfa=request.QueryString("sayfa") end if intSayfaSayisi= art.PageCount art.AbsolutePage =intGecerliSayfa %><body topmargin="0" leftmargin="0"></td> </tr> </table> <div align="center"> <table width="197" cellpadding=3 height="131" style="border-collapse: collapse" border="0" id="table73"> <tr> <% for k=1 to art.pagesize %> <% if art.eof or art.bof then exit for %> <% if yan=galeriSirala then response.write ("<tr>") yan=0 End if %> <td width="191"> <div align="center"> <table width="191" height="190" border="0" style="border-collapse: collapse" id="table74"> <tr> <td width="189" onmouseover="this.imgsrc=images/dene1.png" onmouseout="this.bgColor=''" align="center" > <table border="0" width="186" id="table75" style="border-collapse: collapse" height="228"> <tr> <td background="tema/<%=dsg("tema")%>/a1.jpg" width="14" height="27"> </td> <td background="tema/<%=dsg("tema")%>/a2.jpg" width="144" height="27"> <font color="#FFFFFF" size="2">Ürün Kodu : <%=art("urunkodu")%></font></td> <td background="tema/<%=dsg("tema")%>/a3.jpg" height="27"> </td> </tr> <tr> <td width="14" height="174" background="tema/<%=dsg("tema")%>/a5.png">&nbsp ;</td> <td align="center" valign="top" width="144" height="174"> <table border="0" width="67%" id="table76" height="139" style="border-collapse: collapse" onmouseover="this.bgColor='#E8F2FE'" onmouseout="this.bgColor=''"> <tr> <td> <p align="center"> <a href="detay.asp?urunID=<%=art("urunID")%>&syf=resi m1"> <img border="0" src="icons/<%=art("resim1")%>" onerror="src = 'images/yokt.gif'" align="center"onmouseover="this.bgColor='#ffffff'" onmouseout="this.bgColor=''" width="139" height="100" style="border-style: outset; border-width: 1px; background-color: #0000FF" /></a></td> </tr> </table> <table border="0" width="137" id="table77" style="border-collapse: collapse" height="28"> <tr> <td width="135" valign="top"> <p align="left"> <font color="#000000" face="Bodoni MT" size="2"><span style="text-decoration: none">  <img border="0" src="http://forum.ceviz.net/images/ok2.jpg" width="9" height="9">  <a href="detay.asp?urunID=<%=art("urunID")%>&syf=resi m1"><span style="text-decoration: none"> <%=Left(art("urunadi"),12)%>...<br> <hr size="1">Fiyat : <%=art("fiyat")%> TL</span></a> </span></font> <table border="0" width="100%" id="table78" style="border-collapse: collapse"> </table> </td> </tr> </table> </td> <td height="174" background="tema/<%=dsg("tema")%>/a4.png">&nbsp ;</td> </tr> <tr> <td width="14" background="tema/<%=dsg("tema")%>/a6.jpg">&nbsp ;</td> <td width="144" background="tema/<%=dsg("tema")%>/a7.jpg"> <p align="center"> <font color="#C0C0C0" style="font-size: 6pt"> <a href="detay.asp?urunID=<%=art("urunID")%>&syf=resi m1"> <font color="#C0C0C0" style="font-size: 6pt"> <img border="0" src="http://forum.ceviz.net/images/incele4.jpg" width="96" height="20"></font></font></td> <td background="tema/<%=dsg("tema")%>/a8.jpg">&nbsp ;</td> </tr> </table> </td> </tr> </table> </div> </td> <% yan=yan+1 if yan = (galeriSirala+1) then response.write ("</tr>") end if %> <% art.movenext : next %> <%end if%> </table> </div> </body></td> <td> </td> </tr> </table> </td> </tr> <tr> <td height="50"> <p align="center"> <font color="#666666" size="2">Sayfa</font></strong></font> <font size="2"><strong><font face="Tahoma">  <% Aralik = 2 intSayfaAltSiniri = intGecerliSayfa - Aralik intSayfaUstSiniri = intGecerliSayfa + Aralik intSolGrupSayisi = 1 + Aralik intSagAltSinir = intSayfaSayisi - Aralik %> <% If (intSayfaUstSiniri >intSayfaSayisi) Then intSayfaAltSiniri = intSayfaSayisi - (2 * Aralik) intSayfaUstSiniri = intSayfaSayisi End If %> <% If intSolGrupSayisi >= intSayfaAltSiniri Then intSolGrupSayisi = intSayfaAltSiniri - 1 If intSagAltSinir <= intSayfaUstSiniri Then intSagAltSinir = intSayfaUstSiniri + 1 %> <% If intGecerliSayfa >1 Then %> <a href="?id=<%=art("id")%>&sayfa=1" title="İlk Sayfa">[««]</a> <a href="?id=<%=art("id")%>&sayfa=<%=intGecerliSay fa-1%>" title="Önceki Sayfa">[«]</a><% End If %> <% If (intSayfaAltSiniri <= 0) Then intSayfaAltSiniri = 1 intSayfaUstSiniri = intSayfaAltSiniri + (2 * Aralik) If intSayfaUstSiniri >= intSayfaSayisi Then intSayfaUstSiniri = intSayfaSayisi End If %> <% For i = 1 to intSolGrupSayisi If CInt(i) = (intGecerliSayfa) Then Response.Write " <b>" Else %> <a href="?id=<%=art("id")%>&sayfa=<%=i%>" title="<%=i%>. Sayfa"><% End If Response.Write i &".</a></b>" Next %> <% If (intSayfaAltSiniri - intSolGrupSayisi >1 ) Then Response.Write "<b>. . .</b>" %> <% For i = intSayfaAltSiniri to intSayfaUstSiniri If CInt(i) = CInt(intGecerliSayfa) Then Response.Write " <b>" Else %> <% End If Response.Write i &".</a></b>" Next %> <% If (intSagAltSinir - intSayfaUstSiniri >1) Then Response.Write "<b>. . .</b>" %> <% For i = intSagAltSinir to intSayfaSayisi If CInt(i) = CInt(intGecerliSayfa) Then Response.Write " <b>" Else %> <% End If Response.Write i &".</a></b>" Next %> <% If CInt(intGecerliSayfa) <>CInt(intSayfaSayisi) Then %> <a href="?id=<%=art("id")%>&sayfa=<%=intGecerliSay fa+1%>" title="Sonraki Sayfa">[»]</a> <a href="?id=<%=art("id")%>&sayfa=<%=intSayfaSayis i%>" title="Son Sayfa">[»»]</a><% End If %><br><font color="#FF0000" size="1">