loop without do

'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.

Men tar jag bort loopen så "loopas" inte alla kategorier ut..

hur jag för att göra det ?

Tack

Du ska inte ta bort något, du har glömt att påbörja något.

do until RS.EOF

icrosoft VBScript runtime error '800a000d'

Type mismatch: 'Count'

/cat.asp, line 157

<!-- #include file="includes/color.asp" --><%

	// 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
%><tr class='<%=color%>'><td width='39' height="38">
	<p align="center"><img src='bilder/folder.png' alt=""></td>
	<td width='316'><b><a href='main.asp?page=91&kat=<%=Server.HtmlEncode(RS("kat"))%>'><%=Server.HtmlEncode(RS("kat"))%></a></b>
	<br>- <%=Server.HtmlEncode(RS("info"))%></td>
	<td width="95"><%=Count(0)%> st</td>
	<td width="130">&nbsp;test</td></tr><%
	Count.Close : Set Count = Nothing
	
	RS.Movenext
	Loop

%>

Tack

Raden måste ligga innan du börjar använda RS, och efter includen.

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.

	<td><!-- #include file="includes/db.asp" --><%

	// 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
%>

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.

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".

Tack.