What is the error at line 135?

[ReportingAnalyst]

Hi,

I get this error.

Error Type:
Microsoft VBScript compilation (0x800A03FC)
Expected 'Next'

Line 135 is the bold text below in the code.

If not rs.EOF then
	    aCategory = rs.GetRows()

		'Close the Recordset object
		rs.Close
		'Delete the Recordset Object
		Set rs = Nothing

		'Declare Constants for the above SQL columns for better readability
		'Use these Constants instead of referring to the array numeric indexes
		Const c_Cat_ID = 0
		Const c_CatName = 1

		Dim iRows

		For iRows = 0 to UBound(aCategory, 2)
		%>
			<ul id="menu">
			<li>
				<input type="radio" checked name="catid" id="catid<%=aCategory(c_Cat_ID, 0)%>" value="<%=aCategory(c_Cat_ID, 0)%>">
				<a href="#" class="a_style"><%=aCategory(c_CatName, 0)%></a>
				<ul id="UI_<%=aCategory(c_Cat_ID, 0)%>" style="display: none">
				<%
					'Call GetProducts (CatID, Counter)
				%>
				</ul>
			</li>
			</ul>

		<%
		Next 'iRows
[bold]End If 'rs.EOF[/bold]
%>

 

[Sheco]

That error usually means you've got something like this:[tt]
if 1 = 1 then
For x = 1 to 5
Response.Write "CrunchyFrogs are yummy <br>"
end if
[/tt]
... but I don't see that problem in the code above

 

[ChrisHirst]

you have probably got a open For x to y further up the page and that line is where is comes to grief.

could be in an include somewhere

Chris.

Indifference will be the downfall of mankind, but who cares?
Woo Hoo! the cobblers kids get new shoes.
People Counting Systems

So long, and thanks for all the fish.

 

[ReportingAnalyst]

I had forgot to close the server side script with a server side tag %> Hence the error.

By the way - Crunchy Frogs are yummy. You must have a real wacky imagination...

 

[Sheco]

I can't take credit for delicious crunchy frogs:

http://en.wikipedia.org/wiki/Crunchy_frog