un forero dijo por ahi...
Cita: como dijo Jack el destripador, vamos por partes...
<html>
<head>
<title>Tu Site :::: Adex ::::</title>
<style>
<!--
a.nav:link { font-family: Verdana,Arial,San Serif; font-size: 10px; text-decoration: none }
a.nav:visited { font-family: Verdana,Arial,San Serif; font-size: 10px; text-decoration: none }
a.nav:active { font-family: Verdana,Arial,San Serif; font-size: 10px; text-decoration: none }
a.nav:hover { font-family: Verdana,Arial,San Serif; font-size: 10px; text-decoration: none; color: #FF0000 }
.HEADING { cursor: hand; font-family: Verdana,Arial,San Serif; font-size: 12px; color: #FFFFFF;
background-color: #0000FF; font-weight: none;
border: 1 solid #000000 }
.LINKSOFF { display: none; font-family: Verdana,Arial,San Serif; font-size: 12px; color: #000080 }
.LINKSON { display: inline; font-family: Verdana,Arial,San Serif; font-size: 12px; color: #000080 }
-->
</style>
</head>
<Script Language="VBscript">
// Copyright 2001 Stephen Hayes [por favor no borrar esto -Adex-]
<!--
Option Explicit
DIM menuID,menuObj,cellBk
SUB ShowHide(menuID)
menuObj = "Link" & menuID
cellbk = "Head" & menuID
// CHECK IF OPEN
if document.all.item(menuObj).className = "LINKSON" then 'IF MENU OPEN THEN CLOSE
document.all.item(menuObj).className = "LINKSOFF"
document.all.item(cellBk).style.backgroundColor = "#0000FF" ' SET CELL BACKGROUND COLOUR BLUE
ELSE
document.all.item(menuObj).className = "LINKSON" ' OPEN MENU
document.all.item(cellBk).style.backgroundColor = "#C00000" ' SET CELL BACKGROUND COLOUR RED
END IF
END SUB
-->
</Script>
[.... sigue ....]