Paging problem
HejJeg har prøvet at smide paging på mit album, men uden held håber nogen kan hjælp :)
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<link href="style.css" rel="stylesheet" type="text/css">
<script type='text/javascript' src="flexcroll.js"></script>
<link href="flexcrollstyles.css" rel="stylesheet" type="text/css" />
<title>Thumbs</title>
</head>
<body>
<table border="0" width="100%" style="border-collapse: collapse">
<tr>
<td width="20%" valign="top">
<!--#include file="../inc_menu.asp" -->
</td>
<td valign="top">
<p align="center"><b><%=request.querystring("kategori") %></b></p>
<%
Sql = "SELECT * FROM galleri WHERE kategori='" & request.querystring("kategori") & "' ORDER BY dato DESC"
Set rs = Conn.Execute(Sql)
%>
<table border="0" width="100%" id="table1" style="border-collapse: collapse">
<tr>
<%
counter=0
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF
if counter = 4 then
counter=0
Response.Write "</tr><tr>"
end if
%>
<td>
<table border="0" id="table1" bordercolorlight="#808080" bordercolordark="#808080" style="border-collapse: collapse">
<tr>
<td>
<% if session("rang") = "" then %>
<% if rs("guest") = -1 then %>
<A HREF="default.asp?side=fester/festbilleder/billede_visning&id=<% = rs("id") %>" onClick=""><IMG SRC="http://www.pivskid.dk/test/fester/festbilleder/images/<%=rs("filnavn")%>" HEIGHT="100" WIDTH="100" ALT="" BORDER="1"></A>
<% else %>
<% response.write("") %>
<% end if %>
<% elseif session("rang") = "bruger" then %>
<% if rs("bruger") = -1 then %>
<A HREF="default.asp?side=fester/festbilleder/billede_visning&id=<% = rs("id") %>" onClick=""><IMG SRC="http://www.pivskid.dk/test/fester/festbilleder/images/<%=rs("filnavn")%>" HEIGHT="100" WIDTH="100" ALT="" BORDER="1"></A>
<% else %>
<% response.write("") %>
<% end if %>
<% elseif session("rang") = "super bruger" then %>
<% if rs("super_bruger") = -1 then %>
<A HREF="default.asp?side=fester/festbilleder/billede_visning&id=<% = rs("id") %>" onClick=""><IMG SRC="http://www.pivskid.dk/test/fester/festbilleder/images/<%=rs("filnavn")%>" HEIGHT="100" WIDTH="100" ALT="" BORDER="1"></A>
<% else %>
<% response.write("") %>
<% end if %>
<% elseif session("rang") = "coadmin" then %>
<% if rs("coadmin") = -1 then %>
<A HREF="default.asp?side=fester/festbilleder/billede_visning&id=<% = rs("id") %>" onClick=""><IMG SRC="http://www.pivskid.dk/test/fester/festbilleder/images/<%=rs("filnavn")%>" HEIGHT="100" WIDTH="100" ALT="" BORDER="1"></A>
<% else %>
<% response.write("") %>
<% end if %>
<% elseif session("rang") = "admin" then %>
<% if rs("admin") = -1 then %>
<A HREF="default.asp?side=fester/festbilleder/billede_visning&id=<% = rs("id") %>" onClick=""><IMG SRC="http://www.pivskid.dk/test/fester/festbilleder/images/<%=rs("filnavn")%>" HEIGHT="100" WIDTH="100" ALT="" BORDER="1"></A>
<% else %>
<% response.write("") %>
<% end if %>
<% end if %>
</td>
</tr>
<tr>
<td>
<div align="center">
<table border="1" width="100%" bordercolorlight="#808080" bordercolordark="#808080" style="border-collapse: collapse" bgcolor="#CDEB8B">
<tr>
<td>
<p align="center"><font size="1">Hits : <% = rs("hits") %></font></td>
</tr>
</table>
</div>
</td></tr></table>
<br></td> <%
counter=counter + 1
rs.MoveNext
Loop
Else
response.write "<b>Der er ikke nogen billeder endnu!</b>"
end if
%>
</table>
<%
Conn.Close
Set Conn = Nothing
%>
</td>
</tr>
</table>
</body>
</html>
