få en menu til at rulle frem
hejjeg har en menu jeg gerne vil havde undermenuerne til at rulle frem istedet for at springe frem er der nogen der kan hjælpe mig med det. her er koden på for hånd tak for hjælpen.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title> ..:: Menu 2 ::.. </title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
td {
font-family: verdana;
font-size: 11px;
}
.pil {
cursor: hand;
cursor: pointer;
}
a.menu {
font-size: 10px;
color: #ff0000;
text-decoration: none;
}
a.menu:visited {
color: #ff0000;
text-decoration: none;
}
a.menu:hover {
font-size: 10px;
color: #ff0000;
text-decoration: underline;
}
</style>
<script type="text/JavaScript">
/********************************************************************
Variablen 'actMen' refererer til den - til enhver tid - aktive menu.
********************************************************************/
var actMen, d=document; actMen=false;
function toggle(inx) {
var tr, img;
if (actMen) { // Vi folder den aktive menu sammen, hvis der er en
d.getElementById("txt_"+actMen).style.display = "none";
d.images["pil_"+actMen].src = "pics/arr_c.png";
}
if (actMen!=inx) { // Vi folder den nye menu ud
d.getElementById("txt_"+inx).style.display = "block";
d.images["pil_"+inx].src = "pics/arr_o.png";
actMen = inx;
}
else actMen = false; // Hvis der klikkes på den åbne (aktive) menu
}
</script>
</head>
<body>
<%
'Her oprettes forbindelsen til de forskellige recordset i db'en
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open (Server.Mappath("../db/database.mdb"))
%>
<table cellspacing="0" cellpadding="0" border="0">
<!-- MENUPUNKT START RAMPER -->
<tr class="pil" onclick="toggle(1)">
<td><img src="pics/arr_c.png" name="pil_1"></td>
<td>RAMPER</td>
</tr>
<tr id="txt_1" style="display:none;">
<td> </td>
<td>
<table cellspacing="0" cellpadding="0" border="0">
<%
set rec = server.createobject("ADODB.recordset")
sql = "SELECT* FROM db_ramper"
rec.open sql, conn, 3,3
DO WHILE NOT Rec.EOF
%>
<tr>
<td><a class="menu" href="#"><%=rec("produktnavn")%></a></td>
</tr>
<%
Rec.MoveNext
LOOP
rec.Close
Set rec =nothing
%>
</table>
</td>
</tr>
<!-- MENUPUNKT SLUT -->
<!-- MENUPUNKT START SCOOTER -->
<tr class="pil" onclick="toggle(2)">
<td><img src="pics/arr_c.png" name="pil_2"></td>
<td>SCOOTER</td>
</tr>
<tr id="txt_2" style="display:none;">
<td> </td>
<td>
<table cellspacing="0" cellpadding="0" border="0">
<%
set rec = server.createobject("ADODB.recordset")
sql = "SELECT* FROM db_scooter"
rec.open sql, conn, 3,3
DO WHILE NOT Rec.EOF
%>
<tr>
<td><a class="menu" href="#"><%=rec("produktnavn")%></a></td>
</tr>
<%
Rec.MoveNext
LOOP
rec.Close
Set rec =nothing
%>
</table>
</td>
</tr>
<!-- MENUPUNKT SLUT -->
<!-- MENUPUNKT START TRICYKLER-->
<tr class="pil" onclick="toggle(3)">
<td><img src="pics/arr_c.png" name="pil_3"></td>
<td>TRICYKLER</td>
</tr>
<tr id="txt_3" style="display:none;">
<td> </td>
<td>
<table cellspacing="0" cellpadding="0" border="0">
<%
set rec = server.createobject("ADODB.recordset")
sql = "SELECT* FROM db_tricykler"
rec.open sql, conn, 3,3
DO WHILE NOT Rec.EOF
%>
<tr>
<td><a class="menu" href="#"><%=rec("produktnavn")%></a></td>
</tr>
<%
Rec.MoveNext
LOOP
rec.Close
Set rec =nothing
%>
</table>
</td>
</tr>
<!-- MENUPUNKT SLUT -->
<!-- MENUPUNKT START TUPECLAMS-->
<tr class="pil" onclick="toggle(4)">
<td><img src="pics/arr_c.png" name="pil_4"></td>
<td>TUPECLAMS</td>
</tr>
<tr id="txt_4" style="display:none;">
<td> </td>
<td>
<table cellspacing="0" cellpadding="0" border="0">
<%
set rec = server.createobject("ADODB.recordset")
sql = "SELECT* FROM db_tubeclamps"
rec.open sql, conn, 3,3
DO WHILE NOT Rec.EOF
%>
<tr>
<td><a class="menu" href="#"><%=rec("produktnavn")%></a></td>
</tr>
<%
Rec.MoveNext
LOOP
rec.Close
Set rec =nothing
%>
</table>
</td>
</tr>
<!-- MENUPUNKT SLUT -->
</table>
</body>
</html>
