--- title: "HJÄLP Paging!!" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/154281-hjälp-paging/page3" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Jeppeweb" published: "2006-11-28T07:31:27.000Z" updated: "2006-12-14T12:34:33.000Z" replies: 61 views: 1538 page: 3 pages: 4 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/154281-hjälp-paging" --- # HJÄLP Paging!! _Sida 3 av 4._ ## #41 — voigtann1, 2006-11-28T13:20Z Gå och läs lite om programmering, wF är en bra resurs och man lär sig en hel del... men förväntar dig inte att alla wF medlemmar gör all kod åt dig. PS Använd Acceptera som slutgiltigt svar så andra personer med liknande problem kan läsa och hitta hur du löste ett problem. Permalänk: https://www.webforum.nu/p/1902660 ## #42 — Jeppeweb, 2006-12-14T09:18Z Lite sent efter men.. Får detta felmeddelande när jag ska bläddra i pagingen.. Microsoft OLE DB Provider for ODBC Drivers error '80004005' \[Microsoft\]\[ODBC Microsoft Access Driver\]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x820 Thread 0xbbc DBC 0x107a3db4 Jet'. /default.asp, line 7 ``` <% '//--------------------------------------------------------------------------------------------------------------------------------------------------------------- '// '// © 2003 '// Pagingsystem med GetRows() '// Skapat 23 Maj 2003 av Palle Zingmark '// www.palleman.nu | info@palleman.nu '// '//--------------------------------------------------------------------------------------------------------------------------------------------------------------- '// Dim Dim Connect, RecSet, arrRecSet, intPage, intPostsPerPage, intFirstPost, intTotalPosts Dim intPages, intLastPost, strNext, i, strName, intNavStart, intNavEnd, n '//--------------------------------------------------------------------------------------------------------------------------------------------------------------- '// Databashantering dim SQL sql = "Select TradID,rubrik,epost,username,datum from forum where kat='"&safeSQL(Request.Querystring("kat"))&"'" & " and svar='Nej'" & " order by datum desc" Set RecSet = Connect.Execute(sql) If NOT RecSet.EOF Then arrRecSet = RecSet.GetRows() RecSet.Close : Set RecSet = Nothing Connect.Close Set Connect = Nothing '//--------------------------------------------------------------------------------------------------------------------------------------------------------------- '// Posthantering If IsArray(arrRecSet) Then '// Poster per sida intPostsPerPage = 10 '// Navigeringshantering If Len(trim(Request.Querystring("n"))) > 0 Then intPage = cInt(trim(Request.Querystring("n"))) Else intPage = 1 intFirstPost = (intPage - 1) * intPostsPerPage intTotalPosts = UBound(arrRecSet, 2) intPages = ((intTotalPosts)\intPostsPerPage)+1 If intFirstPost + (intPostsPerPage - 1) >= UBound(arrRecSet,2) Then intLastPost = UBound(arrRecSet, 2) Else intLastPost = intFirstPost + (intPostsPerPage - 1) strNext = True End If '// Skriv ut posterna For i = intFirstPost To intLastPost TradID = arrRecSet(0,i) strRubrik = arrRecSet(1,i) strepost = arrRecSet(2,i) strusername = arrRecSet(3,i) strdatum = arrRecSet(4,i) Set Count = ObjConn.Execute("Select count(*) from forum where svar='Ja'" & " and tradID='"&SafeSQL(TradID)&"'") antal = Count(0) count.close : set Count = nothing response.write "" response.write "

" response.write "" response.write "" response.write " " response.write "" response.write "" response.write " " response.write "" response.write "" response.write " " response.write "

Kategori » " & Server.Htmlencode(Request.Querystring("kat")) & "
" response.write "		" response.write " Skapa ny tråd
" response.write "	Trådar:	" response.write " Antal svar:
" response.write "	" & Server.HtmlEncode(strRubrik) & "skapades av " & Server.HtmlEncode(strusername) & " " & strDatum & "	" & antal & " st

" Next '// Navigering, välj själv knappar eller text Call buttonNavigate(intPage, intTotalPosts, intPostsPerPage, intPages) 'Call textNavigate(intPage, intTotalPosts, intPostsPerPage, intPages) '// Fanns inga poster Else Response.Write "Inga poster." End If %> ``` Permalänk: https://www.webforum.nu/p/1909934 ## #43 — voigtann1, 2006-12-14T09:20Z Som vanligt länkar du fel... line 7 är en kommentar Som felmeddelandet lyder så är det något med din databas som spökar... kan vara update frågan... Permalänk: https://www.webforum.nu/p/1909935 ## #44 — Jeppeweb, 2006-12-14T09:31Z Det finns ju ingen update fråga (?) Permalänk: https://www.webforum.nu/p/1909939 ## #45 — voigtann1, 2006-12-14T09:34Z sant... (läste fel) men fortfarande fel dokument felet ligger på... Permalänk: https://www.webforum.nu/p/1909941 ## #46 — Jeppeweb, 2006-12-14T09:39Z Fattar inte varför det står default.asp när det är i cat_open.asp funktionen ligger i.. Deafult.asp är en omröstning och rad 7 och därtill ser ut såhär; \<% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ=" & Server.Mappath("") SQL = "SELECT TOP 1 \* From fragor ORDER BY id DESC" Set RecSet1 = Connect.Execute(SQL) %\> Cat_open.asp hanteras inte i access utan mysql.. Men varför blir det default där för? Fattar naaaada.. Permalänk: https://www.webforum.nu/p/1909943 ## #47 — @nders, 2006-12-14T09:42Z Felmeddelandet brukar ju betyda "fel sökväg till databasen" eller något med rättigheter. Om man tittar på denna kodrad: ``` Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("") ``` , så känns det som att det är något som saknas........ Permalänk: https://www.webforum.nu/p/1909944 ## #48 — Jeppeweb, 2006-12-14T09:45Z Connect.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ=" & Server.Mappath("poll.mdb") Så ser den ut just nu.. Microsoft OLE DB Provider for ODBC Drivers error '80004005' \[Microsoft\]\[ODBC Microsoft Access Driver\]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x820 Thread 0xbbc DBC 0x107a3db4 Jet'. /default.asp, line 7 Men varför blir pagingen till default.asp ? Den sidan har ju inte ens med saken o göra.. Permalänk: https://www.webforum.nu/p/1909946 ## #49 — @nders, 2006-12-14T09:49Z > Men varför blir pagingen till default.asp ? Vi vet inte. Hur ser funktoinen för att skapa navigationslänkar ut? Permalänk: https://www.webforum.nu/p/1909950 ## #50 — Jeppeweb, 2006-12-14T09:55Z ``` If IsArray(arrRecSet) Then '// Poster per sida intPostsPerPage = 10 '// Navigeringshantering If Len(trim(Request.Querystring("n"))) > 0 Then intPage = cInt(trim(Request.Querystring("n"))) Else intPage = 1 intFirstPost = (intPage - 1) * intPostsPerPage intTotalPosts = UBound(arrRecSet, 2) intPages = ((intTotalPosts)\intPostsPerPage)+1 If intFirstPost + (intPostsPerPage - 1) >= UBound(arrRecSet,2) Then intLastPost = UBound(arrRecSet, 2) Else intLastPost = intFirstPost + (intPostsPerPage - 1) strNext = True End If '// Skriv ut posterna For i = intFirstPost To intLastPost TradID = arrRecSet(0,i) strRubrik = arrRecSet(1,i) strepost = arrRecSet(2,i) strusername = arrRecSet(3,i) strdatum = arrRecSet(4,i) Set Count = ObjConn.Execute("Select count(*) from forum where svar='Ja'" & " and tradID='"&SafeSQL(TradID)&"'") antal = Count(0) ``` i guess.. allt finns med i koden jag skickade lite högre upp ^^ Permalänk: https://www.webforum.nu/p/1909951 ## #51 — voigtann1, 2006-12-14T09:58Z nej... kolla funktionen buttonNavigate() som du använder för att skriva ut dina knappar... där är svaret skulle jag gissa på... Permalänk: https://www.webforum.nu/p/1909953 ## #52 — @nders, 2006-12-14T09:58Z Jag ser ingen navigeringslänk i den koden. Permalänk: https://www.webforum.nu/p/1909954 ## #53 — Jeppeweb, 2006-12-14T10:18Z Call buttonNavigate(intPage, intTotalPosts, intPostsPerPage, intPages) All kod som finns är ju med i kodsnutten som jag skickade med tidigare somsagt. Då är det kanske något som saknas? vad? Permalänk: https://www.webforum.nu/p/1909963 ## #54 — voigtann1, 2006-12-14T10:20Z ... läs functions.asp för att se strukturen på hur ButtonNavigate är uppbyggd... fick ladda ner scriptet bara för att öppan den... står på 2 till 4 olika ställen att det är default.asp som navigeringen ska gå till... ändra det. Permalänk: https://www.webforum.nu/p/1909964 ## #55 — Jeppeweb, 2006-12-14T10:52Z Ändrat. Nu när jag klickar till t.ex sida 2, 3 eller 4.. så står det "inga poster". Why!? :( Permalänk: https://www.webforum.nu/p/1909978 ## #56 — Jeppeweb, 2006-12-14T10:59Z **cat_open** ``` <% '//--------------------------------------------------------------------------------------------------------------------------------------------------------------- '// '// © 2003 '// Pagingsystem med GetRows() '// Skapat 23 Maj 2003 av Palle Zingmark '// www.palleman.nu | info@palleman.nu '// '//--------------------------------------------------------------------------------------------------------------------------------------------------------------- '// Dim Dim Connect, RecSet, arrRecSet, intPage, intPostsPerPage, intFirstPost, intTotalPosts Dim intPages, intLastPost, strNext, i, strName, intNavStart, intNavEnd, n '//--------------------------------------------------------------------------------------------------------------------------------------------------------------- '// Databashantering dim SQL sql = "Select TradID,rubrik,epost,username,datum from forum where kat='"&safeSQL(Request.Querystring("kat"))&"'" & " and svar='Nej'" & " order by datum desc" Set RecSet = Connect.Execute(sql) If NOT RecSet.EOF Then arrRecSet = RecSet.GetRows() RecSet.Close : Set RecSet = Nothing Connect.Close Set Connect = Nothing '//--------------------------------------------------------------------------------------------------------------------------------------------------------------- '// Posthantering If IsArray(arrRecSet) Then '// Poster per sida intPostsPerPage = 10 '// Navigeringshantering If Len(trim(Request.Querystring("n"))) > 0 Then intPage = cInt(trim(Request.Querystring("n"))) Else intPage = 1 intFirstPost = (intPage - 1) * intPostsPerPage intTotalPosts = UBound(arrRecSet, 2) intPages = ((intTotalPosts)\intPostsPerPage)+1 If intFirstPost + (intPostsPerPage - 1) >= UBound(arrRecSet,2) Then intLastPost = UBound(arrRecSet, 2) Else intLastPost = intFirstPost + (intPostsPerPage - 1) strNext = True End If '// Skriv ut posterna For i = intFirstPost To intLastPost TradID = arrRecSet(0,i) strRubrik = arrRecSet(1,i) strepost = arrRecSet(2,i) strusername = arrRecSet(3,i) strdatum = arrRecSet(4,i) Set Count = ObjConn.Execute("Select count(*) from forum where svar='Ja'" & " and tradID='"&SafeSQL(TradID)&"'") antal = Count(0) count.close : set Count = nothing response.write "" response.write "

" response.write "" response.write "" response.write " " response.write "" response.write "" response.write " " response.write "" response.write "" response.write " " response.write "

Kategori » " & Server.Htmlencode(Request.Querystring("kat")) & "
" response.write "		" response.write " Skapa ny tråd
" response.write "	Trådar:	" response.write " Antal svar:
" response.write "	" & Server.HtmlEncode(strRubrik) & "skapades av " & Server.HtmlEncode(strusername) & " " & strDatum & "	" & antal & " st