Loop i vides paging....?

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 &_

ingen?

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,

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...

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

ska kolla..