menu.asp

<!--#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>