Hjälp med menysystem!

Hej!

Jag har suttit och gjort ett menysystem nu, jag har fått det att fungera nästan precis som jag vill ha det.

Det är bara att när man har "öppnat" en länk och alla underlänkar syns så skall man kunna trycka på den länken igen och bara de "STORA" länkarna syns, altså inga underlänkar.

Detta länk system är byggt för att klara av även om det kommer andra query_strings. Tex om man har ett forum som skickar med lite saker i URL:en så funkar det endå

Men så här ser koden ut iaf:

<% IF Request.Querystring("link") = "telefoner" THEN %> 
<%
fakta = REPLACE(Request.Servervariables("QUERY_STRING"),"link=telefoner","link=fakta")
telefoner = REPLACE(Request.Servervariables("QUERY_STRING"),"link=telefoner","link=telefoner")
tjanster = REPLACE(Request.Servervariables("QUERY_STRING"),"link=telefoner","link=tjanster")
ovrigt = REPLACE(Request.Servervariables("QUERY_STRING"),"link=telefoner","link=ovrigt")
 %>

<%ELSE%>

<% IF Request.Querystring("link") = "tjanster" THEN %> 
<%
fakta = REPLACE(Request.Servervariables("QUERY_STRING"),"link=tjanster","link=fakta")
telefoner = REPLACE(Request.Servervariables("QUERY_STRING"),"link=tjanster","link=telefoner")
tjanster = REPLACE(Request.Servervariables("QUERY_STRING"),"link=tjanster","link=tjanster")
ovrigt = REPLACE(Request.Servervariables("QUERY_STRING"),"link=tjanster","link=ovrigt")
 %>

<%ELSE%>

<% IF Request.Querystring("link") = "ovrigt" THEN %> 
<%
fakta = REPLACE(Request.Servervariables("QUERY_STRING"),"link=ovrigt","link=fakta")
telefoner = REPLACE(Request.Servervariables("QUERY_STRING"),"link=ovrigt","link=telefoner")
tjanster = REPLACE(Request.Servervariables("QUERY_STRING"),"link=ovrigt","link=tjanster")
ovrigt = REPLACE(Request.Servervariables("QUERY_STRING"),"link=ovrigt","link=ovrigt")
 %>

<%ELSE%>

<%
fakta = "link=fakta&" & Request.Servervariables("QUERY_STRING")
telefoner = "link=telefoner&" & Request.Servervariables("QUERY_STRING")
tjanster = "link=tjanster&" & Request.Servervariables("QUERY_STRING")
ovrigt = "link=ovrigt&" & Request.Servervariables("QUERY_STRING")
%>

<%END IF%>
<%END IF%>
<%END IF%>
<%END IF%>

<% IF Request.Querystring("link") = "fakta" THEN %> 
<A HREF="<%=request.servervariables("URL")%>?<%=request.servervariables("QUERY_STRING")%>"><B>Fakta</B></A><BR>
<% ELSE %>
<% IF Request.Servervariables("QUERY_STRING") = "" THEN %> 
<A HREF="<%=request.servervariables("URL")%>?link=fakta"><B>Fakta</B></A><BR>
<% ELSE %>
<A HREF="<%=request.servervariables("URL")%>?<%=fakta%>"><B>Fakta</B></A><BR>
<% END IF %>
<% END IF %>

<% IF Request.Querystring("link") = "fakta" THEN %>
  - <A HREF="http://www.blabla.com/news/index.asp" target="_top">Nyheter</A><BR>
  - <A HREF="link2.asp" target="_top">Bildarkivet</A><BR>
  - <A HREF="link3.asp" target="_top">Operatörer</A><BR>
  - <A HREF="link3.asp" target="_top">Priser</A><BR>
  - <A HREF="http://www.blabla.com/stralning.asp" target="_top">Strålning</A><BR>
  - <A HREF="http://www.blabla.com/wap_guide.asp" target="_top">WAP</A><BR>
<% END IF %>

<% IF Request.Querystring("link") = "telefoner" THEN %> 
<A HREF="<%=request.servervariables("URL")%>?<%=request.servervariables("QUERY_STRING")%>"><B>Telefoner</B></A><BR>
<% ELSE %>
<% IF Request.Servervariables("QUERY_STRING") = "" THEN %> 
<A HREF="<%=request.servervariables("URL")%>?link=telefoner"><B>Telefoner</B></A><BR>
<% ELSE %>
<A HREF="<%=request.servervariables("URL")%>?<%=telefoner%>"><B>Telefoner</B></A><BR>
<% END IF %>
<% END IF %>

<% IF Request.Querystring("link") = "telefoner" THEN %>
  - <A HREF="link.asp" target="_top">Hetast just nu</A><BR>
  - <A HREF="link2.asp" target="_top">Nostalgi tripp</A><BR>
  - <A HREF="http://www.blabla.com/telefoner/phone.asp" target="_top">Telefonarkivet</A><BR>
<% END IF %>

<% IF Request.Querystring("link") = "tjanster" THEN %> 
<A HREF="<%=request.servervariables("URL")%>?<%=request.servervariables("QUERY_STRING")%>"><B>Tjänster</B></A><BR>
<% ELSE %>
<% IF Request.Servervariables("QUERY_STRING") = "" THEN %> 
<A HREF="<%=request.servervariables("URL")%>?link=tjanster"><B>Tjänster</B></A><BR>
<% ELSE %>
<A HREF="<%=request.servervariables("URL")%>?<%=tjanster%>"><B>Tjänster</B></A><BR>
<% END IF %>
<% END IF %>

<% IF Request.Querystring("link") = "tjanster" THEN %>
  - <A HREF="http://www.blabla.com/forum/index.asp" target="_top">Forum</A><BR>
  - <A HREF="http://www.blabla.com/logos/default.asp" target="_top">Logos</A><BR>
  - <A HREF="http://www.blabla.com/tones/default.asp" target="_top">Ringsignaler</A><BR>
  - <A HREF="link2.asp" target="_top">Rita egen logo</A><BR>
  - <A HREF="link3.asp" target="_top">Skicka SMS</A><BR>
<% END IF %>

<% IF Request.Querystring("link") = "ovrigt" THEN %> 
<A HREF="<%=request.servervariables("URL")%>?<%=request.servervariables("QUERY_STRING")%>"><B>Övrigt</B></A><BR>
<% ELSE %>
<% IF Request.Servervariables("QUERY_STRING") = "" THEN %> 
<A HREF="<%=request.servervariables("URL")%>?link=ovrigt"><B>Övrigt</B></A><BR>
<% ELSE %>
<A HREF="<%=request.servervariables("URL")%>?<%=ovrigt%>"><B>Övrigt</B></A><BR>
<% END IF %>
<% END IF %>

<% IF Request.Querystring("link") = "ovrigt" THEN %>
  - <A HREF="http://www.blabla.com/faq.asp" target="_top">F.A.Q.</A><BR>
  - <A HREF="http://www.blabla.com/kontakta/default.asp" target="_top">Kontakta oss</A><BR>
  - <A HREF="link2.asp" target="_top">Copyright info</A><BR>
<% END IF %>

Om ni har några tips till mig för att få koden lite bättre får ni gärna skriva!

Även tacksam för lösningar på hur man kan få menyn att "stänga" sig.

Att koden är så lång beror på att den skall klara alla variabler som jag sa tidigare. Vet du om att du inte skall ha några variabler i URL:en förutom i meny systemet så går det att göra mycket enklare.

Tack!