20. oktober 2002 - 19:09Der er
10 kommentarer og 1 løsning
SQL Database
Hejsa....jeg har et problem med dette script....håber der er nogen der kan hjælpe.....jeg er kørt lidt død i det....!!! Serveren kommer med fejlen "'loop' without 'do'" Jeg ved hvad det betyder men jeg kan ikke se et problem med loopen.....!!!
<%If rs.EOF then %> <%else%> <%I = 0 %> <%First = 1 %> <table width="760" border="1" cellspacing="0" cellpadding="0"> <% Do until rs.EOF %><br> <%If First = 1 then %> <tr><td> <%Else If "" = RS.Fields("Nacetekst") AND I < 2 Then %> </td><td> <%Else If "" = RS.Fields("Nacetekst") AND I = 2 Then %> </td></tr><tr><td><%I = 0%> <%Else%>
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Det er så vidt jeg kan se ikke noget galt i do until frem for while det er det samme der sker.
Det ser nærmere ud til at du bruger else if hvor du skulle bruger elseif som et ord..
<% Do until rs.EOF %><br> <%If First = 1 then %> <tr><td> <%ElseIf "" = RS.Fields("Nacetekst") AND I < 2 Then %> </td><td> <%ElseIf "" = RS.Fields("Nacetekst") AND I = 2 Then %> </td></tr><tr><td><%I = 0%> <%Else%>
Din kode er HELT vildt rodet! Jeg har lige ryddet lidt op, så det står lidt pænere, og ændret lidt i dine loops!
Prøv nu:
<%If not rs.EOF then I = 0 First = 1 %> <table width="760" border="1" cellspacing="0" cellpadding="0" ID="Table1"> <% Do until rs.EOF If First = 1 then %> <tr> <td> <% ElseIf RS.Fields("Nacetekst") = "" AND I < 2 Then %> </td> <td> <% ElseIf "" = RS.Fields("Nacetekst") AND I = 2 Then %> </td> </tr> <tr> <td> <% I = 0 End If %>
<font face="Arial, Helvetica, sans-serif" size="-4"> <% If "" <> RS.Fields("Nacetekst") Then %> <!-- Nacenr - Link --> <a href="Index.asp?Nace=Y&Nr=<%= RS.Fields("Nacenr")%>" target="_self"><%= RS.Fields("Nacenr")%></a> <% Else %> <!-- Overskrift --> <Strong><%= RS.Fields("Nacenr")%></Strong><br> <% End if %> <!-- Nacetekst --> <%If "" <> RS.Fields("Nacetekst") Then %> - <%= RS.Fields("Nacetekst")%> <%End If%> </font>
Jeg er af den overbevisning, at 90% af alle loop-problemer og andre "almindelige" fejltyper kan elimineres, hvis man sætter koden fornuftigt op, og placerer de forskellige kode-blokke under hinanden mv. På den måde kan man nemlig bevare overblikket mens man koder, og så bliver man sjældent forvirret. Selv ikke i de store, komplicerede loops! :)
Mvh,
Thomas Regin.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.