Hej
Jeg har rodet med Paging og MySQL, men får en fejl der lyder :
ADODB.Recordset (0x800A0CB3)
Den ønskede handling understøttes ikke af objektet eller provideren.
/paging/default.asp, line 25
Mit script er som sådan :
<!--#include file="adovbs.inc"-->
<% response.buffer = TRUE %>
<html>
<body>
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "driver={MySql};server=localhost;Database=test;uid=root;pwd=123"
Conn.Open DSN
SQL = "Select * from TheComplex Order By ID DESC"
Set rs = Conn.Execute(SQL)
If Not (rs.BOF Or rs.EOF) Then
'No of Records on each Page
rs.PageSize = 3
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Side " & intPage & " af " & intPageCount &
"</b></p>"
Do While Not rs.EOF And intRecCount > 0
Response.Write "<p>" & rs("id") & "</p>"
Response.Write "<p>" & rs("navn") & "</p>"
Response.Write "<p>" & rs("adresse") & "</p>"
Response.Write "<a href=slet.asp?ID=" & rs("ID") & ">Slet
Post</a><hr>"
intRecCount = intRecCount - 1
rs.MoveNext
Loop
Else
Response.Write "<P>Ingen Poster!!!</P>"
End If
rs.Close
Set rs = Nothing
if Not (rs.EOF Or rs.BOF) then
Response.Write "<p>Gå til side "
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 "<a href=default.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=default.asp?page=" & intPage + 1 & ">>></a>
"
Else
Response.Write ">>"
End If
Else
End If
%>
--
Med Venlig Hilsen
Webmaster
Kenneth Fuglsang Christensen
E-Mail : kenneth-fuglsang@pc.dk
ICQ : 115251242