--- title: "Jag ger upp snart! :)" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/39795-jag-ger-upp-snart" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "L1nk" published: "2002-03-16T21:13:51.000Z" updated: "2002-03-24T14:17:55.000Z" replies: 8 views: 440 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/39795-jag-ger-upp-snart" --- # Jag ger upp snart! :) ## #1 — L1nk, 2002-03-16T21:13Z Tjo! Har ett bild arkiv där bilderna är uppdelade i två grupper. En för stående bilder å en för liggande. Har en paging funktion som delar upp dem på olika sidor á 4 på varje ... allt funkar som det ska till det att jag kommer till sista sidan då jag får detta felmeddelandet: \--------------------------------------------------------------- Error Type: ADODB.Field (0x80020009) Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. /area69/bildarkiv2.asp \---------------------------------------------------------------- Det luriga är att min do sats som loopar ut bilderna är formad på följande sätt : ``` Do While Not oRs2.EOF And Count2 < oRs2.PageSize ``` Vilket borde vara nog för att applikationen ska vet om det är sista posten eller inte. Jag hoppas innerligt att jag kan få lite hjälp med detta problemet ... för som det ser ut nu kommer jag aldrig att klara det på egen hand :) Tack på förhand / Linus ``` <% If Request.QueryString("status") = "show" AND Request.QueryString("storlek") = 1 Then Dim curpage 'Säger vilken sida du befinner dig på. Dim oRs2 'Sidans andra recordset, där av namnet oRs2. Dim strSQL2 'Sidan andra SQL-sträng, där av namnet oSQL2. Dim Storlek 'Hämtar värdet från request.querystring("storlek"). Dim datum 'Hämtar värdet från request.querystring("datum"). Dim totalPages 'Bestämmer hela antalet sidor. Dim count2 'Variabel som ska jämföras med oRs2.PageSize' som stannar loopen på kommando. Dim image 'Variabel som innehåller adressen till bilden som ska visas i preview fönstret. datum = Request.QueryString("datum") storlek = Request.QueryString("storlek") %> <% Const numPerPage = 4 If Request.QueryString("curPage") = "" then curPage = 1 Else curPage = Request.QueryString("curPage") End If Set oRs2 = Server.CreateObject("ADODB.Recordset") oRs2.CursorLocation = adUseClient oRs2.CacheSize = numPerPage strSQL2 = "SELECT datum, image, ID, plats FROM Imagearchive WHERE datum = '"&datum&"' AND storlek = '"&storlek&"' ORDER BY ID ASC" oRs2.Open strSQL2, oConn2 oRs2.MoveFirst oRs2.PageSize = numPerPage TotalPages = oRs2.PageCount oRs2.AbsolutePage = curPage Count2 = 0 %>
<% Do While Not oRs2.EOF And Count2 < oRs2.PageSize %> <% Count2 = Count2 + 1 oRs2.MoveNext Loop %>
<% %>
") Else Response.Write("") End If %>
<% If Request.QueryString("status") = "show" AND Request.QueryString("storlek") = 1 AND Request.QueryString("preview")= "show" Then image = Request.QueryString("image") Response.Write("
 <%=oRs2("plats")%> - <%=oRs2("datum")%> page <%=Curpage%> of <%=Totalpages%> - <% If CurPage > 1 then %> &Storlek=1&curpage=<%=curpage - 1%>"'>prev <% Else Response.Write("prev") End If Response.Write("/") If CInt(CurPage) <> CInt(TotalPages) then %> &Storlek=1&curpage=<%=curpage + 1%>"'>next <% Else Response.Write("next") End If %>  
<% oRs2.Close oConn2.Close Set oConn2 = Nothing Set oRs2 = Nothing End If %> ``` Permalänk: https://www.webforum.nu/p/39795 ## #2 — hawkman, 2002-03-16T21:40Z Blir det samma sak om du bara kör: ``` Do While Not oRs2.EOF ``` /H Permalänk: https://www.webforum.nu/p/624912 ## #3 — L1nk, 2002-03-16T22:53Z Kör jag utan "And Count2 \< oRs2.PageSize" kommer felmeddelandet direkt, istället för på sista sidan. / Linus Permalänk: https://www.webforum.nu/p/624945 ## #4 — phazer23, 2002-03-18T07:03Z Har du provat med ``` Do until oRs2.EOF ``` Permalänk: https://www.webforum.nu/p/625262 ## #5 — Vide, 2002-03-18T07:51Z Problemet är att ditt uttryck är AND-baserat när det (i detta fallet) måste vara OR-baserat, byt: Do While Not oRs2.EOF And Count2 \< oRs2.PageSize mot Do While Not oRs2.EOF OR Count2 \< oRs2.PageSize Mvh, Vide Permalänk: https://www.webforum.nu/p/625271 ## #6 — L1nk, 2002-03-21T09:54Z Nepp! Lite probs .. för byter man ut AND mot OR kommer fel-meddelandet direkt istället för på sista sidan ... så man kan inte titta i arkivet över huvudtaget då.. Permalänk: https://www.webforum.nu/p/629415 ## #7 — solbulle, 2002-03-21T13:52Z Är det inte som så att när du kör: ``` Count2 = Count2 + 1 oRs2.MoveNext Loop ``` i miten av sidan så kör du ditt RS till slutet. Efter dessa rader hämtar du mer data från RS utanför loopen. (\<%=oRs2("plats")%\> mm) Skall du göra detta måste du väl köra en: oRs2.MoveFirst samt ev. loopa ditt RS igen. Lite snabbkoll, men så tycker jag det ser ut... Permalänk: https://www.webforum.nu/p/629499 ## #8 — L1nk, 2002-03-24T12:32Z **solbulle u're the MAN** Weeehhaa det funkar nu :) :) :) :) :) :) Har stirrat mig blind på skiten .. hade aldrig kommit på det själv ... tack .. MvH Linus Permalänk: https://www.webforum.nu/p/630483 ## #9 — solbulle, 2002-03-24T14:17Z hm :r Permalänk: https://www.webforum.nu/p/630516 --- Tråden på webben: https://www.webforum.nu/amne/asp/39795-jag-ger-upp-snart