hjælp til at implementer paging funktion
Hej venner..Er der nogle der kan hjælpe mig med at implementer paging funktion til en billed galeri system jeg bruger..?
takker....
<!--#include file="duzenbaz.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9">
<%
kat_id = Request.QueryString("kat_id")
Set ka= Server.CreateObject("ADODB.Recordset")
sor = "Select * From tblgaleri_kat where k_id = "&kat_id&""
ka.Open sor,Sur,1,3
Set rs= Server.CreateObject("ADODB.Recordset")
sor = "Select * From tblgaleri where kat_id = "&kat_id&" order by r_id desc;"
rs.Open sor,Sur,1,3
syf = Request.QueryString("syf")
if syf="" then
syf=1
end if
%>
<style type="text/css">
<!--
-->
</style>
<link href="../../css/style01.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="" leftmargin="0" rightmargin="0" topmargin="0" marginwidth="0" marginheight="0" onload="parent.document.getElementById('galeri').style.height=((document.body.scrollHeight)?document.body.scrollHeight:document.body.offsetHeight)+'px'">
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="26"><span class="style1">..</span>Galleri <span class="sol_ok">></span><strong> <%=ka("k_ad")%>
</strong>
</td>
</tr>
<tr>
<td>
<%
If rs.eof then
Response.Write "<center>Su anda bu dizine resim eklenmemis</center>"
Response.End
End If %>
<%
noPrRow = 0
maxPrRow = 3
response.write "<table>"
do while not rs.EOF
if noPrRow = 0 then response.write "<tr>"
response.write "<td>"
response.Write "<img src=""galeri_images/"& rs("r_url")&""" border=""1"" style=""width:130;cursor:pointer;"" onclick=""popWin(this.src);"" title=""Klik for fuld størrelse""> "
response.write "</td>"
noPrRow = noPrRow + 1
if noPrRow = maxPrRow then
response.write "</tr>"
noPrRow = 0
end if
rs.Movenext
loop
if noPrRow > 0 then response.write "</tr>"
response.write "</table>"
next
%>
</td>
</tr>
</table>
</body>
</html>
