-= www.tillstrom.net =-

<%@ LANGUAGE="VBSCRIPT" %> <% Option Explicit Dim pageID, subID, pagePath, doEvent, temp 'Local variables for images.inc Dim strPath,pic,comPath,comTempPath 'Local variable for images_pwd.inc Dim truePwd,strPwd truePwd = "helfre" 'Local variables for humor.inc Dim i Dim numberOfQuotes %> -= www.tillstrom.net =- <% call GetQueryStrings %> <%myCount()%>

<% Select Case pageID Case 1%> <%Case 2 Select Case subID Case 1%> <%Case 2%> <%Case Else%> <%End select%> <%Case 3%> <%Case 4%> <%Case 5%> <%Select Case subID Case 1 %> <%Case 2 %> <%Case 3 %> <%Case 4 %> <%Case Else%> <%End select%> <%Case 6%> <%Case Else%> <%End Select %>

<%Case 2 'Sub menu for images.inc and images_pwd.inc %>

<%Select Case pageID%> <%Case 1 'Sub menu for images.inc and images_pwd.inc %>

<%If checkSessionOk() Then%> <%End if%>

<%Case 3 'Sub menu for humor.inc %>

<%If doEvent="all" Then%> <%End if%>

<%Case 4 'Sub menu for links.inc %>

<%Case 5 'Sub menu for klassikern.inc %> <%If subID=1 OR subID=2 OR subID=3 OR subID=4 Then%>

<%Else%>

<%End if%> <%Case 6 'Sub menu for apache.inc %>

<%Case else%>

<%End Select%>