<% 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 >= 20 then pad = "" End If 'ref = "" & pad & counter & " " 'ref = "Föregående " 'ref = ref & "" & pad & counter & " " 'ref = ref & "Nästa " 'response.write ref1 & ref3 & " " 'response.write ref1 'If mypage = 1 then 'ref = "Nästa " 'next 'Enf If 'If mypage < maxrecs Then Response.Write "Föregående" 'If mypage <> maxrecs Then Response.Write "Föregående" 'Else 'ref = "Föregående " 'ref = "Nästa " 'If whichpage <> maxcount then 'ref = "Nästa " 'If whichpage > maxcount then 'ref = "Föregående " 'End If 'Else 'ref = "Föregående " 'End IF next End If If mypage = maxcount then ref = "Föregående " 'ref = ref & "Nästa " else ref = "Föregående " ref = "Nästa " End If response.write ref & " " if counter mod 20 = 0 then response.write "
" End If ' Next End If 'End If %> ``` Och jag vill ha ungefär som thorleif kan du fixa det åt mig =) Permalänk: https://www.webforum.nu/p/251554 ## #14 — -torlejf-, 2000-11-02T17:07Z Jag har likadan kod som brw. Det är till en gästbok, så jag skickar inte med några egna variablar i adressen bara dom som tillhör skriptet! Permalänk: https://www.webforum.nu/p/251555 ## #15 — PatrikB, 2000-11-02T17:10Z Hello, testa denna: ``` <% mypage = Request("whichpage") If mypage = "" then mypage = 1 End If mypagesize = 10 Set RS = Server.Createobject("ADODB.Recordset") RS.cursorlocation = 3 RS.cachesize = 5 RS.Open SQL, "driver={Microsoft Access Driver (*.mdb)};dbq=d:\data\databaser\privatdatabas.mdb" If RS.EOF then raderknapp = "nej" Response.write "Det finns inga loggar i databasen." & sok Else RS.movefirst RS.pagesize = mypagesize maxcount = Cint(RS.pagecount) RS.absolutepage = mypage howmanyrecs = 0 howmanyfields = RS.fields.count -1 Do While Not RS.EOF AND howmanyrecs < mypagesize counter = counter + 1 If counter mod 2 = 0 then color = "CCCCCC" Else color = "FFFFFF" End If %> <% =RS("login") %> ****** <% =RS("typ") %> <% =RS("ip") %> <% =RS("datum") %> ">
<% RS.movenext howmanyrecs = howmanyrecs + 1 Loop RS.close Set RS = nothing %> <% If CInt(maxcount) > 1 then ' vilken sida scriptname = request.Servervariables("script_name") response.write "sida " & mypage & " av " & maxcount & "
" & " sidor:
" ' om vi inte är på första sidan, skriv ut - Föregående If CInt(mypage) > 1 then Response.Write("Föregående ") End If for counter = 1 to maxcount Response.Write("" & counter & " ") next ' Om vi inte är på sista sidan, skriv ut - Nästa If CInt(mypage) < CInt(maxcount) Then Response.Write("Nästa ") End If End If %> ``` cya, Permalänk: https://www.webforum.nu/p/251556 ## #16 — brw, 2000-11-02T21:38Z Ah.. tackar.. fick modifiera lite saker som saknades men de fungerade mycket bra! =) Permalänk: https://www.webforum.nu/p/251557 ## #17 — -torlejf-, 2000-11-04T14:20Z ag får det inte att funka. Jag det såhär nu: ``` <% mypage = Request("whichpage") If mypage = "" then mypage = 1 End If mypagesize = 10 SQL = "SELECT * From Guestbook" Set RS = Server.Createobject("ADODB.Recordset") RS.cursorlocation = 3 RS.cachesize = 5 RS.Open SQL, "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("cgi-bin/Guest.mdb") If RS.EOF then Response.write "Det finns inga loggar i databasen." Else RS.movefirst RS.pagesize = mypagesize maxcount = Cint(RS.pagecount) RS.absolutepage = mypage howmanyrecs = 0 howmanyfields = RS.fields.count -1 Do While Not RS.EOF AND howmanyrecs < mypagesize counter = counter + 1 If counter mod 2 = 0 then color = "CCCCCC" Else color = "FFFFFF" End If %> <%=RS("Namn")%>
<%=RS("Kommentar")%>

