en liten variant:
<%
Dim Pagename, submenu
Pagename = Request.Servervariables("Script_name")
Submenu = Request.Querystring("Submenu")
%>
<% If Not Submenu = "Open" Then %>
<a href="<%= Pagename & "?Submenu=Open"%>">Huvudmeny</a><br>
<% Else %>
<a href="<%= Pagename & "?Submenu=Close"%>">Huvudmeny</a><br>
-<a href="Länk1.asp">Länk 1</a><br>
-<a href="Länk2.asp">Länk 2</a><br>
-<a href="Länk3.asp">Länk 3</a><br>
<% End If %>