---
title: "mitt första pagingförsök"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/88320-mitt-första-pagingförsök/page2"
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: 2
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 2 av 3._

## #21 — Sebbe, 2003-10-12T16:52Z

> **plelkes skrev:**
>
> 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
> ```

Hehe, ojdå! Byt bara ut den raden mot 'End If'. ;) :r

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

## #22 — plelkes, 2003-10-12T16:58Z

Sebbe, som vanligt ett stort tack till digM E N  kan du förklar hur du tänkt?

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

## #23 — Sebbe, 2003-10-12T17:04Z

Är inte så bra på att föklara hur jag tänkt, men jag får väl försöka. ;)

Först hämtar man ut de tre fälten som används där de matchar varandra som du hade skrivit tidigare OCH där TypeId = nummret i Request.QueryString("type") och listar ut dem.

Sedan kollar man vilket som är den sista typen som finns, och om den aktuella typens ID är mindre än den sista typens ID så skrivs det ut en länk till nästa typ och om den aktuella typens ID är större än 1 så skrivs det ut en länk till föregående typ.

Är som sagt dålig på att förklara. ;)

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

## #24 — plelkes, 2003-10-12T17:15Z

tyvärr fattar jag inte så mycket mera\*skäms\* 

Men du använder inte dig av paging - eller hur?

vad betyder

```
v
intLast = objConn.Execute("SELECT Max(TypeID) FROM tblFluidTypes")(0)
```

 i koden?

Vad jag fattar så bildas navigattionslänkarna med 

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

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

 
två frågor till:

1. Om jag vill ha navigationslänkar där de olika "type" skrivs ut - går detta?
2. Konstruktionen är tänkt att användas tiill "formulär" med kryssrutor och txt-fält. Kommer det att funka?

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

## #25 — Sebbe, 2003-10-12T17:24Z

> **plelkes skrev:**
>
> Men du använder inte dig av paging - eller hur?

Jo, en viss sorts paging använder jag mig allt av! Bara inte den "inbyggda" versionen.

> **plelkes skrev:**
>
> vad betyder
>
> ```
> v
> intLast = objConn.Execute("SELECT Max(TypeID) FROM tblFluidTypes")(0)
> ```
>
>  i koden?

Det är det där som tar ut sista id:t från tblFluidsTypes.

> **plelkes skrev:**
>
> Vad jag fattar så bildas navigattionslänkarna med 
>
> ```
> If intType > 1 Then
>   Response.Write("<a href=""?type=" & intType - 1 & """>&lt;&lt;</a> ")
> Else
>   Response.Write("&lt;&lt; ")
> Next
> 
> If intType < intLast Then
>   Response.Write("<a href=""?type=" & intType + 1 & """>&gt;&gt;</a> ")
> Else
>   Response.Write("&gt;&gt; ")
> End If
> ```

Japp, det är korrekt!

> **plelkes skrev:**
>
> två frågor till:
>
> 1. Om jag vill ha navigationslänkar där de olika "type" skrivs ut - går detta?
> 2. Konstruktionen är tänkt att användas tiill "formulär" med kryssrutor och txt-fält. Kommer det att funka?

Ungefär så här? :)

```
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
  intCount = intCount + 1
  Response.Write(objRS("TypeNamn") & "<p>")

  Do Until objRS.EOF
    Response.Write("<input type=""text"" name=""fluid" & intCount & """ value=""" & objRS("FluidName") & """> <input type=""checkbox"" name=""fluid"" value=""" & intCount & """> & "<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

For i = 1 To intLast
  Set objRS = objConn.Execute("SELECT TypeName FROM tblFluidTypes WHERE TypeID = " & i)

  If NOT i = intType Then
    Response.Write("<a href=""?page=" & i & """>" & objRS("TypeName") & "</a> ")
  Else
    Response.Write(objRS("TypeName") & " ")
  End If
Next

Set objRS = Nothing
```

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

## #26 — plelkes, 2003-10-12T17:29Z

> Jo, en viss sorts paging använder jag mig allt av! Bara inte den "inbyggda" versionen

Och jag som försökte få den "inbyggda" att funka....

kan du försöka med "pseudokod" = på ren svenska säge nednastående:

> intLast = objConn.Execute("SELECT Max(TypeID) FROM tblFluidTypes")(0)

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

## #27 — Sebbe, 2003-10-12T17:30Z

> **plelkes skrev:**
>
> kan du försöka med "pseudokod" = på ren svenska säge nednastående:
>
>
> > intLast = objConn.Execute("SELECT Max(TypeID) FROM tblFluidTypes")(0)

Sätt intLast till att bli det högsta värdet som finns i kolumnen TypeID i tabellen tblFluidTypes.

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

## #28 — plelkes, 2003-10-12T17:32Z

oki - så långt är jag med, men vad gör

> (0)

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

## #29 — Sebbe, 2003-10-12T17:34Z

> **plelkes skrev:**
>
> oki - så långt är jag med, men vad gör
>
> > (0)

0:an står för ordningsnummret i SELECT-satsen, alltså Max(TypeID) i det här fallet.
Funkade koden jag skrev förut för att skriva ut typerna i pagingen? (Ren nyfikenhet ;))

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

## #30 — plelkes, 2003-10-12T17:41Z

```
<%
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

For i = 1 To intLast
  Set objRS = objConn.Execute("SELECT TypeName FROM tblFluidTypes WHERE TypeID = " & i)

  If NOT i = intType Then
    Response.Write("<a href=""?page=" & i & """>" & objRS("TypeName") & "</a> ")
  Else
    Response.Write(objRS("TypeName") & " ")
  End If
Next

Set objRS = Nothing
%>
```

 det krävs ett

> objConn

 ..

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

## #31 — plelkes, 2003-10-12T17:43Z

> 0:an står för ordningsnummret i SELECT-satsen, alltså Max(TypeID) i det här fallet

 
Har aldrig sett/lagt märke till denna konstruktion...

När anser du att konstruktonen bör/skall användas?

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

## #32 — Sebbe, 2003-10-12T17:47Z

```
<%
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)

For i = 1 To intLast
  Set objRS = objConn.Execute("SELECT TypeName FROM tblFluidTypes WHERE TypeID = " & i)

  If NOT i = intType Then
    Response.Write("<a href=""?page=" & i & """>" & objRS("TypeName") & "</a> ")
  Else
    Response.Write(objRS("TypeName") & " ")
  End If
Next

Set objRS = Nothing
objConn.Close : Set objConn = Nothing
%>
```

Jag använder den där konstruktionen när jag bara ska ta ut **ett** värde från databasen utan loopar eller liknande. :)

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

## #33 — plelkes, 2003-10-12T17:55Z

din senaste kod(jag klistrade in som det var) gav felmess

> Microsoft JET Database Engine fel '80040e10'
> Det har inte angetts något värde för en eller flera nödvändiga parametrar

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

## #34 — @nders, 2003-10-12T17:57Z

Kontrollera att tabell- och fältnamn stämmer i alla SQL-frågor.

Mvh

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

## #35 — Sebbe, 2003-10-12T17:57Z

**/red** Nu vet jag! ;)

```
<%
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)

For i = 1 To intLast
  Set objRS = objConn.Execute("SELECT TypeNamn FROM tblFluidTypes WHERE TypeID = " & i)

  If NOT i = intType Then
    Response.Write("<a href=""?page=" & i & """>" & objRS("TypeName") & "</a> ")
  Else
    Response.Write(objRS("TypeName") & " ")
  End If
Next

Set objRS = Nothing
objConn.Close : Set objConn = Nothing
%>
```

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

## #36 — plelkes, 2003-10-12T18:00Z

> På vilken rad?

 

```
Set objRS = objConn.Execute("SELECT TypeNamn FROM tblFluidTypes WHERE TypeID = " & i)
```

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

## #37 — Sebbe, 2003-10-12T18:00Z

Läs min redigering. :)

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

## #38 — plelkes, 2003-10-12T18:13Z

efter att jag följde @nders råd och redigerade fältnamnen lite så fick jag det att [nästan fungera](http://www12.brinkster.com/vatskebalans/dela.asp) 

1. länkarna funkar ej ( prova gärna själva)
2. det kommer upp en "blodprodukt" innan första länken

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

## #39 — Sebbe, 2003-10-12T18:20Z

Det är som vanligt jag som är klantig! :r

```
<%
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

Response.Write("<br>")
Set objRS = Nothing
intLast = objConn.Execute("SELECT Max(TypeID) FROM tblFluidTypes")(0)

For i = 1 To intLast
  Set objRS = objConn.Execute("SELECT TypeNamn FROM tblFluidTypes WHERE TypeID = " & i)

  If NOT i = intType Then
    Response.Write("<a href=""?type=" & i & """>" & objRS("TypeName") & "</a> ")
  Else
    Response.Write(objRS("TypeNamn") & " ")
  End If
Next

Set objRS = Nothing
objConn.Close : Set objConn = Nothing
%>
```

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

## #40 — plelkes, 2003-10-12T18:58Z

är inte detta samma kod - eller är jag blind?

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

---

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