blind på paging
Jeg har nedestående script.Jeg vil gerne have fire billeder i to rækker og derefter skal der så være en ny side med billederne 9-17
Men ligemeget hvad jeg gør. Så kommer der kun et ud pr række...
<p align="center"><b><font face="Arial" size="2">Galleriet</font></b> </p>
<div align="center">
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
%>
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM billeder WHERE menupunkt = '" & request.querystring("menu") & "'"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 2
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
Do While Not rs.EOF And intRecCount > 0
%>
<table border="0" id="table1" style="text-align: center">
<tr>
<%
COUNTER = 0
%>
<td>
<table border="0" id="table2" cellspacing="0" cellpadding="0" bordercolor="#000000">
<tr>
<td align="center">
<img border="0" src="<%=rs("fil")%>" align="left" width="89" height="100" style="border: 1px solid #000000"></td>
</tr>
</table>
</td>
<%
intRecCount = intRecCount - 1
rs.Movenext
COUNTER = COUNTER + 1
If COUNTER = 4 And Not rs.eof Then
COUNTER = 0
%>
</tr>
<tr>
<%
End If
Loop
%>
</tr>
</table>
<p><br>
</div>
<% End If %>
