Menysystem lättare

Så nu har jag gjort ett litet menysystem har ett problem plus att jag kan tänka mig att man kan göra det 100kg lättare... men jag har inte kommit på några bättre sätt...

enda problemet jag har är att hitta på något smidigt system för "undermenyn" komma ut. Nu är det QueryString som sköter det (dok funkar det ej) men skulle viljagöra på något annat smidigtsätt...

Set Connect = Server.CreateObject( "Adodb.Connection" )
	Connect.Provider = "Microsoft.Jet.OLEDB.4.0"
	MdbFilePath = Server.MapPath( "Filer/Hewra.mdb" )
	Connect.ConnectionString = "Data Source='" & MdbFilePath & "'"
	Connect.open

	SQL = "Select * from Meny order by Visa, Id "
	set rs = Connect.Execute(SQL)

If session("Admin") = "1" Then
	Admin1 = "1"
	Admin2 = "2"
	Admin3 = "3"
End If
If session("Admin") = "2" Then
	Admin1 = "Nej"
	Admin2 = "2"
	Admin3 = "3"
End If
If session("Admin") = "3" Then
	Admin2 = "Nej"
	Admin3 = "Nej"
	Admin3 = "3"
End If
Visa =

strLine = ""
	Do until rs.eof
	 If Admin3 = rs("Admin") or Admin2 = rs("Admin") or Admin1 = rs("Admin") Then
	  If Not strLine = rs("Visa") Then %>
<A id="forsta">»</A><A href="#" onClick="Meny=<% =rs("Visa") %>"><% =rs("Namn") %></A><BR><%
	    ElseIf Visa = Cint(rs("visa")) then %>
<A id="andra">&nbsp;&nbsp;&nbsp;</A><A href="<% =rs("Url") %>"><% =rs("Namn") %></A><BR><%
	  End If
	 End If
strLine = rs("Visa")
	rs.movenext
	loop

Mvh Jesper Borg