menu.asp
<![CDATA[<!--#include file="log.asp"-->
<%
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 type=text/javascript src=<%=slash%>main.js></SCRIPT>
<%Select Case LCase(ThisPage)%><%Case "gps","ribbon","tramroute"%><BASE target=_blank><%End Select%>
</HEAD>
<BODY>
<A name=top></A>
<TABLE cellpadding=5>
<TR><TD class=col2 valign=top height=500>
<IMG src=<%=slash%>graphics/h150.gif><BR>
<SCRIPT type=text/javascript>if(ok)d.write('<DIV id=menu1 style="position:absolute;left:17;top:20;width:150">')</SCRIPT>
<CENTER>
<H1 class='bl c s' style=filter:shadow(color=#888888,direction:135)>Willy's<BR>Freeware</H1>
<TABLE class='col1 ma' border cellpadding=0>
<TR><TD class='b 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","")
For X=0 To Ubound(mnu)
Select Case X
Case 6 Response.Write "<TR><TD class='b col4'> Excel 97...2007"
Case 9 Response.Write "<TR><TD class='b col4'> DOS"
Case 10 Response.Write "<TR><TD title='Only in Dutch' class='b col4'> GPS"
Case 14 Response.Write "<TR><TD class='b 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)&"><SMALL>"&Z&vbCrLf
Next
%>
</TABLE>
<P><B>
<A target=_top href=#top>Top</A>
<P>
<SCRIPT type=text/javascript>d.write("<A href=javascript:contact('info','wv-be',2)>Contact</A>")</SCRIPT>
<NOSCRIPT><IMG src=<%=slash%>graphics/contact.gif></NOSCRIPT>
<HR>
<H3 class='bl c s' style=filter:shadow(color=#888888,direction=135)>Simplicity is<BR>the characteristic<BR>of the real thing.</H3><BR>
<SCRIPT type=text/javascript>if(ok)KeepTopLeft(17,20)</SCRIPT>
<TD valign=top>
]]></plaintext></body>