<%@ 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%>