<%
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 "DOWNLOAD"
dim DownloadOBJECT
set DownloadOBJECT = New DownloadManager
strMIDDLE = DownloadOBJECT.Download
set DownloadOBJECT = Nothing
case "CALENDAR"
strMIDDLE = CalendarOBJECT.WebCalendar()
' case else
' strMIDDLE = CalendarOBJECT.WebCalendar()
end select
strMIDDLE = strMIDDLE & CalendarOBJECT.AreaShow("Area1")
%>
Web Calendar system v 3.08
There is the list of upcoming events
<% dim intUPCOMING: intUPCOMING = 10%>
<%= CalendarOBJECT.ViewUpcoming(intUPCOMING) %>