VBScript Error Message

[uedavi]

Hi All

I'm getting the following error message when running the following code. Could someone help me with the following error message. I'm stuck!!!

-First is the Error message and then the code is below.

Error Message
Error Type:
Microsoft VBScript compilation (0x800A03F6)
Expected 'End'
/include/footer.inc, line 35

Code


<%'------------------------ CONTENT END ------------------------%>
</td>
</tr>
<tr>
<td align="center">
<%'------------------------ FOOTER BEGIN -----------------------%>
<br><br>
<% ColorBar "85%", "5" %>
<span>
<%'-------------------------- Bottom MENU ITEM BEGIN ---------------------------%>
<% For i = 0 to UBound( DemoMenuArray ) Step 2 %>
<% If( i = 0 ) Then %>
<img border="0" width="5" height="1" src="images/space.gif" alt="">
<% Else %>
|
<% End If %>
<a href="<%= DemoMenuArray(i + 1) %>"><%= DemoMenuArray(i) %></a>
<% Next %>
<img border="0" width="5" height="1" src="images/space.gif" alt="">
</span>
<a href="url"><img border="0" src="/images/enlogo.jpg" alt="<%= Application("CompanyName") %>"></a>
</td>
</tr>
<%'------------------------ Debugging Info -------------------------%>
<tr>
<td>
<%
If( DEBUGGING ) Then
Response.Write( "<br><br>" & ScriptEngine() & " Version " & ScriptEngineMajorVersion() & "." & ScriptEngineMinorVersion() & "." & ScriptEngineBuildVersion() & "<br>" & vbNewLine)
ShowCollection "Form", Request.Form
ShowCollection "Cookie", Request.Cookies
ShowCollection "Session", Session.Contents
ShowCollection "Application", Application.Contents
ShowCollection "Server", Request.ServerVariables
End If
%>
</td>
</tr>
</table>

</body>

</html>

[vgarcia]

Make sure that you're not starting an If statement or loop in another file and not closing it. Also, never put ASP code in a file with a .inc extension! You're just asking for security problems.