--- title: "Loop" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/13734-loop" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "hacktheplanet" published: "2002-01-12T17:17:00.000Z" updated: "2002-01-12T21:08:00.000Z" replies: 8 views: 174 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/13734-loop" --- # Loop ## #1 — hacktheplanet, 2002-01-12T17:17Z fattar inte vad det e fel på koden??: fattar inte riktigt va loop e :( ``` <% IF NOT (RecSet.EOF) THEN %> Användarnamn:

IRL: Relation: Datum: <% Do Until RecSet.EOF %> <% recset.movefirst recset.pagesize = mypagesize maxcount = Cint(recset.pagecount) recset.absolutepage = mypage howmanyrecs = 0 howmanyfields = recset.fields.count -1 Do While Not RecSet.EOF AND howmanyrecs < recset.pagesize counter = counter + 1 If counter mod 2 = 0 then color = "#FFFFFF" Else color = "#F0F0F0" End If %>  <%If RecSet2("status") = "offline" Then%><%Else%><%End If%> "><%=RecSet("namn")%> <%=left(recset2("kon"),1)%> <%newage=DateDiff ("d", recset2("alder"), Now) newage = newage - (newage Mod 365) newage = newage / 365 response.write(newage)%> <%=RecSet("IRL")%> <%=RecSet("Relation")%> <%=RecSet("blevkompis")%> <% RecSet.MoveNext RecSet2.MoveNext howmanyrecs = howmanyrecs + 1 Loop Set RecSet = Nothing Set RecSet2 = Nothing RecSet.Close connect.Close %> <% ELSE %>

<%End if%>

Tyvärr <%=Request.querystring("vem")%> har inga kompisar i sin kompislista!


[b]<% Do Until RecSet.EOF %>[/b] <% recset.movefirst recset.pagesize = mypagesize maxcount = Cint(recset.pagecount) recset.absolutepage = mypage howmanyrecs = 0 howmanyfields = recset.fields.count -1 Do While Not RecSet.EOF AND howmanyrecs < recset.pagesize counter = counter + 1 If counter mod 2 = 0 then color = "#FFFFFF" Else color = "#F0F0F0" End If %> <% RecSet.MoveNext RecSet2.MoveNext howmanyrecs = howmanyrecs + 1 Loop Set RecSet = Nothing Set RecSet2 = Nothing RecSet.Close connect.Close %> <% ELSE %>
<% If maxcount <> 0 then pad = "0" scriptname = request.Servervariables("script_name") for counter = 1 to maxcount If counter >= 10 then pad = "" End If ref = "" & pad & counter & " " response.write ref & " " Next End If %> ``` Permalänk: https://www.webforum.nu/p/13734 ## #2 — M@rtin, 2002-01-12T17:31Z Vad får du för fel och på vilken rad? Permalänk: https://www.webforum.nu/p/303739 ## #3 — hacktheplanet, 2002-01-12T19:50Z **Kompileringsfel i Microsoft VBScript (0x800A03FB) 'Loop' förväntas. /kompisar.asp, line 234 ELSE** Permalänk: https://www.webforum.nu/p/303740 ## #4 — Erik Juhlin, 2002-01-12T19:56Z Koden ser lite underlig ut. Du har två stycken Do och en Loop... Permalänk: https://www.webforum.nu/p/303741 ## #5 — icaaq, 2002-01-12T19:58Z ``` <% IF NOT (RecSet.EOF) THEN %> Användarnamn:

IRL:

 Relation: Datum:
<%If RecSet2("status") = "offline" Then%><%Else%><%End If%> "><%=RecSet("namn")%> <%=left(recset2("kon"),1)%> <%newage=DateDiff ("d", recset2("alder"), Now) newage = newage - (newage Mod 365) newage = newage / 365 response.write(newage)%> <%=RecSet("IRL")%> <%=RecSet("Relation")%> <%=RecSet("blevkompis")%>


<%End if%>

Tyvärr <%=Request.querystring("vem")%> har inga kompisar i sin kompislista!

<% If maxcount <> 0 then pad = "0" scriptname = request.Servervariables("script_name") for counter = 1 to maxcount If counter >= 10 then pad = "" End If ref = "" & pad & counter & " " response.write ref & " " Next End If %> ``` ska verkligen den fetmarkerade raden vara där....?? det är därför du får det felet, för att du har två stycken Do While men bara en loop... Permalänk: https://www.webforum.nu/p/303742 ## #6 — hacktheplanet, 2002-01-12T20:06Z får endå samma felmess!!! Permalänk: https://www.webforum.nu/p/303743 ## #7 — icaaq, 2002-01-12T20:33Z detta stycke ser konstigt ut: ``` <%If RecSet2("status") = "offline" Then%><%Else%><%End If%> ``` Om du ska ha en **If** sats med flera argument så måste den stå på flera rader, ett exempel Där du har ett argument ``` If LCase(strStatus) ="online" Then imgBild = "Bilder/online.gif" ``` flera argument.... ``` If LCase(strStatus) ="online" Then imgBild = "Bilder/online.gif" Else imgBild = "Bilder/offline.gif" End If ``` kolla mer på [webeye.nu](http://www.webeye.nu/default2.asp?que=asp/default.asp&exec=asp/artiklar/asp3.asp) :) vet ej om detta hjälper just i din situation men du kan ju alltid försöka :) Permalänk: https://www.webforum.nu/p/303744 ## #8 — saw, 2002-01-12T20:54Z Här har du en DO slinga ``` <% Do Until RecSet.EOF %> ``` Men du har två RecSet.MoveNext ``` RecSet.MoveNext RecSet2.MoveNext howmanyrecs = howmanyrecs + 1 Loop ``` Jag gissar att det är för din andra movenext som du får fel. Permalänk: https://www.webforum.nu/p/303745 ## #9 — Erik Juhlin, 2002-01-12T21:08Z Det har nog inte med att han har två Recordsets igång vilket kanske inte är så smidigt och rätt, men inte genererar något fel. Felet kommer ju av att han försöker dra igång två loopar, men har bara en "Loop". Permalänk: https://www.webforum.nu/p/303746 --- Tråden på webben: https://www.webforum.nu/amne/asp/13734-loop