CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

nitz Nybegynder

04. juli 2000 - 22:23 Der er 1 kommentar og
4 løsninger

Stort problem med RS.Absolutepage

Hej,

Jeg er igang med at lave en paging side hvor der max vises 25 resultater af en søgning pr side. Mit problem er nu at jeg aldrig kommer forbi linien:
RS.AbsolutePage=intpage
Problemet ligger i Absolutepage og jeg får denne fejlmeddelse:
The operation requested by the application is not supported by the provider.

Håber nogen kan hjælpe for jeg er ved at blive VANVITTIG :o)

hilsener

Tommy

Synes godt om

phylox2 Nybegynder

04. juli 2000 - 22:27 #1

<html><head>
<title>Paging af et recordset</title>
</head><body>
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 25
End If

Set rs = Server.CreateObject("ADODB.RecordSet")
Set rs2 = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT Header FROM Billeder"
SQL = "SELECT Count(*) as Antal FROM Billeder"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("database.mdb")
rs2.Open SQL, strDSN
rs.Open strSQL, strDSN, 1, 3
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = rs2("antal")
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "Side " & intPage & " af " & intPageCount & ""
Do While Not rs.EOF And intRecCount > 0
Response.Write rs("Header") & " "
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing

Response.Write "Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=paging.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write ""
If Clng(intPage) > 1 Then
Response.Write "<a href=paging.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If

Response.Write " "

If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=paging.asp?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
%>

</body></html>

Synes godt om

sjensen Nybegynder

04. juli 2000 - 22:27 #2

Har to talt med provideren ?

Meddelelsen siger jo at de ikke "supporterer" det dit program prøver på !

Synes godt om

nitz Nybegynder

04. juli 2000 - 22:34 #3

Phylox:
Det ER faktisk det script jeg bruger. Men jeg connecter anderledes til databasen:

<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If

Set objDBConn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
objDBConn.Open "DATABASE"
strsql = "SELECT * FROM TABEL"
'rs.open strsql, objDBConn, adopenstatic
Set Rs = objDBConn.Execute(strSQL)

If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 10
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "Side " & intPage & " af " & intPageCount & ""
Do While Not rs.EOF And intRecCount > 0
Response.Write rs("title") & " "
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing

Response.Write "Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=paging.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write ""
If Clng(intPage) > 1 Then
Response.Write "<a href=paging.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If

Response.Write " "

If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=paging.asp?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
%>

Så problemet er der stadig! :oI

Sjensen: Nej ikke endnu, men det kan da ikke passe at de ikke udbyder?!?!?

Synes godt om

sv Nybegynder

05. juli 2000 - 10:55 #4

Problemet ligger i at du ikke kan bruge adOpenStatic til paging....Der skal du bruge adOpenKeyset.....Spørg mig ikke hvorfor :-) Derfor vil Phylox2' script nok også virke..

Synes godt om

floffy Nybegynder

05. juli 2000 - 22:17 #5

Problemet ligger i at du IKKE benytter et recordset. Det er du nødt til for at navigere via en cursor.

'rs.open strsql, objDBConn, adopenstatic

Denne linie skal du afkommentere og så fjerne den anden linie nedenunder.

Hvis det stadig ikke virker så prøv med
rs.open strsql, objDBConn, 1, 1

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09
Vis detaljeret fejlkoder Af poulmadsen i ASP	6	09/03/202418:16	10/03/202417:59
IIS virker ikke på asp sider... Af bsn i ASP	10	15/10/202313:12	18/10/202308:48

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS