Dölja och visa länk

Hej!

Jag lopar in en meny från en databas med ASP, sedan visas undermenyerna eller inte med hjälp av JavaScript och jag skulle vilja utveckal den lite.

JavaScriptet som visar eller döljer undermenyerna

<script LANGUAGE="javascript">
<!--

var gEBI = (document.getElementById) ? true : false;
var da = (document.all) ? true : false;
var lay = (document.layers) ? true : false;

function Menu(ID)
 {
 	var ktgID = "ktg_" + ID;
 	var imgID = "img_" + ID;
 	
 	if (gEBI)
 	{
 		ktgID = document.getElementById(ktgID);
 		imgID = document.getElementById(imgID);
 		//alert("gEBI");
 	}
 	else
 	{
 		if (da)
 		{
 			ktgID = document.all(ktgID);
 			imgID = document.all(imgID);
 			//alert("da");
 		}
 		else
 		{
 			if (lay)
 			{
 				//alert("lay");
 				//KtgID = document.layers(ktgID);
 				//imgID = document.layers(imgID);
 			}
 			else
 			{
 				alert("Sorry, your browser does not support this page!");
 			}
 		}
 	}
 	if (gEBI || da)
 	{
		if (ktgID.style.display == "none")
 		{
 			ktgID.style.display = "block";
 			imgID.src = "../images/minus.gif";
 		}
 		else
 		{
 			ktgID.style.display = "none";
 			imgID.src = "../images/plus.gif";
 		} 	
 	}
 	else
 	{
 		if (document.layers["ktg_"+ID].visibility == "hide")
 		{
 			document.layers["ktg_"+ID].visibility = "show";
 		//	imgID.src = "../images/minus.gif";
 		}
 		else
 		{
 			document.layers["ktg_"+ID].visibility = "hide";
 		//	imgID.src = "../images/plus.gif"
 		}
 	}

 }

var agt=navigator.userAgent.toLowerCase();
var is_major = parseInt(navigator.appVersion);
var is_nav  = ((agt.indexOf('mozilla')!=-1) && (agt.indexOf('spoofer')==-1)
                && (agt.indexOf('compatible') == -1) && (agt.indexOf('opera')==-1)
                && (agt.indexOf('webtv')==-1) && (agt.indexOf('hotjava')==-1));
var is_nav6up = (is_nav && (is_major >= 5));
var is_ie     = ((agt.indexOf("msie") != -1) && (agt.indexOf("opera") == -1));
var is_ie4up  = (is_ie && (is_major >= 4));
if (!(is_nav6up || is_ie4up))
{
	document.location.href = "categories.asp";
}
 //-->
</script>

Sedan ASP som lopar in menyn

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db_varor.mdb")
set rs1=conn.execute("SELECT DISTINCT maingroup_svenska FROM [varor] ORDER BY maingroup_svenska")

counter=100

%> <% Do until rs1.Eof%> <IMG ID='img_<%=counter%>' SRC='../images/plus.gif' border='0' onClick='javascript: Menu(<%=counter%>);' width="12" height="12"> 
<a href=[red]'123456.asp?sida=<%=rs1("maingroup_svenska") %>'[/red] target="main" class='Menu' onClick='javascript: Menu(<%=counter%>);'><B><%=rs1("maingroup_svenska")%></B></a><br>

<span id='ktg_<%=counter%>' style='display:none;'>

<% set rs2=conn.execute("SELECT DISTINCT secondgroup_svenska FROM products where maingroup_svenska = '" & rs1("maingroup_svenska") & "' ORDER BY secondgroup_svenska")%>

<% Do until rs2.Eof%>

&nbsp;&nbsp;&nbsp;<IMG SRC="../images/dots.gif" border="0" WIDTH="7" HEIGHT="9">
<a href="item_list.asp?maingroup_svenska=<%=rs1("maingroup_svenska")%>&secondgroup_svenska=<%=rs2("secondgroup_svenska")%>&sort=item_svenska" target="main"><%=rs2("secondgroup_svenska")%></a><br>

<%  counter=counter+1 %>

<% rs2.Movenext
Loop
Rs2.Close %>

</span>

<% rs1.Movenext
Loop
Rs1.Close %>

<% conn.close %>

Nu skulle jag vilja att länken '123456.asp?sida=<%=rs1("maingroup_svenska") %>' ändrades till '#' när den dens undermeny visas dvs om man fäller upp menyn så skall inte denna sidan komma fram utan bara när man fäller ner.

Tack på förhand