---
title: "mitt första pagingförsök"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/88320-mitt-första-pagingförsök"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "plelkes"
published: "2003-10-12T11:00:08.000Z"
updated: "2003-11-05T19:07:28.000Z"
replies: 50
views: 857
page: 1
pages: 3
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/88320-mitt-första-pagingförsök"
---

# mitt första pagingförsök

_Sida 1 av 3._

## #1 — plelkes, 2003-10-12T11:00Z

Jag vill från min databas hämta antalet typ och för varje typ visa vilka namn som tillhör espektiver typ...
Ex.: typ1
namn1
namn2
typ 2
namn 1
namn 2
osv
Jag vill ha sidbrytning efter sista namnet i varje "type"

Efter att sökt här på webforum har jag gjort ett försökt till paging

```
<%LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
html>
<head>
<title>Vätskebalans</title>

</head>
<BODY>
<% 
sida = TRIM( Request( "liquids" ) )
IF sida = "" THEN sida = 1
Set rs= Server.CreateObject("ADODB.RecordSet")
[B]Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("vbalans.mdb")[/B]
strSQL1 =" SELECT * FROM tblFluidRelat, tblFluids, tblFluidTypes WHERE tblFluidRelat.FluidID = tblFluids.FluidID AND tblFluidRelat.typeID = tblFluidTypes.typeID ORDER by tblFluidTypes.typeNamn"
rs.Open SQL, Conn, 3,1

typ ="" 
typ = rs("typeNamn")
namn = rs("typeNamn")
visa = typ + namn

rs.PageSize = visa
rs.AbsolutePage = liquids
WHILE NOT rs.EOF AND rowCount < RecSet.PageSize
rowCount = rowCount + 1
If typ<> last_typ Then
Response.Write typ
typ_antal = typ_antal + 1
End if 
Response.Write namn
last_typ = typ

rs.Movenext
WEND
rs.Close
Conn.Close
%>
</body>
</html>
```

 Får felutskriftet

> VBScript fel'800a01a8 
> Objekt krävs.: "
> rad 12

 rad 12 är fet markerad ovan

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

## #2 — LeonL, 2003-10-12T11:05Z

Du måste ju "döpa den" till ett objekt först ;) Lägg till detta ovanför rad 12:

```
Set Conn = Server.CreateObject("ADODB.Connection")
```

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

## #3 — plelkes, 2003-10-12T11:30Z

tack Leon, klantigt av mig :r 
Men nu får jag följande felmess...

> ADODB.Recordse fel '800a0bb9'
> Parametrarna är felaktiga, ligger utanför tillåtet intervall eller skapar en inbörde konflikt

 

på raden:

```
rs.Open SQL, Conn, 3,1
```

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

## #4 — LeonL, 2003-10-12T11:34Z

Det är fel i din SQL ;) Är inte bra på det här ämnet, och vad jag ser så ser det faktiskt rätt ut. Vänta så ska jag hämta Sebbe :p

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

## #5 — LeonL, 2003-10-12T11:36Z

Men lol.. det är strSQL1, inte SQL ;) En miss alltså ;)

edit\\\\ Kör alltså Sebbes kod ;)

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

## #6 — Sebbe, 2003-10-12T11:36Z

Men Leon... ;)
Ändra raden till 

```
rs.Open strSQL1, Conn, 3,1
```

så funkar det nog mycket bättre! :)

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

## #7 — plelkes, 2003-10-12T11:49Z

och nu blir det:

> Provider fel'8002005'
> TYpblandningsfe

 

på rad

```
visa = typ + namn
```

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

## #8 — Sebbe, 2003-10-12T11:53Z

Vet inte riktigt vad du ska göra, men testa de här två:

```
visa = CStr(typ) & CStr(namn)

och/eller

visa = CInt(typ) + CInt(namn)
```

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

## #9 — LeonL, 2003-10-12T11:54Z

Varför inte bara

```
visa = typ * 2
```

Du multiplicerar det talet med två bara, eller? (Om det nu är ett tal?)

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

## #10 — plelkes, 2003-10-12T11:55Z

Sebbe skrev

> Vet inte riktigt vad du ska göra, men testa de här två:

 det jag vill göra är att på varje sida visa 1 typ med tillhörande namn

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

## #11 — plelkes, 2003-10-12T11:57Z

LeonL

> Om det nu är ett tal?

 nej Leon, som du ser av ursprungskoden så är

```
typ = rs("typeNamn")
namn = rs("typeNamn")
```

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

## #12 — Sebbe, 2003-10-12T11:59Z

Hur är databasen uppbyggd? :)

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

## #13 — LeonL, 2003-10-12T12:02Z

Om det nu itne är ett tal, hur kan du då peka rs.PageSize mot "visa"? Ställer i såfall samma fråga som Sebbe gör ;)

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

## #14 — plelkes, 2003-10-12T12:02Z

som bilagan

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

## #15 — Sebbe, 2003-10-12T12:04Z

> **plelkes skrev:**
>
> som bilagan

Va? :q

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

## #16 — plelkes, 2003-10-12T12:04Z

glömde

Bilagor:

- [vbalans.zip](https://www.webforum.nu/a/2119.zip)

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

## #17 — LeonL, 2003-10-12T12:05Z

\\\\ Bra att det löste sig ;)

\\\\ Trodde du hade missförstått att vi ville titta på databasen ;)

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

## #18 — plelkes, 2003-10-12T12:09Z

Måste rs.PageSize vara ett tal? Jag vet ju inte antalet inlägg som skall visas - det beror ju på hur många namn det finns...

Vad lsöte sig??

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

## #19 — Sebbe, 2003-10-12T12:24Z

Funkar det kanske såhär då? :)

```
If Request.QueryString("type") = "" Then
  intType = 1
Else
  intType = CInt(Request.QueryString("type"))
End If

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("vbalans.mdb")
strSQL = "SELECT f.FluidNamn, ft.TypeNamn, ft.TypeID FROM tblFluidRelat fr, tblFluids f, tblFluidTypes ft WHERE fr.FluidID = f.FluidID AND fr.typeID = ft.typeID AND ft.TypeID = " & intType & " ORDER by ft.typeID"
Set objRS = objConn.Execute(strSQL)

If NOT objRS.EOF Then
  Response.Write(objRS("TypeNamn") & "<p>")

  Do Until objRS.EOF
    Response.Write(objRS("FluidNamn") & "<br>")
    objRS.MoveNext
  Loop
Else
  Response.Write("Det finns inga av den typen.")
End If

Set objRS = Nothing
intLast = objConn.Execute("SELECT Max(TypeID) FROM tblFluidTypes")(0)
objConn.Close : Set objConn = Nothing

If intType > 1 Then
  Response.Write("<a href=""?type=" & intType - 1 & """>&amp;lt;&amp;lt;</a> ")
Else
  Response.Write("&amp;lt;&amp;lt; ")
Next

If intType < intLast Then
  Response.Write("<a href=""?type=" & intType + 1 & """>&amp;gt;&amp;gt;</a> ")
Else
  Response.Write("&amp;gt;&amp;gt; ")
End If
```

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

## #20 — plelkes, 2003-10-12T16:51Z

Jag får:

> Oväntat 'Next'

 på rad 37

```
33: If intType > 1 Then
34: Response.Write("<a href=""?type=" & intType - 1 & """>&lt;&lt;</a> ")
35: Else
36: Response.Write("&lt;&lt; ")
37; Next
38: 
39:If intType < intLast Then
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/88320-mitt-första-pagingförsök  
Nästa sida: https://www.webforum.nu/amne/asp/88320-mitt-första-pagingförsök/page2.md