Jeg kan ikke finde ud af at integrere det.. indtil videre ser det sådan ud:
<html><head>
<title>Paging af et recordset</title>
</head><body>
<%if request.querystring(\"page\") = (\"news\") then%>
<%
intPage = Request(\"sort\")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT id FROM news\"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"db/settings.mdb\")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 10
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
%>
<%
Do While Not rs.EOF And intRecCount > 0
Response.Write rs(\"id\") & \"<br>\"
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
%>
<STRONG><FONT face=Arial size=6>News</FONT></STRONG>
<br>
<br>
<center><%Response.Write \"<b>Site \" & intPage & \" of \" & intPageCount & \"</b>\"%>
<br>
<%
Response.Write \"Go to page \"
For intNum = 1 To intPageCount
Response.Write \"<a href=maxperpage.asp?page=news&sort=\" & intNum & \">\" & intNum & \"</a> \"
Next
Response.Write \"<br>\"
If Clng(intPage) > 1 Then
Response.Write \"<a href=maxperpage.asp?page=news&sort=\" & intPage - 1 & \"><<</a>\"
Else
Response.Write \"<<\"
End If
Response.Write \" \"
If Clng(intPage) < Clng(intPageCount) Then
Response.Write \"<a href=maxperpage.asp?page=news&sort=\" & intPage + 1 & \">>></a> \"
Else
Response.Write \">>\"
End If
%>
</center>
<br>
<%
Set DataConn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; \"
DSN = dsn & \"DBQ=\" & server.mappath(\"db/settings.mdb\")
DataConn.Open DSN
%>
<%
Set news = Server.CreateObject(\"ADODB.RecordSet\")
news.open \"Select * From [news] order by id desc;\", DataConn
if not news.EOF then
news.MoveFirst
end if
do while not news.EOF
tekst = replace(news(\"news\"), vbcrlf, \"<br>\")
%>
<center>
<table border=\"0\" width=\"500\" cellspacing=\"0\" cellpadding=\"0\" style=\"border: 1 solid #5F5758\" ID=\"Table1\">
<tr height=\"20\" bgcolor=\"#5F5758\">
<td width=\"400\" class=\"header\">
<b><a name=<%=news(\"id\")%>><%=news(\"subject\")%></a> - <%=news(\"dato\")%> <%=news(\"tid\")%></b> - <a href=\"default.asp?page=comments&commentid=<%=news(\"id\")%>\"><font color=\"#FFFFFF\"><b>Comments</b></font></a>
</td>
</tr>
<tr>
<td width=\"100%\" height=\"19\" colspan=\"2\" bgcolor=\"#12192A\">
<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"5\" align=\"center\" ID=\"Table2\"><tr><td>
<% Response.Write (tekst) %>
</td></tr></table>
</td>
</tr>
<tr height=\"20\">
<td width=\"100%\" height=\"19\" colspan=\"2\" bgcolor=\"#12192A\"><br><b> Written by <%=news(\"name\")%></b></td>
</tr>
</table>
<center>
<br>
<br>
<%
news.MoveNext
loop
news.Close
set news = nothing
Dataconn.Close
%>
<%end if%>
</body></html>
