Hjælp til paging
Hej,Jeg er ved at lege med et hjemmebygget galleri:
<!--#include file="../Database.asp"-->
<%
If isEmpty(Request.Querystring("albumID")) then
albumID = 1
else
albumID = Request.Querystring("albumID")
End if
If isEmpty(Request.Querystring("pictureID")) then
pictureID = 1
else
pictureID = Request.Querystring("pictureID")
End if
SQL2 = "Select * FROM Galleries WHERE GalleryID=" & albumID
'Response.Write SQL2
Set rs2 = Conn.Execute(SQL2)
SQL3 = "Select * FROM Gallerypictures WHERE PictureID=" & pictureID
Set rs3 = Conn.Execute(SQL3)
%>
<!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>Billedgalleri</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<link href="Style.css" rel="stylesheet" type="text/css" />
</head>
<body id="gal">
<table width="100%" border="0" cellspacing="0">
<tr bgcolor="#BA242D">
<td colspan="2"><div id="titel"><%=rs2("Title")%></div></td>
</tr>
<tr>
<td colspan="2">
<div class="galnav">
<%
If rs2.eof or rs2.bof then
Response.Write "Ingen gallerier i systemet."
else
Do While not rs2.eof
SQL = "Select * FROM Gallerypictures WHERE AlbumID=" & rs2("GalleryID")
Set rs = Conn.Execute(SQL)
%>
<a href="default.asp?albumID=<%=rs2("GalleryID")%>&pictureID=<%=pictureID%>"><%=rs2("Title")%></a>
<%
rs2.movenext
loop
End if
%>
</div>
</td>
</tr>
<tr>
<td width="422" align="center" valign="top"><p><img src="showpiclarge.asp?piclarge=<%=rs3("Path")%>" alt="<%=rs3("Title")%>"></p>
<div class="indhold">
<p> </p>
</div>
<p> </p></td>
<td valign="top">
<p>
<%
If rs.eof or rs.bof then
Response.Write "Der findes ingen billeder i dette galleri."
else
%>
</p>
<table width="400" border="0" cellpadding="0" cellspacing="0" id="thumbtb">
<%
noPrRow = 0
maxPrRow = 3
Do While not rs.eof
strBillede = rs("Path")
If noPrRow = 0 then
Response.Write "<tr>"
Response.Write "<td valign='top'>"
Response.Write "<a href='default.asp?albumID=" & rs("AlbumID") & "&pictureID=" & rs("pictureID") & "'>"
Response.Write "<img src='showpic.asp?pic=" & strBillede & "' class='thumbpic' alt='" & rs("Title") & "'></a>"
Response.Write "</td>"
noPrRow = noPrRow + 1
else
Response.Write "<td valign='top'>"
Response.Write "<a href='default.asp?albumID=" & rs("AlbumID") & "&pictureID=" & rs("pictureID") & "'>"
Response.Write "<img src='showpic.asp?pic=" & strBillede & "' class='thumbpic' alt='" & rs("Title") & "'></a>"
noPrRow = noPrRow + 1
End if
If noPrRow = maxPrRow then
Response.Write "</tr>"
noPrRow = 0
End if
rs.movenext
loop
Response.Write "<br><br>"
%>
<tr align="left" valign="top">
<td id="billedmenu" colspan="3"><div class="indhold">1 | 2 | 3 | 4 </div></td>
</tr>
</table>
<%
End if
%></td>
</tr>
<tr valign="top">
<td id="galdis" colspan="2"><div align="center" class="disclaimer"></div></td>
</tr>
</table>
</body>
</html>
Det virker fint, men jeg kunne godt tænkte mig at få noget paging på der hvor jeg har illustreret med 1 | 2 | 3 | 4.
Jeg har forsøgt at koble det sammen med det fra den paging artikel på activedeveloper.dk, men det går bare fuldstændig i ged.
Er der en som kan hjælpe mig med at få paging på?
