---
title: "Loop i vides paging....?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/47087-loop-i-vides-paging"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "crisse6"
published: "2002-07-02T19:46:39.000Z"
updated: "2002-07-03T17:12:43.000Z"
replies: 25
views: 585
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/47087-loop-i-vides-paging"
---

# Loop i vides paging....?

_Sida 1 av 2._

## #1 — crisse6, 2002-07-02T19:46Z

hej...med denna kod blir det fel, sedan har jag problem med Paginglänkarna... hmm... kan någon ordna detta är det ett stort tack... db-kopplingen är inkluderad... 

```
<%
Set objRs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM add_forum Where svarid = '" & Request.Querystring("svarid") & "'"
SQL = "SELECT * FROM medlemmar"
set objRs2=Databas.execute(SQL)

 
intPageId = request.querystring( "pageid" )
if intPageId = "" then intPageId = 1

with objRs
  .cursorLocation = 3
  .open strSQL, Databas
  .pagesize = 10
  .absolutepage = intPageId
end with

intPages = cint( objRs.pagecount )
intCurrentPost = 0
response.write "<font face=Verdana size=2 class=rubrik> -->" & objRs("rubrik") & "</font><br><br>"
response.write "<table width=500 cellspacing=1 cellpadding=2><tr><td bgcolor=#EFEFEF width=100><font face=Verdana size=1><b>Skribent:</b></font></td><td bgcolor=#EFEFEF><font face=Verdana size=1><b>Tråd:</b></td></tr></table>"
do until objRs.eof and intCurrentPost < objRs.pagesize

if bgcolor = "#FFFFFF" then 
  bgcolor = "#EFEFEF"
else
  bgcolor = "#FFFFFF"

  strContents = strContents &_
    "<table width=500 bgcolor="& bgcolor &"><tr><td width=100 valign=top><b>"& objRs("anvandarnamn") &"</b><br><br>" &_
    "<font face=Verdana size=1>"& objRs2("antal_inlagg") & " inlägg<br>" &_
    "</td><td><font face=Verdana size=1>" & objRs("rubrik") & "<br><br>" & objRs("inlagg") & "</font></td></tr>"
     
  intCurrentPost = intCurrentPost + 1
  objRs.movenext
loop

for i = 1 to objRs.pagecount
  strNavigation = strNavigation & " <a href='?pageid=" & i & "&trad=" & Request.Querystring("trad") & "&svarid=" & request.querystring("svarid") & "'>" & i & "</a>"
next

response.write "<table>" & strContents & "</table>"
response.write "<table><tr><td><font face=Verdan size=1>" & strNavigation & "</td></tr></table></font>" 
end if
%>
```

fel:

```
Microsoft VBScript compilation error '800a040e' 

'loop' without 'do' 

/forum/las.asp, line 38 

loop
```

rad 38:

```
loop
```

puhh!

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

## #2 — @nders, 2002-07-02T19:50Z

Då tar vi ett steg i taget.

```
if bgcolor = "#FFFFFF" then 
  bgcolor = "#EFEFEF"
else
  bgcolor = "#FFFFFF"
[b]end if[/b]
```

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

## #3 — solbulle, 2002-07-02T19:52Z

set objRs2=Databas.execute(SQL)

ska det inte stå objRs på den raden?

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

## #4 — crisse6, 2002-07-02T19:59Z

@nders, end if orsakde expected statement eller nåt....
solbulle, objRs2 ska vara så, det är två olika tabeller... kolla i början

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

## #5 — @nders, 2002-07-02T20:10Z

Det ska vara ett end if där. Vilken rad pekade det nya felmeddelandet på?

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

## #6 — crisse6, 2002-07-02T20:27Z

```
Microsoft VBScript compilation error '800a0400' 

Expected statement 

/forum/las.asp, line 45 

end if
```

rad 45:

```
end if
```

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

## #7 — @nders, 2002-07-02T20:33Z

Vilket end if är det? Det sista i din kod? Varför har du den där?

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

## #8 — crisse6, 2002-07-02T20:35Z

hmm...

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

## #9 — crisse6, 2002-07-02T20:36Z

jag flyttade ner den nu längst ner, fick då loop felet... konstigt...

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

## #10 — @nders, 2002-07-02T20:41Z

Vad flyttade du ner var? Hur ser koden ut?

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

## #11 — HeHo, 2002-07-03T09:12Z

