»» Bildgalleri ««

--- title: "Felmeddelande i ett bildgalleri ???" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/103644-felmeddelande-i-ett-bildgalleri" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "richi_f" published: "2004-05-14T17:12:56.000Z" updated: "2004-05-17T17:28:42.000Z" replies: 9 views: 385 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/103644-felmeddelande-i-ett-bildgalleri" --- # Felmeddelande i ett bildgalleri ??? ## #1 — richi_f, 2004-05-14T17:12Z Hej! Vore jättesjysst om nån kunde hjälpa mig! Jag vet inte vad jag ska göra åt ett felmeddelande som jag får. Kolla in sidan: Tryck på nästa sida för att se vad jag menar... Det hela fungerar om jag ett jämt antal bilder inlagda i databasen....? Se koden nedan. Tack på förhand! Mvh, Richard ``` <%Response.Buffer = "True"%> »» Bildgalleri «« <%Set Conn = Server.CreateObject("ADODB.Connection") Set RecSet = Server.CreateObject("ADODB.Recordset") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db Set RS=Conn.Execute("Select * From galleri Where namn='" & Request.QueryString("id") & "'") If Request.Querystring("id") = "" then Response.Redirect "index.asp" End If%>

Bildgalleriet:

» Välj kategori i menyn till höger

<% Const perSida = 6 'Bilder per sida Sidan = Request.QueryString("sida") If Sidan = "" then sida = 1 Else sida = Sidan End If With RecSet .CursorLocation = 3 .CacheSize = perSida End With SQL = "Select * From bilder Where namn='" & Request.QueryString("id") & "' And visa=True Order By snitt desc,totalt desc" RecSet.Open SQL, Conn If RecSet.EOF Then%> <%Else%> <%With RecSet .MoveFirst .PageSize = perSida .AbsolutePage = sida End With Sidor = RecSet.PageCount X = 0 If Request.QueryString("Z") <> "" then Z=Request.QueryString("Z") Else Z=1 End If koll = 0 Do While Not RecSet.EOF And X < RecSet.PageSize%> <%Z = Z + 1 X = X + 1 koll = koll + 1 Recset.MoveNext Loop Recset.Close Conn.Close Set Recset = Nothing Set Conn = Nothing If Request.QueryString("Z") <> "" then Z=Request.QueryString("Z") Else Z=1 End If If Request.QueryString("sida") <> "" then sida = Request.QueryString("sida") Else sida = 1 End If%> <%End If%>

Inga bilder i denna kategori.

<%=Replace(RS("info"), vbCrLf, "
" )%>

','<%=RecSet("namn")%>');">

" width="90" height="90" border="1">

<%=Replace(RecSet("bildinfo"), vbCrLf, "
" )%>

<%Z = Z + 1 X = X + 1 koll = koll + 1 If koll = 6 then exit do Recset.MoveNext %>

','<%=RecSet("namn")%>');">

" width="90" height="90" border="1">

<%=Replace(RecSet("bildinfo"), vbCrLf, "
" )%>

<%If Sidor <> 1 Then If (Int(sida)) <> 1 Then%> &sida=<%=(Int(sida)-1)%>&z=<%=Z-perSida%>">« <%Else Response.Write "" End If For Sid = 1 To Sidor If (Int(Sid)) = (Int(sida)) Then%><%=Sid%> <%Else%> &sida=<%=Sid%>&z=<%=persida*Sid-perSida+1%>"><%=Sid%> <%End If Next If (Int(sida)) <> (Int(Sidor)) AND X > 0 Then%> &sida=<%=(Int(sida)+1)%>&z=<%=Z+perSida%>">» <%Else End If End If%>

``` Permalänk: https://www.webforum.nu/p/103644 ## #2 — @nders, 2004-05-15T06:35Z Borde det inte vara ``` Do While Not RecSet.EOF [b]OR[/b] X < RecSet.PageSize%> ``` ? Permalänk: https://www.webforum.nu/p/1346503 ## #3 — richi_f, 2004-05-15T18:18Z Nej, det blev fel det med... Hej igen! Tack för hjälpen men det funkade tyvärr inte... Nån idé? Mvh, Richard Permalänk: https://www.webforum.nu/p/1346715 ## #4 — Mog, 2004-05-15T19:52Z Det är för att du kör Recset.MoveNext när det inte finns mer i den, kör en koll innan. ``` If (Recset.EOF) Then exit Do Else Recset.MoveNext End If ``` Bör funka. Permalänk: https://www.webforum.nu/p/1346744 ## #5 — richi_f, 2004-05-16T22:43Z Ja det borde funka, men ändå gör det inte det... Hej hej, börjar bli galen på detta nu. Det stora problemet är att jag inte har tillräcklig kompetens för att se de enkla misstag som jag säkert gör... Det senaste borde ha funkat men jag får ändå samma felmeddelande som förut: ADODB.Field error '80020009' Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. /db/gruv/visa.asp, line 0 hej hopp! Hoppas nån kan se vad det är som är fel... Mvh, Richard Permalänk: https://www.webforum.nu/p/1349988 ## #6 — Esen, 2004-05-16T22:54Z Det hjälper inte ifall du byter ut sida = 1 till typ 3 i denna kod.... \<% Const perSida = 6 'Bilder per sida Sidan = Request.QueryString("sida") If Sidan = "" then sida = 1 'Byt 1:an mot en 3:a Else sida = Sidan End If Men som sakt var, e inte helt säker på att det fungerar, Men man kan ju alltid testa... Permalänk: https://www.webforum.nu/p/1349990 ## #7 — richi_f, 2004-05-17T11:10Z Njetski... Nej då försvann bilderna på den första sidan och felmeddelandet är kvar på andra sidan... hmm... HJÄLP!? Permalänk: https://www.webforum.nu/p/1350087 ## #8 — Esen, 2004-05-17T12:27Z Re: Njetski... > **richi_f skrev:** > > Nej då försvann bilderna på den första sidan och felmeddelandet är kvar på andra sidan... > > hmm... > > HJÄLP!? Okye, Får kolla lite till och testa lite saker, Har själv använt Gruvsjo bildScript en gång i tiden, Men det var länge sedan, Men fick det iallafall att fungera då, så det borde ju gå engång till... Återkommer lite senare Permalänk: https://www.webforum.nu/p/1350115 ## #9 — richi_f, 2004-05-17T14:49Z Det vore jättesjysst! Tack! Det vore underbart om du kunde hjälpa mig! Mvh, Richard Permalänk: https://www.webforum.nu/p/1350166 ## #10 — solbulle, 2004-05-17T17:28Z Jag tycker det förefaller som om du har två likadana block med kod som skriver ut dina bilder (=onödigt) Du kollar om rs är i slutet innan du firar av den första bilden men inte innan den andra, varpå du får ditt felmess varje gång du visar ett ojämt bildantal. Lägg in en koll innan du kör din andra rs.movenext eller ännu bättre gör en loop (med koll) så slipper du ha samma kodstycke två gånger i rad. Permalänk: https://www.webforum.nu/p/1350236 --- Tråden på webben: https://www.webforum.nu/amne/asp/103644-felmeddelande-i-ett-bildgalleri