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.php"" class=""menu"">Browser Compatibility</a><br>"
s = s & "        <a href=""redirect.php?URL=/index.php3"" class=""menu"">Home Page</a></br>"
s = s & "        <a href=""redirect.php?URL=/info.php"" class=""menu"">Information/Feedback</a><br>"
s = s & "        <a href=""redirect.php?URL=/privacy.php"" class=""menu"">Privacy Policy</a><br><br>"
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