<%@ Language=VBScript %> <% Option Explicit %> <% ' Copyright (C) 2007 Johann Piber - fipsASP - http://www.fipsasp.com ' Austria - 9020 Klagenfurt ' This program is free software; you can redistribute it and/or modify ' it under the terms of the GNU General Public License as published by ' the Free Software Foundation; either version 3 of the License, or (at ' your option) any later version. ' This program is distributed in the hope that it will be useful, but ' WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY ' or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for ' more details. ' You should have received a copy of the GNU General Public License along ' with this program; if not, see . %> <% ' pidRoot = Root (Main page) of the actual page ' pid = ID of the actual page ' w = what should be shown - pages (database/CMS) or other modules Dim pidRoot, pid, pageName, w pidRoot = Request.QueryString("r") pid = Request.QueryString("pid") w = Request.QueryString("w") ' if w is not given the database/CMS (= pages) will be shown if w = "" then w = "pages" end if ' if no root was transmitted the startpage will be shown if pidRoot = "" then pidRoot = "-1" end if ' if no page-ID is given the ID "0" = first page / homepage will be shown if pid = "" then pid = "0" end if %> mimescape - physical and comedy theatre - British eccentricity

Logo


<%' MAIN%>
<% If w = "pages" Then %> <% ElseIf w = "news" Then %> <% ElseIf w = "search" Then %> <% ElseIf w = "contact" Then %> <% ElseIf w = "thx" Then %> <% ElseIf w = "map" Then %> <% End If %>
<%' END MAIN%>

<%' NAV%>
   <%=HomeName%>
<% If NOT pidRoot = "-1" Then %>

<% Else %> <% End If %>


<%' END NAV%>
<% If w = "pages" Then %> () <% Else %> <% End If %>



Administration admin

Contact Us

Melvyn Altwarg

Tel 07970 765759


Brendan Stapleton

Tel 07963 617981