---
title: "loop without do"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/154387-loop-without-do"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Jeppeweb"
published: "2006-11-30T22:54:25.000Z"
updated: "2006-12-01T00:22:49.000Z"
replies: 10
views: 418
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/154387-loop-without-do"
---
# loop without do
## #1 — Jeppeweb, 2006-11-30T22:54Z
Microsoft VBScript compilation error '800a040e'
'loop' without 'do'
/cat.asp, line 161
Loop
^
Rad 161 markerad med fet stil..
```
<%
SQL = "Select * from medlemmar WHERE ID = '" & Session("cmid") & "'"
Set RecSet = Connect.execute(SQL)
%>
<%
ID = Session("cmid")
lalala = "- befinner sig i forumet"
Connect.Execute("UPDATE medlemmar Set whereareyou='" & lalala & "' Where ID=" & ID )
%>
<%
if RecSet("mainadmin") = "1" then %><%
IF Session("admin")="Yes" then
Response.Write ("Logga ut")
else
Response.Write ("Admin")
End if
%><% end if %>
| <%
Set RS = ObjConn.Execute("Select * from forum_kat order by kat")
IF RS.Eof then
Response.Write("Inga kategorier att visa.")
else
%>
<%
Set Count = ObjConn.Execute("Select count(*) from forum where kat='"&SafeSQL(RS("kat"))&"'" & " and svar='Nej'")
%> | |
|
<%=Server.HtmlEncode(RS("kat"))%>
- <%=Server.HtmlEncode(RS("info"))%> |
<%=Count(0)%> st |
test |
<%
Count.Close : Set Count = Nothing
[b]RS.Movenext
Loop[/b]
%><%
End if
RS.Close : Set RS = Nothing
%>
```
Tacksam för hjälp!
Permalänk: https://www.webforum.nu/p/154387
## #2 — Troxy, 2006-11-30T23:15Z
'loop' without 'do' betyder att du avslutar en loop utan att påbörja den.
När jag tittar i din kod så ser jag att du aldrig påbörjar någon loop.
Permalänk: https://www.webforum.nu/p/1903640
## #3 — Jeppeweb, 2006-11-30T23:23Z
Men tar jag bort loopen så "loopas" inte alla kategorier ut..
hur jag för att göra det ?
Tack
Permalänk: https://www.webforum.nu/p/1903642
## #4 — emission, 2006-11-30T23:33Z
Du ska inte ta bort något, du har glömt att påbörja något.
do until RS.EOF
Permalänk: https://www.webforum.nu/p/1903643
## #5 — Jeppeweb, 2006-11-30T23:38Z
icrosoft VBScript runtime error '800a000d'
Type mismatch: 'Count'
/cat.asp, line 157
```
<%
// Loopar om det är några och räknar hur många trådar det är i varje kategori.
Set Count = ObjConn.Execute("Select count(*) from forum where kat='"&SafeSQL(RS("kat"))&"'" & " and svar='Nej'")
do until RS.EOF
%>|
|
<%=Server.HtmlEncode(RS("kat"))%>
- <%=Server.HtmlEncode(RS("info"))%> |
<%=Count(0)%> st |
test |
<%
Count.Close : Set Count = Nothing
RS.Movenext
Loop
%>
```
Tack
Permalänk: https://www.webforum.nu/p/1903645
## #6 — emission, 2006-11-30T23:58Z
Raden måste ligga innan du börjar använda RS, och efter includen.
Permalänk: https://www.webforum.nu/p/1903648
## #7 — Troxy, 2006-12-01T00:01Z
Den klagar på att den inte hittar något som heter Count.
Om du tittar i koden så ser du att du har råkat skapa Count precis innan du påbörjar din loop.
Permalänk: https://www.webforum.nu/p/1903649
## #8 — Jeppeweb, 2006-12-01T00:04Z
```
<%
// SQL-satsen för att öppna kategorierna.
do until RS.EOF
Set RS = ObjConn.Execute("Select * from forum_kat order by kat")
```
Microsoft VBScript compilation error '800a03ea'
Syntax error
/includes/color.asp, line 2
function color
^
color.asp
```
<%
function color
if i = 0 then
Color = "rad1"
i = 1
else
Color = "rad2"
i = 0
end if
end function
%>
```
Permalänk: https://www.webforum.nu/p/1903651
## #9 — Troxy, 2006-12-01T00:09Z
Du har inte skrivit några paranteser som anger argumenten för din funktion...
Jag föreslår att du läser lite om hur funktioner och argument fungerar.
Permalänk: https://www.webforum.nu/p/1903652
## #10 — emission, 2006-12-01T00:13Z
Ta bort function-biten (function color och end function). Det är nämligen ingen function.
Du måste i alla fall skapa RS innan du använder det i "do until".
Permalänk: https://www.webforum.nu/p/1903654
## #11 — Jeppeweb, 2006-12-01T00:22Z
Tack.
Permalänk: https://www.webforum.nu/p/1903655
---
Tråden på webben: https://www.webforum.nu/amne/asp/154387-loop-without-do
|