<%
SKS=5
RSCount=DB.Execute("Select Count(*) From siirler") ------İşte burda hata varmış
ModX=RSCount(0) Mod SKS
SayfaSayisi=(RSCount(0)-Modx)/SKS
%>
<%sayfa=Request.QueryString("sayfa")%>
<%
Set RS=DB.Execute("Select * From siirler")
RS.Move(Sayfa*SKS)
For n=1 To SKS
If RS.Eof OR RS.Bof Then Exit For
Response.Write RS("baslik") & "<br>"
RS.MoveNext
Next
%>
<%
If SayfaSayisi=0 Then
x=1
ElseIf ModX=0 Then
x=SayfaSayisi
Else
x=SayfaSayisi+1
End If
If Not x=1 Then
For k=1 To x
If not k=Sayfa Then
sayfax=sayfax & " <a href='?sayfa=" & k & "'><" & k & "></a> "
Else
sayfax=sayfax & " <" & k & "> "
End If
Next
Response.Write sayfax
End If
%>
nesne gerekli:"" hatası alıyorum orada.
Yardımlar için teşekkürler
SKS=5
RSCount=DB.Execute("Select Count(*) From siirler") ------İşte burda hata varmış
ModX=RSCount(0) Mod SKS
SayfaSayisi=(RSCount(0)-Modx)/SKS
%>
<%sayfa=Request.QueryString("sayfa")%>
<%
Set RS=DB.Execute("Select * From siirler")
RS.Move(Sayfa*SKS)
For n=1 To SKS
If RS.Eof OR RS.Bof Then Exit For
Response.Write RS("baslik") & "<br>"
RS.MoveNext
Next
%>
<%
If SayfaSayisi=0 Then
x=1
ElseIf ModX=0 Then
x=SayfaSayisi
Else
x=SayfaSayisi+1
End If
If Not x=1 Then
For k=1 To x
If not k=Sayfa Then
sayfax=sayfax & " <a href='?sayfa=" & k & "'><" & k & "></a> "
Else
sayfax=sayfax & " <" & k & "> "
End If
Next
Response.Write sayfax
End If
%>
nesne gerekli:"" hatası alıyorum orada.
Yardımlar için teşekkürler