noget i den stil tror jeg...
Hele menuen ser sådan ud. lidt forvirrende må jeg sige, men får ingen asp fejl, kun fejl i javascriptet og tror det er pga mine id="divTop<%=objRs("ID")
<div id="divCont"> <!-- These are the contents of the foldoutmenu. -->
<%
'Lav en forespørgsel der finder forsidens titel
strSQL = "SELECT * FROM forside"
set objRs = objConn.Execute(strSql)
%>
<div id="divTop<%=objRs("ID")%>" class="clTop"><a href="#" onclick="fold_alle(); return false" onfocus="this.blur()"><img src="Pic/arrow.gif"" alt="" border="0"><%=objRs("title")%></a><br></div>
<%
'Lav en forespørgsel der finder alle kategorierne
strSQL = "SELECT * FROM categories"
set objRs = objConn.Execute(strSql)
do while not objRs.Eof 'Så længe der er noget i resultatsættet
%>
<div id="divTop<%=objRs("ID")%>" class="clTop"><a href="#" onclick="menu(<%=objRs("ID")%>); return false" onfocus="this.blur()"><img src="Pic/arrow.gif" name="imgA<%=objRs("ID")%>" alt="" border="0"><%=objRs("categoryname")%></a><br>
<%
strSQL = "SELECT * FROM articles WHERE category=" & objRs("id") & " and releasetoweb=" & 1 & " and date() BETWEEN startdate and enddate ORDER by id ASC"
set objRs_kat = objConn.Execute(strSql)
'Så længe der er artikler til kategorien:
%>
<div id="divSub<%=objRs_kat("Category")%>" class="clSub">
<% Do while not objRs_Kat.Eof %>
<a href="Index.asp?ID=<%=objRs_kat("ID")%>"><%=objRs_kat("title")%></a><br>
<%
objRs_Kat.MoveNext
Loop
objRs_Kat.Close
set objRs_Kat = nothing
%>
</div>
</div>
<%
'Gå videre til næste kategori
objRs.MoveNext
Loop
'Luk kategorier når vi er færdige
objRs.Close
set objRs = Nothing
'objRs.MoveNext 'gå til næste række
'Loop 'fortsæt løkke
'Luk resultatsættet efter os
'objRs.Close
'set objRs = Nothing
'Dette er MEGET vigtigt når man arbejder med ACCESS databaser.
'Luk altid forbindelsen til den i hvert script
objConn.Close
set objConn = Nothing
%>
</div> <!-- Here ends the foldoutmenu. -->
