---
title: "Problem med Palles Paging"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/92021-problem-med-palles-paging"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "magnusfeldth"
published: "2003-12-06T18:58:37.000Z"
updated: "2003-12-06T20:59:42.000Z"
replies: 21
views: 428
page: 1
pages: 2
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/92021-problem-med-palles-paging"
---

# Problem med Palles Paging

_Sida 1 av 2._

## #1 — magnusfeldth, 2003-12-06T18:58Z

Jag använder Palles pagingscript som finns att ladda ner här på wF.

När jag vill redigera den råkar jag ut för trubbel.

Jag har skrivit om koden till:

```
'// Skriv ut posterna
	For i = intFirstPost To intLastPost
		strName = arrRecSet(0,i) %>
		Hej <%= strName%><br><%=RecSet("Rubrik")%>
	<% Next
	Response.Write vbcrlf &"</td>"& vbcrlf &"</tr>"& vbcrlf &"<tr>"& vbcrlf &"<td>"& vbcrlf

	Call textNavigate(intPage, intTotalPosts, intPostsPerPage, intPages)
```

felmess:

```
Körningsfel i Microsoft VBScript (0x800A000D)
Inkompatibla typer
/hhgspunktse/hhgs/default.asp, line 102
```

Varför kan jag inte använda Recset för att skriva ut kolumnobjekt? What is wrong?

Permalänk: https://www.webforum.nu/p/92021

## #2 — Sebbe, 2003-12-06T19:12Z

Hur ser resten av koden ut?

Permalänk: https://www.webforum.nu/p/1221645

## #3 — magnusfeldth, 2003-12-06T19:17Z

```
<!--#include file="functions.asp"-->

<%
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'//
'//		© 2003
'//		Pagingsystem med GetRows()
'//		Skapat 23 Maj 2003 av Palle Zingmark
'//		[url]www.palleman.nu[/url] | [email]info@palleman.nu[/email]
'//
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Dim

	Dim Connect, RecSet, arrRecSet, intPage, intPostsPerPage, intFirstPost, intTotalPosts
	Dim intPages, intLastPost, strNext, i, strName, intNavStart, intNavEnd, n

'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Databashantering

Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("db/hhgsdb.mdb")

	Set RecSet = Connect.Execute("SELECT * FROM foruminlagg WHERE TradID = " & Trim(Request.QueryString("ForumID")) & " OR ForumID = " & Trim(Request.QueryString("ForumID")) & " ")
		If NOT RecSet.EOF Then arrRecSet = RecSet.GetRows()
	RecSet.Close : Set RecSet = Nothing
	
Connect.Close
Set Connect = Nothing

'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Posthantering

If IsArray(arrRecSet) Then

	'// Poster per sida
	intPostsPerPage = 10

	'// Navigeringshantering
	If Len(trim(Request.Querystring("n"))) > 0 Then intPage = cInt(trim(Request.Querystring("n"))) Else intPage = 1
	intFirstPost = (intPage - 1) * intPostsPerPage
	intTotalPosts = UBound(arrRecSet, 2)
	intPages = ((intTotalPosts)\intPostsPerPage)+1

	If intFirstPost + (intPostsPerPage - 1) >= UBound(arrRecSet,2) Then
		intLastPost = UBound(arrRecSet, 2) 
	Else
		intLastPost = intFirstPost + (intPostsPerPage - 1)
		strNext = True
	End If

	'// Skriv ut posterna
	For i = intFirstPost To intLastPost
		strName = arrRecSet(0,i) %>
		Hej <%= strName%><br><%=RecSet("Rubrik")%>
	<% Next
	Response.Write vbcrlf &"</td>"& vbcrlf &"</tr>"& vbcrlf &"<tr>"& vbcrlf &"<td>"& vbcrlf

	Call textNavigate(intPage, intTotalPosts, intPostsPerPage, intPages)

'// Fanns inga poster
Else
	Response.Write "Här var det tomt.. fyll på i databasen bums. =)"

End If

'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
%> &nbsp;</td>
</tr>
<tr>
<td align="center"><%= "Visar posterna <strong>"& intFirstPost+1 &"-"& intLastPost+1 &"</strong> av totalt <strong>"& intTotalPosts+1 &"</strong> poster" %>&nbsp;</td>
</tr>
</table>
```

Behöver du mer?
OBS, adovbs är inte includat på denna fil... om jag gör det kan jag ta bort dim-ningen då?

Permalänk: https://www.webforum.nu/p/1221647

