Del i sider..

Hejsa Eksperter..

Jeg har en ASP side som henter et billede, og noget tekst fra en database.. Dette virker fint nok..

Men der er mange billeder i databasen, så siden bliver for stor.. Jeg vil gerne have såen at den viser 4 billeder pr. side. Og så skal der være en knap som hedder næste, og forrige forneden..


''''''''''ASP KODEN ''''''''''''
<html>
<!--#INCLUDE FILE="conn.asp" -->
<head>
<meta http-equiv="Content-Language" content="da">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>HB Trapper A/S</title>
</head>

<%
Set RS = Server.CreateObject("ADODB.Recordset")
strSQL = "Select * From Indvendige ORDER BY ImageID"
RS.Open strSQL, strDB, 3, 1, &H0001

If RS.RecordCount = 0 Then Response.End

ShowPage = CInt(Request.QueryString("ShowPage"))
PageSize = 4
RS.PageSize = PageSize

NumOfPages = RS.PageCount
If ShowPage < 1 then
        ShowPage = 1
ElseIf ShowPage > NumOfPages Then
        ShowPage = NumOfPages
End If

RS.AbsolutePage = ShowPage

i = 0
%>

<p><br>
&nbsp;</p>
<div align="left">
<% Do While Not RS.EOF and not i = 3 %>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber1">
    <tr>
      <td width="110">
      <p align="center">
      <img style="cursor:hand;" border="0" src="IndvendigeView.asp?ImageID=<%=Rs("ImageID")%>" ></td>
      <td width="440" valign="middle">
      <p align="left"><font face="Verdana" size="2"><%= RS("Tekst")%> </font>
      </td>
    </tr>
  </table>
</div>
<br>
<%
rs.movenext
i = i + 1
if not rs.eof AND not i = 6 then
%>
<div align="left">
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber2">
    <tr>
      <td width="440">
      <p align="left">
      <font face="Verdana" size="2"><%= RS("Tekst")%> </font>
      </td>
      <td width="110">
      <p align="center">
      <img border="0" style="cursor:hand;" src="IndvendigeView.asp?ImageID=<%=Rs("ImageID")%>" ></td>
    </tr>
  </table>
</div>
<br>
<%
rs.movenext
i = i + 1
end if
loop

%>
<p align="left">&nbsp;</p>
<div align="left">
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="550" id="AutoNumber3">
    <tr>
      <td width="270">
      <p align="left"><font face="Verdana" size="1">Forrige side</font></td>
      <td width="280">
      <p align="right"><font face="Verdana" size="1">Næste side</font></td>
    </tr>
  </table>
</div>

</html>