Inte vet jag men nu är ju INTE if-satsen i loopen stängd. 
Den stänger du ju längst ned, utanför loopen och det går ju inte.

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

## #12 — Peeer, 2002-07-03T12:52Z

> **@nders skrev:**
>
> Vad flyttade du ner var? Hur ser koden ut?

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

## #13 — crisse6, 2002-07-03T15:13Z

```
<%
strSQL = "SELECT * FROM add_forum Where svarid = '" & Request.Querystring("svarid") & "'"
SQL = "SELECT * FROM medlemmar"
set objRs2=Databas.execute(SQL)
set objRs=Databas.execute(strSQL)
 
intPageId = request.querystring( "pageid" )
if intPageId = "" then intPageId = 1

with objRs
  .cursorLocation = 3
  .open strSQL, Databas
  .pagesize = 10
  .absolutepage = intPageId
end with

intPages = cint( objRs.pagecount )
intCurrentPost = 0
response.write "<font face=Verdana size=2 class=rubrik> -->" & objRs("rubrik") & "</font><br><br>"
response.write "<table width=500 cellspacing=1 cellpadding=2><tr><td bgcolor=#EFEFEF width=100><font face=Verdana size=1><b>Skribent:</b></font></td><td bgcolor=#EFEFEF><font face=Verdana size=1><b>Tråd:</b></td></tr></table>"
do until objRs.eof and intCurrentPost < objRs.pagesize

if bgcolor = "#FFFFFF" then 
  bgcolor = "#EFEFEF"
else
  bgcolor = "#FFFFFF"
  strContents = strContents &_
    "<table width=500 bgcolor="& bgcolor &"><tr><td width=100 valign=top><b>"& objRs("anvandarnamn") &"</b><br><br>" &_
    "<font face=Verdana size=1>"& objRs2("antal_inlagg") & " inlägg<br>" &_
    "</td><td><font face=Verdana size=1>" & objRs("rubrik") & "<br><br>" & objRs("inlagg") & "</font></td></tr>"
     
  intCurrentPost = intCurrentPost + 1
  objRs.movenext
loop

for i = 1 to objRs.pagecount
  strNavigation = strNavigation & " <a href='?pageid=" & i & "&trad=" & Request.Querystring("trad") & "&svarid=" & request.querystring("svarid") & "'>" & i & "</a>"
next

response.write "<table>" & strContents & "</table>"
response.write "<table><tr><td><font face=Verdan size=1>" & strNavigation & "</td></tr></table></font>" 
end if
end if
%>
```

så ser den ut nu, men om jag stänger den uppe inom loopen så får jag Expected Statement, och är det ingen alls (end if)eller om end if ligger längst ner så blir det felmess på raden där det står "loop", beskrivning: loop utan do? hmmm.... knepigt...

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

## #14 — doggelito, 2002-07-03T15:33Z

du kan ju alltid börja med att avsluta denna:

```
if bgcolor = "#FFFFFF" then 
  bgcolor = "#EFEFEF"
else
  bgcolor = "#FFFFFF"
[b]end if[/b]
```

sen kan du ta bort 1 end if längst ned. :)

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

## #15 — solbulle, 2002-07-03T15:35Z

Jag skulle nog rekomender att båda "end if" längst ner tas bort.

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

## #16 — doggelito, 2002-07-03T15:38Z

stämmer bra det! ;)

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

## #17 — crisse6, 2002-07-03T15:38Z

doggelito, om du hade läst inläggen innan så hade du inte behövt att skriva ;) men inget illa menat, tackar för alla som kan tänka sig att hjälpa mig!

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

## #18 — doggelito, 2002-07-03T15:41Z

jo, det såg jag nog.
men eftersom du klistrade in felaktig kod så tänkte jag att det var 
bäst att påminna igen. ;)

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

## #19 — crisse6, 2002-07-03T15:42Z

satte end if där vid if satsen som ni sagt tidigare, tog bort de två end if längst ner, kanske ett steg på rätt väg? får nytt felmess :e

```
ADODB.Recordset error '800a0e79' 

Operation is not allowed when the object is open. 

/forum/las.asp, line 13
```

13:

```
  .cursorLocation = 3
```

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

## #20 — doggelito, 2002-07-03T15:44Z

du kan nog ta bort denna rad: set objRs=Databas.execute(strSQL)

eftersom den öppnas två ggr.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/47087-loop-i-vides-paging  
Nästa sida: https://www.webforum.nu/amne/asp/47087-loop-i-vides-paging/page2.md