Web Calendar system v 3.04

<% dim dTime dTime = Timer ''option explicit rem ********************************************************************************* rem Web Calendar system v 3.04, released 2003/02/18 rem Made by Robert Hudec, rhudec@aspik.cz, http://www.aspik.cz rem ********************************************************************************* %> <%' 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 "CALENDAR" strMIDDLE = CalendarOBJECT.WebCalendar() case "DOWNLOAD" dim DownloadOBJECT set DownloadOBJECT = New DownloadManager strMIDDLE = DownloadOBJECT.Download ' strMIDDLE = strMIDDLE & "

to download trial version use: WC306TRIAL as application code.
You will get trial with some limitations.

" set DownloadOBJECT = Nothing case else strMIDDLE = CalendarOBJECT.WebCalendar() end select strMIDDLE = strMIDDLE & CalendarOBJECT.AreaShow("Area1") %> Web Calendar system v 3.04

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

Developed by ASPIK SOFTWARE

Home | CALENDAR DEMO | BUY | DOWNLOAD | SUPPORT

<% select case ucase(request.queryString("DoAction")) case "HOME" %><% case "BUY" %><% case else response.write strMIDDLE end select %>

<%= UserOBJECT.Menu() %>
<%= CalendarOBJECT.Menu() %>
<%= CalendarOBJECT.AreaShow("Area2") %>
<%= funcs.boxcreator("We are listed at","

",strDEFTHEME,"","100%") %>
<%= funcs.boxcreator("Important","If you have an idea of that one of our products will be useful on your site but you are not quite sure about the details of how to go about making it work the way you want it to don't wait and contact us. We will give you exact answer if your select solution is that you were looking for.

",strDEFTHEME,"","100%") %>