Sub WriteCustMenu()
Dim s

s = s & "<table border=""0"" cellpadding=""0"" cellspacing=""0"""
s = s & "bgcolor=""#000000"" id=""custmenu"" name=""custmenu"""
s = s & "style=""LEFT: 350px; POSITION: absolute; TOP: 18px; VISIBILITY: hidden"">"
s = s & "    <tr>"
s = s & "        <td><font size=""1"" face=""Verdana"" color=""#FFFFFF"">"
s = s & "        <a href=""redirect.php?URL=/browsers.htm"" class=""menu"">Browser Compatibility</a><br>"
s = s & "        <a href=""redirect.php?URL=/default.htm"" class=""menu"">Home Page</a></br>"
s = s & "        <a href=""redirect.php?URL=/info.htm"" class=""menu"">Information/Feedback</a><br>"
s = s & "        <a href=""redirect.php?URL=/privacy.htm"" class=""menu"">Privacy Policy</a><br>"
s = s & "        <a href=""redirect.php?URL=/recommend.htm"" class=""menu"">Recommend to a Friend</a><p>"
s = s & "        <b><span onmouseover=""custmenu.style.visibility = 'hidden'"">Hover here to hide this menu</span></b></font></td>"
s = s & "    </tr>"
s = s & "</table>"

document.write s

End Sub