ASP Sayfalandırma hakkında

25-08-2008, 15:07:31

Kimlik doğrulama veya yönetimden onay bekliyor.

arkadaşlar aspde sayfalandırma yapmak için hangi kodu eklemek gerekiyor?

Türk Halk Şiiri Ve Şairleri

gördüğünüz gibi başlıklar uzayıp gidiyor bunu 20şer 20şer sayfalandırmak istiyorum.

sayfanın kodları;

<% @ Language=VBScript %>
<% Option Explicit %>
<!--#include file="inc_ayarlar.asp"-->
<!--#include file="inc_fonksiyonlar.asp"-->
<%
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' mydesign haber sistemi
' W: http://www.mydesign.gen.tr
' @: mydesign@mydesign.gen.tr
' Anasayfa Kodlar
' Son Dzenleme: 10 Ekim 2006 (v0.4)
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'// Sayfann nbellekten alnmas nleniyor
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "No-Store"
'// Deikenler Tanmlanyor
Dim blnSuz
Dim blnAra
Dim SQL
Dim intToplam
Dim G_Kayit
Dim T_Kayit
Dim intLooper
Dim intSayfaSayisi
Dim intHaberYorumSayisi
Dim blnHaberYorum
Dim intHaberID
Dim strHaberBaslik
Dim strHaberResim
Dim intHaberEditor
Dim dtmHaberTarih
Dim strHaberOzet
Dim intHaberKategori
Dim intHaberPuan
Dim intHaberOySayisi
Dim intHaberOkunma
Dim intArananEditorID
blnSuz = False
blnAra = False
blnMenuAc = False
'// Arama verileri alnyor
intArananKategori = Temizle(Request.QueryString("kategori"))
strArananKelime = Temizle(Request.QueryString("kelime"))
intArananEditorID = Temizle(Request.QueryString("editor"))
If IsNumeric(intArananKategori) Then
strArananKategori = KategoriBul(intArananKategori)
If strArananKategori <> "" Then blnSuz = True
End If
If intArananEditorID <> "" AND IsNumeric(intArananEditorID) Then blnAra = True
If Len(strArananKelime) >= 3 Then blnAra = True
'// Veritaban sorgulamas yaplyor
SQL = "SELECT haberID, kategori, baslik, ozet, tarih, editor, yorum, onemli, onay, resim, okunma"
SQL = SQL & " FROM tblHaberler WHERE durum=True AND onay=True"
If blnAra Then SQL = SQL & " AND (baslik LIKE '%" & strArananKelime & "%' OR ozet LIKE '%" & strArananKelime & "%' OR haber LIKE '%" & strArananKelime & "%')"
If intArananEditorID <> "" AND IsNumeric(intArananEditorID) Then  SQL = SQL & " AND editor = "& CInt(intArananEditorID) &""
If blnSuz Then SQL = SQL & " AND kategori = "& CInt(intArananKategori) &""
If blnAra = False AND blnSuz Then
kdYardimci.Open "SELECT * FROM tblKategoriler WHERE UstKatID = "& CInt(intArananKategori) &"", adoCOn, 1, 3
If Not kdYardimci.Eof Then
SQL = SQL & "OR ("
Do While Not kdYardimci.Eof
SQL = SQL & "kategori = "& kdYardimci("KatID") &" OR "
kdYardimci.Movenext
Loop
SQL = SQL & " kategori = "& CInt(intArananKategori) &")"
End If
kdYardimci.Close
End If
SQL = SQL & " ORDER BY onemli ASC, Tarih DESC, haberID DESC"
kdGenel.Open SQL, adoCon, 1, 3
intToplam = kdGenel.RecordCount %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title><%=strSiteAdi%> <% If blnSuz Then Response.Write "  "& strArananKategori %><% If blnAra Then Response.Write "  Arama Sonular ("& strArananKelime &")"%></title>
<!--#include file="inc_head.asp"-->
<meta name="generator" content="mydesign | haberci v<%=strVersiyon%>" />
<!--
Uygulama: mydesign haber sistemi
Versiyon: <%=strVersiyon%>
cretsiz Download: http://www.mydesign.gen.tr
-->
<style type="text/css">
<!--
.footer {    background-image: url(index_files/index_footer_bg.gif);
background-repeat: repeat-x;
}
.hnavbg {    background-image: url(index_files/index_hnavbar_bg.gif);
background-repeat: repeat-x;
}
.leftcolumn {    background-image: url(index_files/index_border_left.gif);
background-repeat: repeat-y;
}
.rightcolumn {    background: url(index_files/index_border_right.gif) repeat-y right;
padding-left: 15px;
}
body {
background-color: #ffffcc;
}
-->
</style>
</head>
<body>
<p><br style="clear:both" />
</p>
<table width="100%" cellspacing="0" cellpadding="0">
<tr>
<td><table width="98%" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><table width="100%" cellspacing="0" cellpadding="0">
<tr>
<td height="43" rowspan="2" valign="top">&nbsp;</td>
<td valign="baseline" bgcolor="#FFCC66"><img src="index_files/index_banner_solust_son.gif" width="64" height="29" /></td>
<td valign="top" bgcolor="#FFCC66" class="topcolumn">&nbsp;</td>
<td valign="top" bgcolor="#FFCC66"><img src="index_files/index_banner_sagust2.gif" width="55" height="29" /></td>
</tr>
<tr>
<td valign="baseline" bgcolor="#FFCC66" class="leftcolumn">&nbsp;</td>
<td valign="top" bgcolor="#FFCC66"><div align="center"><img src="image/b_turuncu.jpg" width="455" height="125" /></div></td>
<td valign="top" bgcolor="#FFCC66"><img src="index_files/index_banner_sagorta.gif" width="55" height="125" /></td>
</tr>
<tr>
<td width="46" height="43" valign="top"><img src="index_files/index_top_left.gif" editor="Webstyle4" moduleid="dayim (Project)\index_top_left.xws" border="0" /></td>
<td width="64" valign="top"><img src="index_files/index_spacer.gif" editor="Webstyle4" moduleid="dayim (Project)\index_spacer.xws" border="0" /></td>
<td valign="top" class="hnavbg"><script webstyle4="Webstyle4">document.write('<scr'+'ipt src="index_files/xaramenu.js">'+'</scr'+'ipt>');document.write('<scr'+'ipt src="index_files/index_hnavbar.js">'+'</scr'+'ipt>');</script>
</td>
<td width="55" valign="top"><img src="index_files/index_top_right.gif" editor="Webstyle4" moduleid="dayim (Project)\index_top_right.xws" border="0" /></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="160" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="75" align="center" valign="top" class="leftcolumn"><div align="center"><img src="index_files/index_logo2.gif" editor="Webstyle4" moduleid="dayim (Project)\index_logo2.xws" border="0" /></div></td>
</tr>
<tr>
<td><script webstyle4="Webstyle4">document.write('<scr'+'ipt src="index_files/xaramenu.js">'+'</scr'+'ipt>');document.write('<scr'+'ipt src="index_files/index_vnavbar.js">'+'</scr'+'ipt>');</script>
</td>
</tr>
<tr>
<td bgcolor="#ffffcc">
<div class="kutu" id="sol_menu">
<iframe src="uyelik/default.asp" frameborder="0" width="185" height="550"></iframe>
<h3><font color='#FF6600'>DİĞER BÖLÜMLER</h3></font color>
<h6>
<li class="kat"><a href="radyosiir.asp" class="ust-kat"><strong><font color='#00CCFF'>Radyo Şiir</strong></a></li>
<li class="kat"><a href="radyogulluk.asp" class="ust-kat"><strong><font color='#00CCFF'>Radyo Güllük</strong></a></li>
<li class="kat"><a href="album2/default.asp" class="ust-kat"><strong><font color='#00CCFF'>Resimli Şiirler</strong></a></li>
<li class="kat"><a href="memleket.asp" class="ust-kat"><strong><font color='#00CCFF'>Resimler</strong></a></li>
<li class="kat"><a href="turku_nota/default.asp" class="ust-kat"><strong><font color='#00CCFF'>Türkü Nota,Söz</strong></a></li>
<li class="kat"><a href="muzik.asp" class="ust-kat"><strong><font color='#00CCFF'>Mp3 Türkü Dinle</strong></a></li>
<li class="kat"><a href="z_defteri.asp" class="ust-kat"><strong><font color='#00CCFF'>Ziyaretçi Defteri</strong></a></li>
<li class="kat"><a href="hakkimda.asp" class="ust-kat"><strong><font color='#00CCFF'>Form Yaz,Oku</strong></a></li>
<li class="kat"></li></h6>
<h3><font color='#FF6600'>SON DAKİKA HABERLER</h3></font color>
<ul><iframe frameborder="0" src="http://sondakika.haber7.com/" width="185" height="300" ></iframe></ul></div>
</div>
</td>
</tr>
</table></td>
<td valign="top" class="rightcolumn"><table width="100%" height="100%" border="0" align="center">
<tr>
<td width="75%" valign="top"><p>&nbsp;</p>
<p>&nbsp;</p>
<p align="center">
<h3>ŞiiR iSiMLERi SON EKLENENDEN BAŞLAR</h3><br/><p align="center"><h5><a href='siir_isimleri1.asp?'>İlk_Tarihe_Göre_Sırala    </a></h5><ul>
<h6><%
kdMenu.Open "SELECT TOP 500 baslik, tarih, durum, onay, haberID FROM tblHaberler WHERE durum = True AND onay=True ORDER BY tarih DESC, haberID ASC",adoCon, 1, 3
If Not kdMenu.EOF Then
Do While Not kdMenu.EOF
Response.Write("<li><a href=""haber_oku.asp?haber="& kdMenu("haberID") &""" title="""& kdMenu("baslik") &""">"& Trim(kdMenu("baslik")) &"</a> Eklenme Tarihi: "& kdMenu("tarih") &"</li>")
kdMenu.MoveNext
Loop
End If
kdMenu.Close %>
</h6>
</ul>
</p></td><td width="25%" valign="top"><div id="sag_menu">
<!--#include file="inc_sag_menu.asp"-->
</div></td>
</tr>
</table>
<p>&nbsp;</p></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top"><table width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="55" valign="top"><img src="index_files/index_bottom_left.gif" editor="Webstyle4" moduleid="dayim (Project)\index_bottom_left.xws" border="0" /></td>
<td class="footer">&nbsp;</td>
<td width="55" valign="top"><img src="index_files/index_bottom_right.gif" editor="Webstyle4" moduleid="dayim (Project)\index_bottom_right.xws" border="0" /></td>
</tr>
</table></td>
</tr>
<tr>
<td>&nbsp;</td>
</tr>
</table></td>
</tr>
</table>
<p>&nbsp;    </p>
</body>
</html>

25-08-2008, 18:31:59

#2

ChaWusH

ücretsiz yardımcı olabilecek kimse yok mu?
26-08-2008, 00:01:02

#3

KingCoder

db türüne ne access , sql ?
26-08-2008, 09:50:22

#4

magnetox

Merhaba Dostum Çooooook öncelerden sitem için yazdığım bir makaleyi uygulamalı olarak sitemde vermiştim rar dosyasında şimdi yanısını buraya koyuyorum ekte yollayacaktım ama ekleyemedim.

http://www.fullasp.com/asp_uygulama/sayfala.rar

kodların uzun gibi göründüğüne bakma yanlarında açıklama var =)
26-08-2008, 09:50:55

#5

magnetox

sql sa bu işlemez sql sa söyle onuda koyayım.
26-08-2008, 20:12:56

#6

ChaWusH

sql değil mdb.

magnetic tşk arkadaşım fakat bu kodları yukarıda verdiğim sayfa koduna nasıl oturtabilirim? aspden fazla anlamıyorum da..
28-08-2008, 22:10:04

#7

ChaWusH

yardımcı olabilecek var mı?
01-09-2008, 02:24:25

#8

technonur

<%vt="DRIVER={Microsoft Access Driver (*.mdb )}; DBQ=" & server.mappath("db/haber.mdb" )
set conn = Server.CreateObject("adodb.connection" )
set rs = Server.CreateObject("adodb.recordset" )%><br>

<%conn.open vt
rssql = "Select * from haberler where haber order by id DESC"
rs.open rssql, conn, 1, 3
If rs.eof or rs.bof then
Response.Write "<font face=verdana size=2 color=#ff3300><b><center><br>Kayıtlı haber yok.</br></center></b></font>"
Response.end
end if
sayfa = Request.QueryString("sayfa" )
If sayfa="" Then sayfa=1
rs.pagesize = 2 her sayfadaki veri sayısı
rs.absolutepage = sayfa
sayfa_sayisi = rs.pagecount
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
%><br>

<%=rs("haber_adi" )%><br>
<%rs.movenext
Next%><br>
<br>
Toplam kayıt: <%=rs.recordcount%>
-
<% sayfa numaraları ve link
response.Write "Sayfa: "
for g = 1 to sayfa_sayisi
if g = cint(sayfa ) then bulunduğumuz sayfaya link yok
response.write g& " " %><% else
response.Write "<a href=?sayfa=" & g & ">" & g & "</a> "
end if
next%>

işini görür belki
alıntıdır
01-09-2008, 15:41:21

#9

apridev

Alıntı

<% @ Language=VBScript %>
<% Option Explicit %>


<%
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' mydesign haber sistemi
' W: http://www.mydesign.gen.tr
' @: mydesign@mydesign.gen.tr
' Anasayfa Kodlar
' Son Dzenleme: 10 Ekim 2006 (v0.4)
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'// Sayfann nbellekten alnmas nleniyor
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "No-Store"
'// Deikenler Tanmlanyor
Dim blnSuz
Dim blnAra
Dim SQL
Dim intToplam
Dim G_Kayit
Dim T_Kayit
Dim intLooper
Dim intSayfaSayisi
Dim intHaberYorumSayisi
Dim blnHaberYorum
Dim intHaberID
Dim strHaberBaslik
Dim strHaberResim
Dim intHaberEditor
Dim dtmHaberTarih
Dim strHaberOzet
Dim intHaberKategori
Dim intHaberPuan
Dim intHaberOySayisi
Dim intHaberOkunma
Dim intArananEditorID
blnSuz = False
blnAra = False
blnMenuAc = False
'// Arama verileri alnyor
intArananKategori = Temizle(Request.QueryString("kategori"))
strArananKelime = Temizle(Request.QueryString("kelime"))
intArananEditorID = Temizle(Request.QueryString("editor"))
If IsNumeric(intArananKategori) Then
strArananKategori = KategoriBul(intArananKategori)
If strArananKategori <> "" Then blnSuz = True
End If
If intArananEditorID <> "" AND IsNumeric(intArananEditorID) Then blnAra = True
If Len(strArananKelime) >= 3 Then blnAra = True
'// Veritaban sorgulamas yaplyor
SQL = "SELECT haberID, kategori, baslik, ozet, tarih, editor, yorum, onemli, onay, resim, okunma"
SQL = SQL & " FROM tblHaberler WHERE durum=True AND onay=True"
If blnAra Then SQL = SQL & " AND (baslik LIKE '%" & strArananKelime & "%' OR ozet LIKE '%" & strArananKelime & "%' OR haber LIKE '%" & strArananKelime & "%')"
If intArananEditorID <> "" AND IsNumeric(intArananEditorID) Then SQL = SQL & " AND editor = "& CInt(intArananEditorID) &""
If blnSuz Then SQL = SQL & " AND kategori = "& CInt(intArananKategori) &""
If blnAra = False AND blnSuz Then
kdYardimci.Open "SELECT * FROM tblKategoriler WHERE UstKatID = "& CInt(intArananKategori) &"", adoCOn, 1, 3
If Not kdYardimci.Eof Then
SQL = SQL & "OR ("
Do While Not kdYardimci.Eof
SQL = SQL & "kategori = "& kdYardimci("KatID") &" OR "
kdYardimci.Movenext
Loop
SQL = SQL & " kategori = "& CInt(intArananKategori) &")"
End If
kdYardimci.Close
End If
SQL = SQL & " ORDER BY onemli ASC, Tarih DESC, haberID DESC"
kdGenel.Open SQL, adoCon, 1, 3
intToplam = kdGenel.RecordCount %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title><%=strSiteAdi%> <% If blnSuz Then Response.Write " "& strArananKategori %><% If blnAra Then Response.Write " Arama Sonular ("& strArananKelime &")"%></title>

<meta name="generator" content="mydesign | haberci v<%=strVersiyon%>" />

<style type="text/css">

</style>
</head>
<body>
<p><br style="clear:both" />
</p>
<table width="100%" cellspacing="0" cellpadding="0">
<tr>
<td><table width="98%" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><table width="100%" cellspacing="0" cellpadding="0">
<tr>
<td height="43" rowspan="2" valign="top"> </td>
<td valign="baseline" bgcolor="#FFCC66"><img src="index_files/index_banner_solust_son.gif" width="64" height="29" /></td>
<td valign="top" bgcolor="#FFCC66" class="topcolumn"> </td>
<td valign="top" bgcolor="#FFCC66"><img src="index_files/index_banner_sagust2.gif" width="55" height="29" /></td>
</tr>
<tr>
<td valign="baseline" bgcolor="#FFCC66" class="leftcolumn"> </td>
<td valign="top" bgcolor="#FFCC66"><div align="center"><img src="image/b_turuncu.jpg" width="455" height="125" /></div></td>
<td valign="top" bgcolor="#FFCC66"><img src="index_files/index_banner_sagorta.gif" width="55" height="125" /></td>
</tr>
<tr>
<td width="46" height="43" valign="top"><img src="index_files/index_top_left.gif" editor="Webstyle4" moduleid="dayim (Project)\index_top_left.xws" border="0" /></td>
<td width="64" valign="top"><img src="index_files/index_spacer.gif" editor="Webstyle4" moduleid="dayim (Project)\index_spacer.xws" border="0" /></td>
<td valign="top" class="hnavbg"><script webstyle4="Webstyle4">document.write('<scr'+'ipt src="index_files/xaramenu.js">'+'</scr'+'ipt>');document.write('<scr'+'ipt src="index_files/index_hnavbar.js">'+'</scr'+'ipt>');</script>
</td>
<td width="55" valign="top"><img src="index_files/index_top_right.gif" editor="Webstyle4" moduleid="dayim (Project)\index_top_right.xws" border="0" /></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="160" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="75" align="center" valign="top" class="leftcolumn"><div align="center"><img src="index_files/index_logo2.gif" editor="Webstyle4" moduleid="dayim (Project)\index_logo2.xws" border="0" /></div></td>
</tr>
<tr>
<td><script webstyle4="Webstyle4">document.write('<scr'+'ipt src="index_files/xaramenu.js">'+'</scr'+'ipt>');document.write('<scr'+'ipt src="index_files/index_vnavbar.js">'+'</scr'+'ipt>');</script>
</td>
</tr>
<tr>
<td bgcolor="#ffffcc">
<div class="kutu" id="sol_menu">
<iframe src="uyelik/default.asp" frameborder="0" width="185" height="550"></iframe>
<h3><font color='#FF6600'>DİĞER BÖLÜMLER</h3></font color>
<h6>
<li class="kat"><a href="radyosiir.asp" class="ust-kat"><strong><font color='#00CCFF'>Radyo Şiir</strong></a></li>
<li class="kat"><a href="radyogulluk.asp" class="ust-kat"><strong><font color='#00CCFF'>Radyo Güllük</strong></a></li>
<li class="kat"><a href="album2/default.asp" class="ust-kat"><strong><font color='#00CCFF'>Resimli Şiirler</strong></a></li>
<li class="kat"><a href="memleket.asp" class="ust-kat"><strong><font color='#00CCFF'>Resimler</strong></a></li>
<li class="kat"><a href="turku_nota/default.asp" class="ust-kat"><strong><font color='#00CCFF'>Türkü Nota,Söz</strong></a></li>
<li class="kat"><a href="muzik.asp" class="ust-kat"><strong><font color='#00CCFF'>Mp3 Türkü Dinle</strong></a></li>
<li class="kat"><a href="z_defteri.asp" class="ust-kat"><strong><font color='#00CCFF'>Ziyaretçi Defteri</strong></a></li>
<li class="kat"><a href="hakkimda.asp" class="ust-kat"><strong><font color='#00CCFF'>Form Yaz,Oku</strong></a></li>
<li class="kat"></li></h6>
<h3><font color='#FF6600'>SON DAKİKA HABERLER</h3></font color>
<ul><iframe frameborder="0" src="http://sondakika.haber7.com/" width="185" height="300" ></iframe></ul></div>
</div>
</td>
</tr>
</table></td>
<td valign="top" class="rightcolumn"><table width="100%" height="100%" border="0" align="center">
<tr>
<td width="75%" valign="top"><p> </p>
<p> </p>
<p align="center">
<h3>ŞiiR iSiMLERi SON EKLENENDEN BAŞLAR</h3><br/><p align="center"><h5><a href='siir_isimleri1.asp?'>İlk_Tarihe_Göre_Sırala </a></h5><ul>
<h6><%
sirasi = request.querystring("sirasi")
kdMenu.Open "SELECT TOP 500 baslik, tarih, durum, onay, haberID FROM tblHaberler WHERE durum = True AND onay=True ORDER BY tarih DESC, haberID ASC",adoCon, 1, 3
if not hbr.eof then

if sirasi = "" then
sirasi = 1
end if

kdMenu.pagesize = 20
toplam = kdMenu.pagecount
hbr.absolutepage = sirasi
%>
<li><a href="haber_oku.asp?haber=<%= kdMenu("haberID") %>" title="<%= kdMenu("baslik") %>"><%= Trim(kdMenu("baslik")) %></a> Eklenme Tarihi: <%= kdMenu("tarih") %></li>
<%
kdMenu.movenext
next

else
response.write "Kayitli Içerik Bulunamadi"
end if
response.write "Sayfa Sırası:"
for sira = 1 to toplam

If sira mod 20 = 0 Then
Response.Write "<br>"
End If

response.write "" & "<a href = ""default.asp?sayfa="&sira&""">" & sira & "</a> "
next %>
</h6>
</ul>
</p></td><td width="25%" valign="top"><div id="sag_menu">

</div></td>
</tr>
</table>
<p> </p></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top"><table width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="55" valign="top"><img src="index_files/index_bottom_left.gif" editor="Webstyle4" moduleid="dayim (Project)\index_bottom_left.xws" border="0" /></td>
<td class="footer"> </td>
<td width="55" valign="top"><img src="index_files/index_bottom_right.gif" editor="Webstyle4" moduleid="dayim (Project)\index_bottom_right.xws" border="0" /></td>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
</tr>
</table>
<p>  </p>
</body>
</html>

KULLANMAN GEREKEN KOD BU.

Sayfanda içerikleri gösterirken Do While Not yani tüm kayıtları göster komutunu kullanmışsın. Yukarda verdiğim kod ile içeriklerini 20'şer 20'şer sıralayabilirsin.

NOT: Sıralamayı default.asp üzerinden yaptım eğer ki anasayfan index.asp veya başka bir şey ise ona göre default.asp değiştirirsin...