/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
Paging
Fra : Kenneth Fuglsang Chr~


Dato : 12-08-01 16:44

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 & ">&lt;&lt;</a>"
Else
Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=default.asp?page=" & intPage + 1 & ">&gt;&gt;</a>
"
Else
Response.Write "&gt;&gt;"
End If
Else
End If
%>
--
Med Venlig Hilsen
Webmaster
Kenneth Fuglsang Christensen
E-Mail : kenneth-fuglsang@pc.dk
ICQ : 115251242



 
 
JH (12-08-2001)
Kommentar
Fra : JH


Dato : 12-08-01 21:18

> ADODB.Recordset (0x800A0CB3)
> Den ønskede handling understøttes ikke af objektet eller provideren.

....brug
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open SQL, Conn, 1

....i stedet for
> Set rs = Conn.Execute(SQL)


Søg
Reklame
Statistik
Spørgsmål : 177557
Tips : 31968
Nyheder : 719565
Indlæg : 6408868
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste