<!-- #include file="includes/connect.inc.asp" -->
<!-- #include file="includes/template.inc.asp" -->
<!-- #include file="includes/event.const.inc.asp" -->
<!-- #include file="includes/formatdate.inc.asp" -->
<!-- #include file="includes/formattime.inc.asp" -->
<!-- #include file="includes/event.inc.asp" -->
<!-- #include file="includes/member.inc.asp" -->

<%
status = Request.QueryString("status")
inEvent = Replace(Server.URLEncode(Request.QueryString("event")), "'", "")


Sub processTemplate()
	Set clsMain = New Template
	
	With clsMain
		.templateFile = "template/main.template.asp"
		
		.AddToken "onLoad", 5, ""
		.AddToken "title.image", 5, getTitleImage(inEvent)

		.AddToken "member.panel", 5, getMemberPanel(getErrorMessage(status))
		.AddToken "main.panel", 5, getEventLegend() & showEvent("", inEvent)
		
		.parseTemplateFile
	End With
	
	Set clsMain = Nothing
End Sub

Function getTitleImage(inEvent)
	Select Case inEvent
		Case ""
			getTitleImage = "all_event.gif"
		Case "Public"
			getTitleImage = "public_event.gif"
		CAse "Tertiary"
			getTitleImage = "jc_event.gif"
		Case "Primary%2CSecondary"
			getTitleImage = "pri_event.gif"
		Case "Professional"
			getTitleImage = "professional_event.gif"
		Case Else
			getTitleImage = "all_event.gif"
	End Select
end Function

Function getErrorMessage(inStatus)
	Select Case status
		Case 1
			getErrorMessage = "Login failed, please try again"
		Case 2
			getErrorMessage = "Session timeout, please login again"
		Case 3
			getErrorMessage = "Logout successfully"
		Case Else
			getErrorMessage = ""
	End Select
End Function

Sub main()
	Call processTemplate
End Sub


Call main()
%>

<!-- #include file="includes/disconnect.inc.asp" -->