<% RS.movenext howmanyrecs = howmanyrecs + 1 Loop RS.close Set RS = nothing %> <% If CInt(maxcount) > 1 then ' vilken sida scriptname = request.Servervariables("script_name") response.write "sida " & mypage & " av " & maxcount & "
" & " sidor:
" ' om vi inte är på första sidan, skriv ut - Föregående If CInt(mypage) > 1 then Response.Write("Föregående ") End If for counter = 1 to maxcount Response.Write("" & counter & " ") next ' Om vi inte är på sista sidan, skriv ut - Nästa If CInt(mypage) < CInt(maxcount) Then ref = ref & "Nästa " End If End IF End If %> ``` Men det blir såhät på första sidan: sida 1/2 1 2 jag vill ha det såhär ju: sida 1/2 Nästa Vad har jag gjort fel? Föregående funkar utmärkt! Permalänk: https://www.webforum.nu/p/251558 ## #18 — brw, 2000-11-04T15:00Z Du har inte kört nån response write på ref-värdet. kolla min kod... ``` <% mypage = Request("whichpage") If mypage = "" then mypage = 1 End If mypagesize = 10 Set RS = Server.Createobject("ADODB.Recordset") RS.cursorlocation = 3 RS.cachesize = 5 RS.Open SQL, "driver={Microsoft Access Driver (*.mdb)};dbq=d:\data\databaser\privatdatabas.mdb" If RS.EOF then raderknapp = "nej" Response.write "Det finns inga loggar i databasen." & sok Else RS.movefirst RS.pagesize = mypagesize maxcount = Cint(RS.pagecount) RS.absolutepage = mypage howmanyrecs = 0 howmanyfields = RS.fields.count -1 Do While Not RS.EOF AND howmanyrecs < mypagesize counter = counter + 1 If counter mod 2 = 0 then color = "CCCCCC" Else color = "FFFFFF" End If %> <% =RS("login") %> ****** <% =RS("typ") %> <% =RS("ip") %> <% =RS("datum") %> ">
<% RS.movenext howmanyrecs = howmanyrecs + 1 Loop RS.close Set RS = nothing %> <% If CInt(maxcount) > 1 then ' vilken sida scriptname = request.Servervariables("script_name") response.write "sida " & mypage & " av " & maxcount & "

" ' om vi inte är på första sidan, skriv ut - Föregående If CInt(mypage) > 1 then Response.Write("Föregående ") End If for counter = 1 to maxcount 'Response.Write("" & counter & " ") next ' Om vi inte är på sista sidan, skriv ut - Nästa If CInt(mypage) < CInt(maxcount) Then ref = "Nästa " End If Response.Write ref End If %> ``` Denna kod talar ju om vilken sida du är på ``` ' vilken sida scriptname = request.Servervariables("script_name") response.write "sida " & mypage & " av " & maxcount & "

" ``` så du behöver inte den i mitten längst ned. det är därför det blir (1 2 osv) .. den kan du inaktivera.. ``` 'Response.Write("" & counter & " ") ``` Permalänk: https://www.webforum.nu/p/251559 ## #19 — bohlin, 2000-11-04T17:13Z En sak till: ni borde ändra denna raden: ``` RS.Open SQL, "driver={Microsoft Access Driver (*.mdb)};dbq=d:\data\databaser\privatdatabas.mdb" ``` **till** ``` Dim conn Set conn = server.createobject("adodb.connection") conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\data\databaser\privatdatabas.mdb" RS.Open SQL, conn ``` om ni inte gör det så kan ni inte stänga databasen, **tror jag**. ``` conn.close ``` Permalänk: https://www.webforum.nu/p/251560 --- Tråden på webben: https://www.webforum.nu/amne/asp/7030-modifigera-skriptet-i-faq-n