--- title: "Mitt forum börjar bli långt!" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/11836-mitt-forum-börjar-bli-långt" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "graf" published: "2001-09-28T16:43:00.000Z" updated: "2001-09-28T18:08:00.000Z" replies: 5 views: 271 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/11836-mitt-forum-börjar-bli-långt" --- # Mitt forum börjar bli långt! ## #1 — graf, 2001-09-28T16:43Z Hej, har ett problem nu igen ;-) Ganska många inlägg har skrivits i mitt forum och det börjar bli långt att scrolla ner, så jag undrar: Hur skriver man om man vill att efter t ex 30 inlägg så blir det sida 2, och sen efter 30 till inlägg blir det sida 1-3 osv... Tacksam för hjälp! Permalänk: https://www.webforum.nu/p/11836 ## #2 — casca, 2001-09-28T16:44Z Permalänk: https://www.webforum.nu/p/287619 ## #3 — graf, 2001-09-28T17:15Z Men när jag skriver scriptet som står här under i filen forum.asp så får jag upp ett felmeddelande! Vart ska jag lägga den? \ \<% mypage = Request("whichpage") If mypage = "" then mypage = 1 End If mypagesize = 10 SQL = "Select \* From tabell Order by fält" Set rstemp = Server.Createobject("ADODB.Recordset") rstemp.cursorlocation = 3 rstemp.cachesize = 5 MdbFilePath = Server.MapPath("path/databas.mdb") rstemp.open SQL, "Driver={Microsoft Access Driver (\*.mdb)}; DBQ=" & MdbFilePath & ";" If rstemp.EOF then Response.write "Där fanns det ju inget... " & sok Else rstemp.movefirst rstemp.pagesize = mypagesize maxcount = Cint(rstemp.pagecount) rstemp.absolutepage = mypage howmanyrecs = 0 howmanyfields = rstemp.fields.count -1 Do While Not RStemp.EOF AND howmanyrecs \< rstemp.pagesize counter = counter + 1 If counter mod 2 = 0 then color = "CCCC99" Else color = "CCCC66" End If Response.write "\\" & RStemp("fält") & "\\" rstemp.movenext howmanyrecs = howmanyrecs + 1 Loop rstemp.close Set rstemp = nothing %\> \\\\\ \\ \<% If maxcount \<\> 0 then response.write "sida " & mypage & " av " & maxcount & "\" & sidor: pad = "0" scriptname = request.Servervariables("script_name") for counter = 1 to maxcount If counter \>= 10 then pad = "" End If ref = "\" & pad & counter & "\ " response.write ref & " " if counter mod 10 = 0 then response.write "\" End If Next End If End If %\> \\ \ Permalänk: https://www.webforum.nu/p/287620 ## #4 — Vide, 2001-09-28T17:31Z Du måste modifiera den för att den skall passa dina tabeller och fält, samt hur du vill att forumet skall se ut, alltså kan du inte bara lägga in scriptet och tro att allt skall funka... ;) Permalänk: https://www.webforum.nu/p/287621 ## #5 — graf, 2001-09-28T18:03Z Såhär ser scriptet ut i mitt forum, hur och var ska jag lägga in det andra scriptet? \> <% End If %> <%= CurrPage%> / <%= RS.PageCount%> <% If CurrPage > 1 Then %> <<-- Föregående sida <% End If %> ``` Det ska nog funka om jag inte glömt något. Ha en trevlig kväll, och ta det lungt med spriten! ;) Permalänk: https://www.webforum.nu/p/287623 --- Tråden på webben: https://www.webforum.nu/amne/asp/11836-mitt-forum-börjar-bli-långt