menu.asp

<!--#include file="log.wv"--> <% Dim file,ma,mnu,slash,ThisPage ThisPage=fs.GetBaseName(Request.ServerVariables("PATH_TRANSLATED")) If ThisPage="404" Then slash="/" %> <HTML> <HEAD> <META http-equiv="Content-Type" content="text/html; charset=ISO-8859-1"> <META name="description" content="Freeware written in Visual Basic for Windows and Assembler for DOS. Source code available on request."> <META name="keywords" content="Dump PopUp Windows,Htmlpad,Calculator,Agenda,Belgian Postal Codes,Links2Tray,Bookmarks,Favorites,Hotlist,Perpetual Calendar,Compaction Manager,Startup Manager,Freeware,Shareware,Software,Download,ASP,Visual Basic,GPS,track,bike,GR route,fietsroute,MTB,Office 2007,Ribbon,Excel"> <TITLE>Willly's Freeware</TITLE> <LINK rel=StyleSheet type=text/css href=<%=slash%>main.css> <SCRIPT> var d=document function KeepTop() {var m1=d.getElementById('menu1');y=d.body.scrollTop m1.style.top=(d.body.clientHeight-m1.scrollHeight>25?y:0) d.getElementById('menu2').style.top=y} function contact(een,twee,drie) {location='mailto:'+een+'@'+twee+(drie==1?'.be':'.com')} </SCRIPT> <%Select Case LCase(ThisPage)%><%Case "gps","ribbon","tramroute"%><BASE target=_blank><%End Select%> </HEAD> <BODY<%If Request.Cookies("float")="" Then%> onscroll=KeepTop()<%End If%>> <DIV style='border:1px solid olive;position:absolute;left:0;top:0;width:925px'> <TABLE cellpadding=5> <TR><TD class='c col2' valign=top style=height:550;width:155> <DIV class=col2 id=menu1 style=position:relative> <SCRIPT>d.write("<A class=logo target=_top href=<%=slash%>menukeus.asp?"+d.URL+" style=text-decoration:none>")</SCRIPT><H1 class=h2 title="Click to toggle between fixed and floating menu">Willy's<BR>Freeware</H1></A> <TABLE class=col1 border cellpadding=0> <TR><TD class=col4> Windows 95...XP <% file=Split("Agenda Post Calculator Htmlpad Links2tray Startup Sort Ribbon Kalender Cm GPS GPS2 Tramroute Knooppunten Download Sitesetup Index Home") mnu=Split("Agenda|Belgian postal codes|Calculator|Htmlpad|Links2Tray|Startup manager|Alphabetical Disorder|Customize the Ribbon|Perpetual calendar|Compaction manager|MTB tracks|Fietsroutetracks|Stoomtramroute|Fietsknooppunten|Download|How this site is setup|Index|Home","|") ma=Array(" class='col3 nw'","") 'menu anchor For X=0 To Ubound(mnu) Select Case X Case 6 Response.Write "<TR><TD class=col4> Excel 97...2007" Case 9 Response.Write "<TR><TD class=col4> DOS" Case 10 Response.Write "<TR><TD class=col4 title='Only in Dutch'> GPS" Case 14 Response.Write "<TR><TD class=col4> Other" End Select Y=StrComp(ThisPage,file(X),1) If Y Then Z="<A class=M target=_top href="&slash&file(X)&".asp"&"> "&mnu(X)&" </A>" Else Z=" "&mnu(X)&" " Response.Write "<TR><TD"&ma(Y*Y)&">"&Z&vbCrLf Next %> </TABLE> <P> <SCRIPT>d.write("<A href=javascript:contact('info','wv-be',2)>Contact</A>")</SCRIPT> <NOSCRIPT><IMG src=<%=slash%>graphics/contact.gif></NOSCRIPT> <HR> <H3 class=h>Simplicity is<BR>the characteristic<BR>of the real thing.</H3></DIV> <TD class=br valign=top>