Har ett problem, bygger en webbshop och vill att menyn skall se ut som följande:

Kategori
Kategori <-- Denna skall jag ha tryckt på
Underkategori
Underkategori
Kategori

Men min ser ut som detta:

Kategori
Underkategori
Kategori <-- Denna har jag tryckt på
Kategori

Min kod ser ut som nedan:

' ==========================================================================
' Öppna databasen och hämta alla kategorier.
' ==========================================================================
Set Connection = Server.CreateObject("ADODB.Connection")
SET Connection = ShopIT_GetDatabaseConn()
SQLStmt = "SELECT * FROM Kat"
SET RS = Connection.Execute(SQLStmt)

ID = Request.Querystring("KatID")
If Not ID = "" Then
' ==========================================================================
' Hämta alla underkategorier.
' ==========================================================================
SQLStmt2 = "SELECT * FROM ukat Where kategoriid = " & ID & ""
SET RS2 = Connection.Execute(SQLStmt2)
End if

%>

<table border="1" id="table1" style="border-width: 0px" width="172" cellspacing="0" cellpadding="0">
<tr>
<td style="border-style: none; border-width: medium"><b>
<font face="Verdana" size="1" color="#FFFFFF">
<% DO UNTIL RS.EOF %>
"><%= RS("Kategori") %>


<% If Not ID = "" then %>



<% DO UNTIL RS2.EOF %>
<br>&nbsp;&nbsp;" target="main"><%= RS2("ukategori") %>
<%
RS2.MoveNext
Loop
%>


<% End IF %>


<br>
<%
RS.MoveNext
Loop
%>
</td>
</tr>
</table>

</body>
</html>
<%
' ==========================================================================
' Stäng databasen och RS.
' ==========================================================================

RS.Close
Connection.Close
%>

Och problemet varandes?