## #4 — Sebbe, 2003-12-06T19:19Z

Flytta raden

```
RecSet.Close : Set RecSet = Nothing
```

längst ner i scriptet. :)

Permalänk: https://www.webforum.nu/p/1221648

## #5 — solbulle, 2003-12-06T19:24Z

Det är iofs fel väg att gå, hela det där scriptet bygger ju på Getrows()
Varför inte använda dig av den array du redan fyllt? (Som du gör när du skriver ut strName tex.

Permalänk: https://www.webforum.nu/p/1221649

## #6 — magnusfeldth, 2003-12-06T19:25Z

Då fick jag detta felmess istället:

```
ADODB.Field (0x80020009)
Antingen är BOF eller EOF satt till True, eller så har aktuell post raderats. Den begärda åtgärden kräver en aktuell post.
/hhgspunktse/hhgs/default.asp
```

Permalänk: https://www.webforum.nu/p/1221650

## #7 — magnusfeldth, 2003-12-06T19:26Z

> **solbulle skrev:**
>
> Det är iofs fel väg att gå, hela det där scriptet bygger ju på Getrows()
> Varför inte använda dig av den array du redan fyllt? (Som du gör när du skriver ut strName tex.

Hur gör jag såna då? Som sagt bygger detta på Palles script, så det är han som skrivit den delen. Jag kan inget om arrayer, men lär mig gärna.

Permalänk: https://www.webforum.nu/p/1221651

## #8 — Sebbe, 2003-12-06T19:30Z

Detta bör funka. :)

```
<!--#include file="functions.asp"-->

<%
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'//
'//		© 2003
'//		Pagingsystem med GetRows()
'//		Skapat 23 Maj 2003 av Palle Zingmark
'//		[url]www.palleman.nu[/url] | [email]info@palleman.nu[/email]
'//
'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Dim

	Dim Connect, RecSet, arrRecSet, intPage, intPostsPerPage, intFirstPost, intTotalPosts
	Dim intPages, intLastPost, strNext, i, strName, intNavStart, intNavEnd, n

'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Databashantering

Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("db/hhgsdb.mdb")

	Set RecSet = Connect.Execute("SELECT namn, rubrik FROM foruminlagg WHERE TradID = " & Trim(Request.QueryString("ForumID")) & " OR ForumID = " & Trim(Request.QueryString("ForumID")) & " ")
		If NOT RecSet.EOF Then arrRecSet = RecSet.GetRows()
	RecSet.Close : Set RecSet = Nothing
	
Connect.Close
Set Connect = Nothing

'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
'// Posthantering

If IsArray(arrRecSet) Then

	'// Poster per sida
	intPostsPerPage = 10

	'// Navigeringshantering
	If Len(trim(Request.Querystring("n"))) > 0 Then intPage = cInt(trim(Request.Querystring("n"))) Else intPage = 1
	intFirstPost = (intPage - 1) * intPostsPerPage
	intTotalPosts = UBound(arrRecSet, 2)
	intPages = ((intTotalPosts)\intPostsPerPage)+1

	If intFirstPost + (intPostsPerPage - 1) >= UBound(arrRecSet,2) Then
		intLastPost = UBound(arrRecSet, 2) 
	Else
		intLastPost = intFirstPost + (intPostsPerPage - 1)
		strNext = True
	End If

	'// Skriv ut posterna
	For i = intFirstPost To intLastPost
		strName = arrRecSet(0,i) 
		strRubrik = arrRecSet(1,i)%>
		Hej <%= strName%><br><%=strRubrik%>
	<% Next
	Response.Write vbcrlf &"</td>"& vbcrlf &"</tr>"& vbcrlf &"<tr>"& vbcrlf &"<td>"& vbcrlf

	Call textNavigate(intPage, intTotalPosts, intPostsPerPage, intPages)

'// Fanns inga poster
Else
	Response.Write "Här var det tomt.. fyll på i databasen bums. =)"

End If

'//---------------------------------------------------------------------------------------------------------------------------------------------------------------
%>  </td>
</tr>
<tr>
<td align="center"><%= "Visar posterna <strong>"& intFirstPost+1 &"-"& intLastPost+1 &"</strong> av totalt <strong>"& intTotalPosts+1 &"</strong> poster" %> </td>
</tr>
</table>
```

Permalänk: https://www.webforum.nu/p/1221653

## #9 — magnusfeldth, 2003-12-06T19:35Z

> strName = arrRecSet(0,i) 
> strRubrik = arrRecSet(1,i)%\>
> Hej \<%= strName%\>\<br\>\<%=strRubrik%\>

Okej, så om man skall lägga in ännu fler så skriver man bara ex
strEpost = arrRecset(2,i) så får man in recset("epost")?

Permalänk: https://www.webforum.nu/p/1221655

## #10 — Sebbe, 2003-12-06T19:37Z

Japp, det kan man säga. :)

