<%
'	************************************************************************
'	* ASP-Nuke: Free web portal in ASP                                     *
'	************************************************************************
'	* Copyright (c) 2002 by Gaetan Bouveret                                *
'	* http://www.asp-nuke.com                                              *
'	*                                                                      *
'	* 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    *
'	* (at your option) any later version.                                  *
'	*                                                                      *
'	************************************************************************

'	************************************************************************
'	* ASP-Nuke: Free web portal in ASP                                     *
'	************************************************************************
'	* Copyright (c) 2003 by Rolf Thomassen, calender & Events              *
'	* http://www.rot.dk                                                    *
'	*                                                                      *
'	* 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    *
'	* (at your option) any later version.                                  *
'	*                                                                      *
'	************************************************************************
%>
<!-- #include file='includes/includes-inc.asp' -->
<!-- #include file='includes/events-inc.asp' -->
<!-- #include file='includes/comments-inc.asp' -->
<!-- #include file='includes/edition-inc.asp' -->
<% 
	sTitlePage = GetTranslation("LANG_TITLE_EVENTS")
	DoCalender()
	DoComments()
%>
<!-- #include file='includes/toppage-inc.asp' -->
<%
	'If IsAuthorized(ROLE_USER) Then
		DisplayCalenderPage()
		DisplayCommentsPage()
	'else
	'	CreateTable "Role", "", GetTranslation("LANG_MUST_HAVE_ROLE"), ""
	'end if
%><!-- #include file='includes/bottompage-inc.asp' --><!-- #include file='includes/clearitall-inc.asp' -->