Her er et komplet eksempel som jeg briger det virker ihverflad fint nok hos mig
<%
dim objCon \' The connection object
dim objCmd \' The connection object
dim rs \' The recordset object
set objCon = server.createobject(\"ADODB.Connection\")
objCon.Open \"pp\",\"pp_user\",\"pp_pass\"
set objCmd= Server.CreateObject(\"ADODB.Command\")
set objCmd.ActiveConnection = objCon
objCmd.CommandType = 1
Set rs = Server.CreateObject(\"ADODB.Recordset\")
objCmd.CommandText = \"SELECT * FROM [PP] ORDER BY Project_No\"
rs.Open objCmd, ,1,1
intPage = Request(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
num = rs.RecordCount
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 5
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write \"<p align=center><b>Page \" & intPage & \" of \" & intPageCount & \"</b></p>\"
%>
<div align=\"center\">
<center>
<table border=\"1\" width=\"63%\" cellspacing=\"1\">
<tr>
<td width=\"21%\"><b>Product Project Nr.</b></td>
<td width=\"24%\" align=\"center\"><b>Product Manager</b></td>
<td width=\"100%\" align=\"center\"><b>Designation</b></td>
<td width=\"10%\" align=\"center\"><b></b><b>View Documents</b></td>
</tr>
<%
Do While Not rs.EOF And intRecCount > 0
%><tr>
<td width=\"21%\"> <a href=\"view.asp?ID=<%=RS(\"ID\")%>\"><%=RS(\"Project_No\")%></a></td>
</center>
<td width=\"24%\" align=\"center\">
<%=RS(\"Project_Mgr\")%></td>
<td width=\"100%\" align=\"center\">
<p align=\"left\"><%=RS(\"Designation\")%>
<center>
<% if RS(\"Designation\") = \"\" then response.write\" \" end if%></td>
<td width=\"10%\" align=\"center\"><b></b><a href=\"view_doc.asp?ID=<%=RS(\"ID\")%>\"><img border=\"0\" src=\"icon_dokument.gif\"></a></td>
</tr>
<%
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
%>
</table>
</div>
<p align=\"center\"> </p>
<%
Rs.Close
set ObjCmd=nothing
ObjCon.Close
Response.Write \"<p align=center>Number of found Projects : \" & num &\"</p>\"
Response.Write \"<p align=center>Go to Page \"
For intNum = 1 To intPageCount
Response.Write \"<a href=default.asp?page=\" & intNum & \">\" & intNum & \"</a> \"
Next
Response.Write \"<p>\"
If Clng(intPage) > 1 Then
Response.Write \"<p align=center><a href=default.asp?page=\" & intPage - 1 & \"><img border=0 src=ol.gif width=24 height=22 alt=Back></a>\"
Else
%><p align=\"center\"><img border=\"0\" src=\"nl.gif\" width=\"24\" height=\"22\" alt=\"First Page\"><%
End If
Response.Write \" \"
If Clng(intPage) < Clng(intPageCount) Then
Response.Write \"<a href=default.asp?page=\" & intPage + 1 & \"><img border=0 src=or.gif width=24 height=22 alt=Forward></a>\"
Else
%><img border=\"0\" src=\"nr.gif\" width=\"24\" height=\"22\" alt=\"Last Page\"><%
End If
%>
