Hente data fra access over flere sider
Jeg anvender nedenstående til at hente data fra en access database, det fungerer også fint, men jeg vil gerne have mulighed for at dele op således at dataene vises over flere sider.F.eks. således at hvis der er 30 poster, skal de vises over 3 sider med 10 poster på hver.
Nuværende kode:
<%
'****************************************************************************************************
'** UDSKRIV NYHEDER START
'****************************************************************************************************
IF Request.QueryString("strOrder") <> "" Then
strOrder = Request.QueryString("strOrder")
ELSE
strOrder = "ID DESC"
END IF
strSQL = "SELECT TOP " & strNyhederOpsaetningVisAntal & " * FROM Nyheder ORDER BY "&strOrder
Set RstObj = ConnObj.Execute(strSQL)
%>
<%
intCount = 0
While Not RstObj.eof AND Not RstObj.bof
if intCount = 1 then
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td bgcolor="<%=strNyhederOpsaetningBaggrundsfarveAktiviteter%>">
<%IF NOT RstObj("ImageFile1") = "" THEN%>
<a href="ShowPage.asp?Page=pages/artikel/Default.asp&ID=<%=RstObj("ID")%>">
<img border="1" src="data/<%=RstObj("ImageFile1")%>" width="100" align="right" hspace="7"></a>
<%END IF%>
<b>
<a href="ShowPage.asp?Page=pages/artikel/Default.asp&ID=<%=RstObj("ID")%>"><%=RstObj("Sidetitel")%></a> </b>
<sup><%=Day(RstObj("Oprettetdato"))%>-<%=Month(RstObj("Oprettetdato"))%>-<%=Year(RstObj("Oprettetdato"))%></sup><br><%=left(RstObj("Beskrivelse1"),175)%>...
<a href="ShowPage.asp?Page=pages/artikel/Default.asp&ID=<%=RstObj("ID")%>">» Læs mere</a></td>
</tr>
</table>
<hr color="#000000" size="1">
<%
intCount = 0
%>
<% else %>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td>
<%IF NOT RstObj("ImageFile1") = "" THEN%>
<a href="ShowPage.asp?Page=pages/artikel/Default.asp&ID=<%=RstObj("ID")%>">
<img border="1" src="data/<%=RstObj("ImageFile1")%>" width="100" align="left" hspace="7"></a>
<%END IF%>
<b>
<a href="ShowPage.asp?Page=pages/artikel/Default.asp&ID=<%=RstObj("ID")%>"><%=RstObj("Sidetitel")%></a> </b>
<sup><%=Day(RstObj("Oprettetdato"))%>-<%=Month(RstObj("Oprettetdato"))%>-<%=Year(RstObj("Oprettetdato"))%></sup><br><%=left(RstObj("Beskrivelse1"),175)%>...
<a href="ShowPage.asp?Page=pages/artikel/Default.asp&ID=<%=RstObj("ID")%>">» Læs mere</a></td>
</tr>
</table>
<hr color="#000000" size="1">
<%
intCount = 1
End IF
%>
<%
RstObj.MoveNext
Wend
%>
<%
RstObj.Close
Set RstObj= nothing
'****************************************************************************************************
'** UDSKRIV NYHEDER SLUT
'****************************************************************************************************
%>
