---
title: "Loop i vides paging....?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/47087-loop-i-vides-paging/page2"
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: 2
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 2 av 2._

## #21 — crisse6, 2002-07-03T15:53Z

okey, nu får ni se koden som den är just nu... får annat felmess nu:

```
<%
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"
end if
  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>" 
%>
```

fel:
error '80020009' 
Exception occurred. 

/forum/las.asp, line 30
rad 30:
  strContents = strContents &\_

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

## #22 — crisse6, 2002-07-03T16:44Z

ingen?

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

## #23 — @nders, 2002-07-03T16:50Z

Vad är det för datatyper i fälten du försöker lägga in i strContents?

Om något av fälten är PM/Memo så måste du göra så här:

\* Specificera alla fälten i SELECT-frågan, med PM/Memo-fälten sist: SELECT fält1, fält2, fält3, memofält1, memofält2 FROM bla.
\* Lägga in fältvärdena i variabler innan du använder dem, och lägg in dem i variabler i samma ordning som de är specificerade i SQL-frågan.
strFalt1 = rs("fält1")
strFalt2 = rs("fält2")
strFalt3 = rs("fält3")
strMemo1 = rs("memofält1")
strMemo2 = rs("memofält2")

Använd sedan de variablerna i stället för recordsetreferenserna när du skapar strContents.

Mvh,

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

## #24 — crisse6, 2002-07-03T16:58Z

men @nders, det har ju funkat förut?! har det på en annan sida... kan lägga koden för den här:

```
<%
Set objRs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM add_forum Where orginal = 'Ja' ORDER BY [datum] DESC"

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 "<table width=500 height=1 cellspacing=2 cellpadding=0><tr><td width=200 bgcolor=#EFEFEF><font face=Verdana size=1><b>Rubrik:</b></font></td><td width=80 bgcolor=#EFEFEF><font face=Verdana size=1><b>Skribent:</b></font></td>" &_
    "<td width=80 bgcolor=#EFEFEF><font face=Verdana size=1><b>Datum:</b></font></td><td width=50 bgcolor=#EFEFEF><font face=Verdana size=1><b>Svar:</b></font></td>" &_
    "<td width=100 bgcolor=#EFEFEF><font face=Verdana size=1><b>Senaste:</b></font></td></tr>"
do until objRs.eof and intCurrentPost < objRs.pagesize

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

  strContents = strContents &_
    "<table width=500 cellspacing=2 cellpadding=0 bgcolor=#FFFFFF border=0><tr><td width=200 valign=top bgcolor="& bgcolor &"><font face=Verdana size=1><a href=thread.asp?svarid=" & objRs("svarid") & ">" & objRs("rubrik") & "</a></td></font>" &_
    "<td width=80 valign=top bgcolor="& bgcolor &"><font face=Verdana size=1>" & objRs( "anvandarnamn" ) & "</td></font>" &_
    "<td width=80 valign=top bgcolor="& bgcolor &"><font face=Verdana size=1>" & objRs("datum") & "</font></td>" &_
    "<td width=50 valign=top bgcolor="& bgcolor &"><font face=Verdana size=1>13</font></td>" &_
    "<td width=100 valign=top bgcolor="& bgcolor &"><font face=Verdana size=1>2002-06-24</font></td></tr>"
  intCurrentPost = intCurrentPost + 1
  objRs.movenext
loop

for i = 1 to objRs.pagecount
  strNavigation = strNavigation & " <a href='?pageid=" & i & "'>" & i & "</a>"
next

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

dock funkar inte navigeringen som den ska, det blir ? och sedan länk... hmmm... fattar inte varför...

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

## #25 — @nders, 2002-07-03T17:01Z

Är det samma fälttyper på den sidan då? Har du med pm/memofält på någon av dem?

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

## #26 — crisse6, 2002-07-03T17:12Z

ska kolla..

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/47087-loop-i-vides-paging/page2  
Föregående sida: https://www.webforum.nu/amne/asp/47087-loop-i-vides-paging.md