Paging!!!

hvorfor kommer der den her fejl:

ADODB.Recordset fejl \'800a0cb3\'

Den handling, programmet anmodede om, understøttes ikke af provideren.

/skrive/programering/asp/tagwall/tagwall.asp, linje 29

Her er min kildekode:

<!--#include file=\"setup.asp\"-->
<!--#include file=\"smiley.asp\"-->
<%
\' Først finder vi ud af hvad vores paging side er på nu
  Page = Trim(Request(\"page\"))
  If Page = \"\" Then Page = 1

  \' Standard DSNless connection til databasen db.mdb
  Set Con = Server.CreateObject(\"ADODB.Connection\")
  DBPath = \"DBQ=\" & server.mappath(\"tagwall.mdb\")
  Con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath

  \' Vores SQL-forespørgsel vi ønsker paget
  Sql = \"SELECT * FROM tagwall\"

  \' Så begynder det sjove - her sætter vi vores recordset op...
  \' Jeg vil ikke gennemgå alt hvad recordsetkoden gør.
  \' Kig evt. i en dokumentation hvis du ikke helt er med på hvad der er hvad... :-)
  Set rs = Server.CreateObject(\"ADODB.Recordset\")
  rs.CursorType = adOpenStatic

  \' Hvor mange records vil have på hver side... her er den sat til 10
  rs.PageSize = 1
  rs.Open(Sql), Con

  \' Her laver jeg et lille trick der gør at hvis ens forespørgsel er tom,
  \' så får man ikke en fejl
  If Not rs.EOF Then
    rs.AbsolutePage = cINT(Page)
    rowCount = 0
  End If

%>
<html>
<head>
<title><% Response.Write title %></title>
</head>
<body>
<%
Response.Write \"<div align=center><a href=tag.asp>Nyt Tag</a>\" & \"&nbsp;&nbsp;<a href=admin/default.asp>Admin</a>\" & \"<br><br><br><br>\"

tempConn = \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"tagwall.mdb\") & \";UID=admin;PWD=;\"

Set myConn = Server.CreateObject(\"ADODB.Connection\")
Nyhed = \"SELECT top 10 * FROM tagwall ORDER BY ID DESC;\"
myConn.Open tempConn
Set rs = myConn.Execute(Nyhed)
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF

Response.Write \"<table border=1 width=350 cellpadding=0 cellspacing=0 bordercolor=#000000>\" & \"<tr>\" & \"<td>\" & \"Navn:&nbsp;&nbsp;&nbsp;\"
Response.Write \"</td>\" & \"<td>&nbsp;\" & rs(\"navn\") & \"&nbsp;</td>\" & \"</tr>\"
Response.Write \"<tr><td>E-Mail:&nbsp;</td><td>&nbsp;\"
if rs(\"email\") = \"@\" or rs(\"email\") = \"\" then
Response.Write \"<b>N/A</b>\"
Else
Response.Write \"<a href=mailto:\" & rs(\"email\") & \">\" & \"<img border=0 src=mail.gif alt=\" & \"Send&nbsp;en&nbsp;mail&nbsp;til&nbsp;\" & rs(\"navn\") & \">\" & \"</a>&nbsp;</td></tr>\"
End If
Response.Write \"<tr><td>Hjemmeside:&nbsp;</td><td>&nbsp;\"
if rs(\"hp\") = \"http://\"  or rs(\"hp\") = \"\" then
Response.Write \"<b>N/A</b>\"
Else
Response.Write \"<a href=\" & rs(\"hp\") & \">\" & \"<img border=0 src=hp.gif alt=\" & \"Gå&nbsp;til&nbsp;\" & rs(\"hp\") & \">\" & \"</a>&nbsp;</td></tr>\"
end if
Response.Write \"<tr><td>\" & \"Tekst:&nbsp;&nbsp;&nbsp;\" & \"</td><td>&nbsp;\" & (smileys(rs(\"tag\")))
Response.Write \"</td></tr></table><br><br>\"

rs.MoveNext
Loop
Else
Response.Write \"<p>No Tags!!!!</p>\"
End If
Response.Write \"</div>\"
myConn.Close
Set myConn = Nothing
%>
<%
\' her laver vi en løkke der henter vores records ud
While Not rs.EOF and rowCount < rs.PageSize

  Response.write rs(\"Felt_i_databasen\")

  Response.write \"<br>\"
  rowCount = rowCount + 1
  rs.Movenext

Wend

\' Hvis der er behov for flere sider for at vise hele recordsettet, så kommer her links...
If rs.PageCount <> 1 Then
  For i = 1 to rs.PageCount
    response.write \"<a href=\'paging.asp?page=\" & i & \"\'>\" & i & \"</a>\"
  Next
End If

%>



%>
</body>
</html>
jeg har taget alt sammen fra netcoders artikel om paging