Vid de næste tre poster

Her er koden jeg bruger på min side!

<%
' ***** Liste over nyheder *****
Dim CONN_STRING

CONN_STRING = "DSN=navn på dsn"

CONN_STRING = Application("SQLConnString")
' END USER CONSTANTS

' BEGIN RUNTIME CODE
' Declare our vars
Dim iPageSize      'How big our pages are
Dim iPageCount      'The number of pages we get back
Dim iPageCurrent    'The page we want to show
Dim sSQL            'SQL command to execute
Dim objPagingConn  'The ADODB connection object
Dim objPagingRS    'The ADODB recordset object
Dim iRecordsShown  'Loop controller for displaying just iPageSize records
Dim I              'Standard looping var

' Get parameters
iPageSize = 4 ' You could easily allow users to change this

iPageCurrent = 1

' Create and open our db connection
Set objPagingConn = Server.CreateObject("ADODB.Connection")
objPagingConn.Open "DSN=studenterlaugetnyheder"

' Create recordset
Set objPagingRS = Server.CreateObject("ADODB.Recordset")

' Set page size
objPagingRS.PageSize = iPageSize

' If you were doing this script with a search or something
' you'd need to pass the sql from page to page.  I'm just
' paging through the entire table so I just hard coded it.
' What you show is irrelevant to the point of the sample.
sSQL = "SELECT Nyheder.id AS ID, Nyheder.overskrift AS Nyhed, Nyheder.datostart AS Dato FROM Nyheder WHERE Nyheder.Datoslut > Date()  ORDER BY Nyheder.Datostart DESC;"

' Open RS
objPagingRS.Open sSQL, objPagingConn


%>

Resten indsættes i asp filen efter behov:

<Table width="240">
<%
' Continue with a title row in our table
Response.Write "<TABLE BORDER=""0"">" & vbCrLf

' Loop through our records
iRecordsShown = 0

Do While iRecordsShown < iPageSize And Not objPagingRS.EOF
%>
    <TR>
        <td width="50"><font face="arial" size="1">
        <% =objPagingRS("Dato") %>
        </td></font>
        <TD width="190"><font face="arial" size="1">
        <a href="../nyheder/visnyhed.asp?id=<% =objPagingRS("ID") %>" target="_self"><% =objPagingRS("Nyhed") %> </a></font>
        </TD>
   
    </tr>
   
    <% ' Increment the number of records we've shown
    iRecordsShown = iRecordsShown + 1
   
    objPagingRS.MoveNext
   
Loop

' All done - close table
Response.Write "</TABLE>" & vbCrLf

' Close DB objects and free variables
objPagingRS.Close
Set objPagingRS = Nothing
objPagingConn.Close
Set objPagingConn = Nothing

' END RUNTIME CODE
%>
</Table>