/
Forside
/
Teknologi
/
Udvikling
/
ASP
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
ASP
#
Navn
Point
1
smorch
9259
2
Harlekin
1866
3
molokyle
1040
4
Steffanst..
758
5
gandalf
657
6
smilly
564
7
gibson
560
8
cumano
530
9
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 & "><<</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
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
Alle emner
Teknologi
Udvikling
ASP
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177557
Tips :
31968
Nyheder :
719565
Indlæg :
6408874
Brugere :
218888
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.