(Så är det om det funkar som det är nu. Är inte så hemma med GetRows egentligen.)

Permalänk: https://www.webforum.nu/p/1221656

## #11 — magnusfeldth, 2003-12-06T19:45Z

hm, tydligen inte...:

```
Körningsfel i Microsoft VBScript (0x800A0009)
Felaktigt matrisindex: '[number: 2]'
/hhgspunktse/hhgs/default.asp, line 103
```

Permalänk: https://www.webforum.nu/p/1221660

## #12 — K@llen, 2003-12-06T19:46Z

> **magnusfeldth skrev:**
>
> > strName = arrRecSet(0,i) 
> > strRubrik = arrRecSet(1,i)%\>
> > Hej \<%= strName%\>\<br\>\<%=strRubrik%\>
>
> 
> Okej, så om man skall lägga in ännu fler så skriver man bara ex
> strEpost = arrRecset(2,i) så får man in recset("epost")?

Det breor ju på. Första fältet i select-listan i sql-frågan får position 0 i arrayen, andra fältet position 1, tredje position 2, osv...

Permalänk: https://www.webforum.nu/p/1221661

## #13 — K@llen, 2003-12-06T19:47Z

> **magnusfeldth skrev:**
>
> hm, tydligen inte...:
> 
>
>
> ```
> Körningsfel i Microsoft VBScript (0x800A0009)
> Felaktigt matrisindex: '[number: 2]'
> /hhgspunktse/hhgs/default.asp, line 103
> ```

Har du med 3 fält i sin sql-fråga då?

Permalänk: https://www.webforum.nu/p/1221662

## #14 — magnusfeldth, 2003-12-06T19:59Z

```
Set RecSet = Connect.Execute("SELECT namn, rubrik, e-post FROM foruminlagg WHERE TradID = " & Trim(Request.QueryString("ForumID")) & " OR ForumID = " & Trim(Request.QueryString("ForumID")) & " ")
```

```
		strName = arrRecSet(0,i) 
		strRubrik = arrRecSet(1,i)
		strE-post = arrRecSet(2,i)%>
		Hej <%= strName%><br><%=strRubrik%> <%=strE-post%><br>
```

```
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Drivrutin för ODBC Microsoft Access] För få parametrar angavs. 2 förväntades.
/hhgspunktse/hhgs/default.asp, line 71
```

Permalänk: https://www.webforum.nu/p/1221668

## #15 — K@llen, 2003-12-06T20:03Z

Har för mig att man inte kan använda bindestreck i kolumnnamn, klammra epost-kolumnen eller ännu hellre byt namn på den.

Permalänk: https://www.webforum.nu/p/1221669

## #16 — magnusfeldth, 2003-12-06T20:05Z

Jag har inga problem att använda e-post i recset eller liknande...

Permalänk: https://www.webforum.nu/p/1221671

## #17 — magnusfeldth, 2003-12-06T20:07Z

Nu funkar det, fast dock inte för e-post... skall jag byta namn på den kolumnen eller kan jag komma runt det på annat sätt?

Permalänk: https://www.webforum.nu/p/1221673

## #18 — K@llen, 2003-12-06T20:09Z

Felmeddelandet du fick brukar tyda på att ett kolumnnamn inte finns eller att det är felstavat. Det kan hända att man kan använda bindestreck, på den punkten är jag osäker.

Permalänk: https://www.webforum.nu/p/1221674

## #19 — Palle, 2003-12-06T20:25Z

1\. Kollla så alla kolumner i din sql-sats finns i databasen
2\. Skriv ut din sql-sats och kontrollera så alla värden följer med till sql-satsen.

Permalänk: https://www.webforum.nu/p/1221675

## #20 — solbulle, 2003-12-06T20:41Z

Byt namn på kolumnen till epost om möjligt.

Permalänk: https://www.webforum.nu/p/1221679

---

Tråden på webben: https://www.webforum.nu/amne/asp/92021-problem-med-palles-paging  
Nästa sida: https://www.webforum.nu/amne/asp/92021-problem-med-palles-paging/page2.md