Untitled Document

" height="60" width="48" border="1">

" target="index"> <%=RecSet("namn")%> - <%=RecSet("datum")%> <% if session("id") = recset("tillid") then %> | ">Ta bort <% else %> <% end if %> <% if session("id") = recset("tillid") then %> | ','upload','200','250','center');"> Svara <%else%> <%end if%>

<%=Replace(TRIM(Server.HTMLEncode(RecSet("text"))),vbcrlf,"
")%>

--- title: "Paging problem" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/48185-paging-problem" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "zlasher" published: "2002-07-18T21:34:40.000Z" updated: "2002-07-19T20:29:10.000Z" replies: 4 views: 225 page: 1 pages: 1 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/48185-paging-problem" --- # Paging problem ## #1 — zlasher, 2002-07-18T21:34Z hejsan! har lite problem med pagingen på min community.. jag använder den till gästböckerna...det har alltid funkat på ens egen gästbok men inte på de andra. jag lyckades dock fixa det på de andra gästböckerna för nån dag sen...trodde jag... om man trycker på sista sidan på varje gästbok får man det här meddelandet: Exception occurred. /himlen/asp/read_gb.asp, line 100 så här ser min kod ut runt rad 100: FOR a = 1 to RecSet.PageCount IF a \<\> cINT( nextPage ) THEN Response.Write "\\"& a &"\" ELSE Response.Write "\"& a vill ni att jag ska skriva ut hela sidan?? tacksam för svar.. Permalänk: https://www.webforum.nu/p/48185 ## #2 — LarsG, 2002-07-18T22:06Z ja, lite mer kod behövs nog. Kan ju gissa på att du inte kontrollerar EOF ordentligt ``` FOR a = 1 to RecSet.PageCount IF a <> cINT( nextPage ) THEN Response.Write ""& a &"" ELSE Response.Write ""& a '... recset.movect [b]if recset.eof then exit for[/b] next ``` Permalänk: https://www.webforum.nu/p/723733 ## #3 — zlasher, 2002-07-19T09:36Z hm..jag slänger in hela koden så blir det väl bäst ;) ``` Untitled Document <% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databas.mdb")&";pwd=lösenord" Set RecSet = Server.CreateObject("ADODB.Recordset") Addera = "Select * From gb Where tillID = "&request.querystring("tillid") &" Order By Datum DESC" RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic if recset.eof then response.redirect "gb_none.asp?user="&request.querystring("user") end if %> <% nextPage = TRIM( Request( "nextPage" ) ) IF nextPage = "" THEN nextPage = 1 RecSet.PageSize = 4 '<-- Här bestämmer du hur många inlägg det ska finnas på sidan RecSet.AbsolutePage = nextPage Do until RecSet.EOF OR rowCount > RecSet.PageSize rowCount = rowCount + 1 nummer = nummer + 1 If nummer Mod 2 = 0 then color = "528AB5" Else color = "4D82AA" End If %>

<%=request.querystring("user")%>S GÄSTBOK.

<% RecSet.MoveNext Loop %>

<% ' Börja paging IF RecSet.PageCount > 1 THEN FOR a = 1 to RecSet.PageCount IF a <> cINT( nextPage ) THEN Response.Write ""& a &"" ELSE Response.Write ""& a END IF NEXT END IF %>

<% RecSet.Close Connect.Close Set RecSet = nothing Set Connect = nothing %> ``` Permalänk: https://www.webforum.nu/p/723921 ## #4 — LarsG, 2002-07-19T18:47Z I detta läge så kan du redan ha kommit till eof. ``` IF a <> cINT( nextPage ) THEN Response.Write ""& a &"" ``` Du får lägga värdena i lokala variabler inuti den förra loopen ``` Do until RecSet.EOF OR rowCount > RecSet.PageSize tillid = rescesT("tillid") '... loop '... IF a <> cINT( nextPage ) THEN Response.Write ""& a &"" ``` Permalänk: https://www.webforum.nu/p/724279 ## #5 — zlasher, 2002-07-19T20:29Z nej men!! jag kan inte med ord tacka dig!! förstår jag det varför du blev årets medlem 2001!!! thanks a million m8y!!! :D :D :D Permalänk: https://www.webforum.nu/p/724308 --- Tråden på webben: https://www.webforum.nu/amne/asp/48185-paging-problem