Web Calendar system v 3.11

<% server.scripttimeout=3000 'option explicit rem ********************************************************************************* rem Web Calendar system v 3.08, released 2003/05/26 rem Made by Robert Hudec, rhudec@aspik.cz, http://www.aspik.cz rem ********************************************************************************* if request("Dealer") >0 then session("Dealer") =request("Dealer") %> <%' NOW WE WILL BUILD HTML OUTPUT ' build middle part according to action dim strMIDDLE: strMIDDLE = "" select case ucase(request.queryString("DoAction")) case "USER" strMiddle = UserOBJECT.Users() case else strMIDDLE = CalendarOBJECT.WebCalendar() end select strMIDDLE = strMIDDLE & CalendarOBJECT.AreaShow("Area1") %> Web Calendar system v 3.11

	Developed by ASPIK SOFTWARE
CALENDAR \| SUPPORT

<%= CalendarOBJECT.CalendarSmall(-1, true, false) %> <%= CalendarOBJECT.CalendarSmall(0, true, true) %> <%= CalendarOBJECT.CalendarSmall(1, false, true) %> <%= CalendarOBJECT.DisplayDateDrop() %> <%= CalendarOBJECT.DisplayMonths() %> <%= CalendarOBJECT.DisplayYears() %>
<%= CalendarOBJECT.DisplaySearch() %>
<%= CalendarOBJECT.CatSelect() %>
<%= CalendarOBJECT.LocationSelect() %>
<% dim intUPCOMING: intUPCOMING = 5%> <%= CalendarOBJECT.ViewUpcoming(intUPCOMING) %>

<% response.write strMIDDLE ' Středová oblast %>

<%= CalendarOBJECT.Menu() %>
<%= CalendarOBJECT.AreaShow("Area2") %>