<table border="0" width="956" cellspacing="10" cellpadding="3">
  <tr>
    <td width="100%" colspan="5" bgcolor="#51A8FF" height="32"><font color="#FFFFFF"
    face="Arial" size="3">&nbsp;&nbsp;Muhasebe Programı - Cari Hesaplar</font></td>
  </tr>
<tr>
<td width="45" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)" align="center"></td>
<td width="235" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)"><font color="red" face="Arial" size="2">&nbsp;<b>Müşteri Adı</b></td>
<td width="212" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)"><font color="red" face="Arial" size="2">&nbsp;<b>Telefon</b></td>
<td width="372" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)"><font color="red" face="Arial" size="2">&nbsp;<b>Adres</b></td>
<td width="92" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)" align="center"><font color="red" face="Arial" size="2">&nbsp;<b>Düzenle</b></td>
</tr>

<%
Set iletcen = Conn.Execute("SELECT COUNT(*) AS records FROM contact;" )
intRecords = Int(iletcen("records" ))
iletcen.Close
Set iletcen = Nothing


'degiskenleri aatiyoruz
intPage = Request.QueryString("sayfa" )
If intPage = "" OR not IsNumeric(intPage) Then
    intPage = Int(1)
Else
    intPage = Int(intPage)
End If
intPageSize = Int(5)
intStart = intPage*intPageSize
intStart = intStart-intPageSize
intPages = Int(intRecords/intPageSize)+1

Set iletcen = Conn.Execute("SELECT * FROM contact LIMIT " & intStart & ", " & intPageSize & ";" )



If iletcen.Eof or iletcen.Bof Then
Response.Write "kayit yok"
 Else
Do Until iletcen.Eof


If  iletcen("category_id") = 6 Then 
else
%>
<tr>
<td width="45" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)" align="center" onclick="location.href='muhasebe_cari_detay.asp?id=<%=iletcen("id")%>';"><img src="images/user.png"></td>


<td width="235" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)" onclick="location.href='muhasebe_cari_detay.asp?id=<%=iletcen("id")%>';"><font color="#000000" face="Arial" size="2">&nbsp;<%=iletcen("name")%></td>


<td width="212" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)" onclick="location.href='muhasebe_cari_detay.asp?id=<%=iletcen("id")%>';"><font color="#000000" face="Arial" size="2">&nbsp;<%=iletcen("mobile_phone")%> - <%=iletcen("phone")%></td>


<td width="372" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)" onclick="location.href='muhasebe_cari_detay.asp?id=<%=iletcen("id")%>';"><font color="#000000" face="Arial" size="1">&nbsp;<%=iletcen("address1")%></td>


<td width="92" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)" align="center" onclick="location.href='muhasebe_cari_detay.asp?id=<%=iletcen("id")%>';"><a href="muhasebe_cari_detay.asp?id=<%=iletcen("id")%>"><font color="#000000" face="Arial" size="2">&nbsp;İNCELE</a></td>

</tr>

<%

End if

iletcen.Movenext
 Loop
 End If 



iletcen.Close
Set iletcen = Nothing

'sayfaliyoruz
For i = 1 To intPages
    If i = intPage Then
        Response.Write "<b>" & i & "</b> "
    Else
        Response.Write "<a href=""muhasebe_musteriler.asp?sayfa=" & i & """>"
        Response.Write i
        Response.Write "</a> "
    End If
Next

Conn.Close
Set Conn = Nothing

%>

</table>

Merhaba arkadaşlar yine ben. kusura bakmayın vaktinizi alıyorum ama yine bir konuda takıldım... bir syafaya sayfalama yapmam gerekiyor. yüzlerce veri çıkıyor sayfada. ama bir türlü yapamadım.

Sayfalamayapmaya çalıştığım sayfanın kodları yukarda.. bir türlü yapamadım.


aldığım hata ilginç :

Microsoft VBScript çalýþma hatasý hata '800a01a8'

Nesne gerekli: ''

?, satır 0

yardım ederseniz sevinirim. kolay gelsin.