loop without do

Microsoft VBScript compilation error '800a040e'

'loop' without 'do'

/cat.asp, line 161

Loop
^

Rad 161 markerad med fet stil..

  <!-- #include file="databaskopplingar.asp" -->

<%

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 ("<font color=""#FFFFFF""><a href=""main.asp?page=94&do=logout"" class=""menylink"">Logga ut</font></a>")
	else
		Response.Write ("<font color=""#FFFFFF""><a href=""main.asp?page=94&log=in"" class=""menylink"">Admin</font></a>")
	End if

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

	Set RS = ObjConn.Execute("Select * from forum_kat order by kat")

		IF RS.Eof then
			Response.Write("Inga kategorier att visa.")
		else

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

	Set Count = ObjConn.Execute("Select count(*) from forum where kat='"&SafeSQL(RS("kat"))&"'" & " and svar='Nej'")
%><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

        [b]RS.Movenext
	Loop[/b]

%><%

		End if

	RS.Close : Set RS = Nothing

%>

Tacksam för hjälp!

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