sid " For intNum = 1 To intPageCount Response.Write "" & intNum & " " Next %> ``` Permalänk: https://www.webforum.nu/p/136929 ## #2 — lilja, 2005-11-04T00:01Z ``` For intNum = 1 To intPageCount If intNum = SidanDuÄrPÅ Then Response.Write "" & intNum & " " Else Response.Write "" & intNum & " " End If Next ``` Permalänk: https://www.webforum.nu/p/1698801 ## #3 — emission, 2005-11-04T00:17Z Precis så! Fast egentligen är det onödigt att göra en länk till den sida man redan är på... :) Permalänk: https://www.webforum.nu/p/1698804 ## #4 — lilja, 2005-11-04T00:41Z > **emission skrev:** > > Precis så! > > Fast egentligen är det onödigt att göra en länk till den sida man redan är på... :) true, true :) Permalänk: https://www.webforum.nu/p/1698810 ## #5 — jlee, 2005-11-04T02:24Z Hur skriver jag sidan jag är på? Permalänk: https://www.webforum.nu/p/1698814 ## #6 — emission, 2005-11-04T08:13Z Hur menar du? Liljas exempel var det väl inget fel på? Permalänk: https://www.webforum.nu/p/1698835 ## #7 — lilja, 2005-11-04T10:26Z Hmm, jag antar att man kan göra så här: ``` For intNum = 1 To intPageCount If intNum = cInt(Request.QueryString("page")) Or Request.QueryString("page") = "" Then Response.Write "" & intNum & " " Else Response.Write "" & intNum & " " End If Next ``` Jag kontrollerar med en enkel if-satts vilken sida du är på. har man inte valt en sida så antar jag att du startar på första sidan... Permalänk: https://www.webforum.nu/p/1698888 ## #8 — jlee, 2005-11-04T14:36Z Nej det var inget fel på Liljas exempel men undrade hur man kollar vilken sida man är på.. Testade sista koden men det blir ingen fetstil på den valda siffran. Ja, man startar på sid 1 Permalänk: https://www.webforum.nu/p/1698978 ## #9 — devotion, 2005-11-04T14:50Z Hej! Jag har precis gjort en Paging sida.... Du kanske kan ha nytta av den koden. Den sidan du är på markeras med fetstil... :birp Mvh Henrik Permalänk: https://www.webforum.nu/p/1702173 ## #10 — jlee, 2005-11-04T15:22Z Tack Devotion men skulle gärna fått rätt på Liljas kod om det går..tror det är ngt litet fel bara...som tyvärr inte jag hittar. Så slipper jag gör a om hela sidan menar jag Permalänk: https://www.webforum.nu/p/1702183 ## #11 — @nders, 2005-11-04T15:46Z Du lär väl ha en variabel i din kod som innehåller numret på den sida som nu visas. Hur ska annars rätt sida kunna visas? Så, fram med den variabeln och lägg in den där *Request.QueryString("page")* står i liljas kod ovan, i if-satsen. Permalänk: https://www.webforum.nu/p/1702191 ## #12 — jlee, 2005-11-04T16:22Z Så ser det ut och då borde väl Liljas kod fungera som den är? med ("page") ``` <% intPage = Request("page") If isNumeric(intPage) = False Or intPage < 1 Then intPage = 1 End If Set rs = Server.CreateObject("ADODB.RecordSet") strsQL = "SELECT * FROM byggda ORDER BY ID DESC" strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("data.mdb") rs.Open strsQL, strDSN, 1 rs.PageSize = 8 rs.AbsolutePage = intPage intRecCount = rs.PageSize intPageCount = rs.PageCount numcols=4 if not rs.eof then response.write "" do until rs.eof or intRecCount = 0 response.write "" for i=1 to numcols response.write "

" if rs.eof or intRecCount = 0 then response.write " " else %> ``` Permalänk: https://www.webforum.nu/p/1702199 ## #13 — lilja, 2005-11-04T17:05Z Fungerar Request("page")? Jag har alltid skrivit Request.QueryString("page") då du antagligen skickar med sidan i url:en? Kör du med method="post" i ett formulär måste du ha Request.Form("page")... Jag hade problem för ett tag sen då siffran 3 inte var detsamma som bokstaven 3. Pröva att sätta cInt() runt båda ställena... ``` For intNum = 1 To intPageCount If cInt(intNum) = cInt(Request.QueryString("page")) Or Request.QueryString("page") = "" Then Response.Write "" & intNum & " " Else Response.Write "" & intNum & " " End If Next ``` Permalänk: https://www.webforum.nu/p/1702213 ## #14 — jlee, 2005-11-04T17:12Z Testade med ``` If cInt(intNum) = cInt(Request("page")) Or cInt(Request("page")) = "" Then ``` och ``` If cInt(intNum) = cInt(Request.QueryString("page")) Or cInt(Request.QueryString("page")) = "" Then ``` men inget av det ger \ märkligt va? Permalänk: https://www.webforum.nu/p/1702215 ## #15 — lilja, 2005-11-04T17:23Z Du ska inte behöva ha cInt() då du kontrollerar om ingan sida valts: Or Request.QueryString("page") = "" Byt ut ``` intPage = Request("page") If isNumeric(intPage) = False Or intPage < 1 Then intPage = 1 End If ``` mot: ``` intPage = Request.QueryString("page") If isNumeric(intPage) = False Or intPage < 1 Then intPage = 1 End If ``` och skriv sedan såhär: ``` For intNum = 1 To intPageCount If intNum = intPage Or intPage = 1 Then Response.Write "" & intNum & "" Else Response.Write "" & intNum & " " End If Next ``` Tycker dock att det verkar konstigt att du skapar 4 kolumner dynamiskt, varför gör du det? Kontrollerar du i HTML-koden om \ finns eller tittar du enbart på sidan? Testa den nya koden, ladda om sidan genom att trycka Ctrl+F5 (för att ladda om sidan helt utan cachning) och kolla sedan i HTML-koden om inte \sidnummer\ finns där. Jag skulle nämligen kunna tänka mig att du i en CSS-fil ändrat hur länkarskall se ut, kan det vara så? Permalänk: https://www.webforum.nu/p/1702217 ## #16 — jlee, 2005-11-04T17:39Z Jo det finns där nu men de är ju olänkade - både sid 1 och 2. Ja jag har ändrat länkar med CSS i samma sida. Jag har 4 kolumner men projekt som i sin tur länkar till mer info om varje... Permalänk: https://www.webforum.nu/p/1702224 ## #17 — lilja, 2005-11-04T18:00Z Öh? Om som det är nu så är aktuell sida olänkad. Jag ändrade till det efterssom du kanske tar bort fet-stil på länkar i CSS? Ändra koden till följande om du vill att alla sidnummer skall vara länkade: ``` For intNum = 1 To intPageCount If intNum = intPage Or intPage = 1 Then Response.Write "" & intNum & "" Else Response.Write "" & intNum & "" End If Next ``` För att kontrollera så att inte din CSS ändrar fet-stilen så kan du ju alltid ädra så att aktuell sida blir omgärdad av tecken istället. T.ex såhär: ``` For intNum = 1 To intPageCount If intNum = intPage Or intPage = 1 Then Response.Write "[" & intNum & "]" Else Response.Write "" & intNum & "" End If Next ``` Permalänk: https://www.webforum.nu/p/1702228 ## #18 — jlee, 2005-11-04T18:16Z Det blir fortf inte rätt. med nedre exemplet så blir det \[\] runt både 1 och 2 men om jag går till sid 2 så är det ingen \[\] alls. Men du har nog rätt i att CSS tar bort fetstilen Permalänk: https://www.webforum.nu/p/1702232 ## #19 — Nova, 2005-11-04T18:44Z Detta använder jag till en sökfunktion med paging för att få så att aktuell sida inte är fetmarkerad. Jag har hittat ett pagingskript här på sidan och pillrat till det lite. ``` If forRS.PageCount > 1 Then If intPage > 1 Then Response.Write("Första"&" ") End If For i = 1 To forRS.PageCount If i <> intPage Then Response.Write("" & i & " ") Else Response.Write(i & " ") End If Next If intPage < forRS.PageCount Then Response.Write("Sista ") End If ``` Permalänk: https://www.webforum.nu/p/1702240 ## #20 — jlee, 2005-11-05T12:49Z Ja du har lyckats lösa det men skulle vilja använda min befintliga lösning. Går det verkligen inte att fixa det med Liljas kod på något sätt...vill helst ha kvar CSS som det är på sidan oxå. Det borde väl gå att kringgå Css´n till just pagingen så Lijas kod funkar? Min CSS ser ut såhär ``` ``` Permalänk: https://www.webforum.nu/p/1702465 --- Tråden på webben: https://www.webforum.nu/amne/asp/136929-highlighta-paging-siffra Nästa sida: https://www.webforum.nu/amne/asp/136929-highlighta-paging-siffra/page2.md