Avatar billede skildpadden Nybegynder
01. april 2004 - 20:06 Der er 3 kommentarer og
1 løsning

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
'****************************************************************************************************                       
%>
Avatar billede ellebaek Nybegynder
02. april 2004 - 16:33 #2
Avatar billede skildpadden Nybegynder
20. april 2004 - 22:07 #3
Har brugt ellebaek's svar.

Ellebaek: smid lige et svar...
Avatar billede ellebaek Nybegynder
21. april 2004 - 08:09 #4
der er et svar her ;-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester