<%
'#################################################################################
'## Copyright (C) 2000  Michael Anderson
'## 
'## 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 2
'## of the License, or any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to 
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'## 
'## 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, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
'## 
'## Support can be obtained from support forums at:
'## http://forum.snitz.com 
'##
'## Correspondence and Marketing Questions can be sent to:
'## reinhold@bigfoot.com
'## 
'## or
'## 
'## Snitz Communications 
'## C/O: Michael Anderson
'## PO Box 200
'## Harpswell, ME 04079
'#################################################################################
app = "template"
apptitle = "Das ist der Titel"
strShow = "strShow" & app
strSize = "strSize" & app
window = app & "Window"


strSize = (request.querystring(app))
if strSize <> "" then
'####  Set Cookies For Menu Window
Response.Cookies(strUniqueID)(window)=(strSize)
'####  End of Set Cookies For Window
end if

if (Request.Cookies(strUniqueID)(Window)= "1") then '### Check Cookie For Minimize Status
' here is the code for the closed window display
%>
  <TABLE  BORDER=0 bgcolor="<% =strTableBorderColor %>" cellspacing="1" cellpadding="2" width="100%">
  <tr>
    <td bgcolor="<% =strHeadCellColor %>">
    <table>
    <tr>
      <td width="99%">
      <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>" size="+1">
    <b><%= apptitle %></b>
    </font>
      </td>
      <td align="left"><a href="test.asp?<%= app %>=0"><img src="<%=strImageURL %>icon_on.gif" border="0"></a>
      </td>
    </tr>
    </table>
    </td>
    </tr>
    <tr>
    <td align="left" bgcolor="<%= strForumCellColor %>">
    Here is the code of the closed Window</td>
  </tr> 
  </table>
<% else 
' and here comes the code of the open window.
%>

  <TABLE  BORDER=0 bgcolor="<% =strTableBorderColor %>" cellspacing="1" cellpadding="2" width="100%">
  <tr>
    <td bgcolor="<% =strHeadCellColor %>">
    <table>
    <tr>
      <td width="99%">
      <font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>" size="+1">
    <b><%= apptitle %></b>
    </font>
      </td>
      <td align="left"><a href="test.asp?<%= app %>=1"><img src="<%=strImageURL %>icon_off.gif" border="0"></a>
      </td>
    </tr>
    </table>
    
    </td>
  </tr>
  <tr>
    <td align="left" bgcolor="<%= strForumCellColor %>">
    Here is the code of the open Window</td>
  </tr> 
</table>
<% end if %>
