menu.asp
<![CDATA[<!--#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 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|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 13 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>
]]></plaintext></body>