<%@ LANGUAGE = VBScript %> <% ' HEADER ********************************************************************** %> <% ' DESCRIPTION ***************************************************************** ' Name: index.html ' Author: Bob Doyle and Derek Doyle ' Copyright (c) 1999, 2000 skyBuilders.com. All rights reserved. ' ' This is the opening page of the skyBuilders.com, Inc. website. ' It allows you to view the site chronologically, i.e., calendar-driven. ' this dynamic page may be skipped by web search engines, so we may need an outer page. ' END DESCRIPTION ************************************************************* ' SERVER DECLARATIONS ********************************************************* Dim memberID, firstName, lastName, ScheduleString, LocaleID, versionNumber, balloonsOn, QueryString, TimeZone, YearString Dim Debug, NameCheckDebug, BuilderHeight, BorderWidth, ScrollOn Dim whichItemGroupID, whichPlaceGroupID, whichPlaceID, whichTeamGroupID, whichTeamID, whichCalendarGroupID, whichCalendarID, numPlace, numPlaceGroup, numItemGroup Dim HiLiteColor, ScheduleColor, LogoColor, AdminColor, WelcomeColor, PagesColor, EventsColor, ResourcesColor, UsersColor, CalendarsColor, ShopColor, AccountsColor, TasksColor, TimeLinesColor, AdminDarkColor, WelcomeDarkColor, PagesDarkColor, EventsDarkColor, ResourcesDarkColor, UsersDarkColor, CalendarsDarkColor, AccountsDarkColor, ShopDarkColor, TasksDarkColor, TimeLinesDarkColor, PagesOn, EventsOn, ResourcesOn, UsersOn, CalendarsOn, AccountsOn, ShopOn, TasksOn, TimeLinesOn, whichModuleID, whichGroupID, whichItemID, whichScopeID, whichModule, whichSetID, scopeID, numIntervals, MainTitle, LanguageCustom Dim numPlaceGroups, PlaceGroupName(30), PlaceGroupID(30), numPlaces, PlaceName(30), PlaceID(30), numItemGroups, ItemGroupName(30), ItemGroupID(30) Dim PagesPriv, EventsPriv, ResourcesPriv, UsersPriv, AccountsPriv, CalendarsPriv, TasksPriv Dim Server_Name, OrgName, serverZone, browserZone, UTCHour, majorVersion, HelpLanguage Dim SQLQuery, SELECTGlobals, SELECTMembers, SELECTStrings, SELECTStrings2, SELECTMemoStrings, SELECTLog, INSERTLog, SELECTHelp, SELECTPlaceGroups, SELECTPlaces, SELECTItemGroups Dim skyLink Dim HelpString ' END SERVER DECLARATIONS ***************************************************** ' SERVER SUBROUTINES ********************************************************** ' END SERVER SUBROUTINES ****************************************************** ' REQUEST ********************************************************************* whichContents = Request.QueryString("whichContents") ScheduleString = Request.QueryString("ScheduleString") Server_Name = Request.ServerVariables("SERVER_NAME") ' END REQUEST ***************************************************************** ' SQL QUERIES ***************************************************************** SQLQuery = "SELECT * FROM ODBM_Globals;" Set SELECTGlobals = oDBConnection.Execute(SQLQuery) Debug = SELECTGlobals("debug") OrgName = SELECTGlobals("OrgName") HiLiteColor = SELECTGlobals("HiLiteColor") ScheduleColor = SELECTGlobals("ScheduleColor") LogoColor = SELECTGlobals("LogoColor") AdminColor = SELECTGlobals("AdminColor") WelcomeColor = SELECTGlobals("WelcomeColor") PagesColor = SELECTGlobals("PagesColor") EventsColor = SELECTGlobals("EventsColor") ResourcesColor = SELECTGlobals("ResourcesColor") UsersColor = SELECTGlobals("UsersColor") AccountsColor = SELECTGlobals("AccountsColor") ShopColor = SELECTGlobals("ShopColor") CalendarsColor = SELECTGlobals("CalendarsColor") TasksColor = SELECTGlobals("TasksColor") TimeLinesColor = SELECTGlobals("TimeLinesColor") AdminDarkColor = SELECTGlobals("AdminDarkColor") WelcomeDarkColor = SELECTGlobals("WelcomeDarkColor") PagesDarkColor = SELECTGlobals("PagesDarkColor") EventsDarkColor = SELECTGlobals("EventsDarkColor") ResourcesDarkColor = SELECTGlobals("ResourcesDarkColor") UsersDarkColor = SELECTGlobals("UsersDarkColor") AccountsDarkColor = SELECTGlobals("AccountsDarkColor") ShopDarkColor = SELECTGlobals("ShopDarkColor") CalendarsDarkColor = SELECTGlobals("CalendarsDarkColor") TasksDarkColor = SELECTGlobals("TasksDarkColor") TimeLinesDarkColor = SELECTGlobals("TimeLinesDarkColor") LocaleID = SELECTGlobals("LocaleID") MainTitle = getStringsText("MainTitle") ' END SQL QUERIES *********************************************************** If (whichContents = "") Then whichContents = "Welcome.html" End If ' Response.Write("
ScheduleString = " & ScheduleString) If (ScheduleString = "") Then ScheduleString = Now() End If ' Response.Write("
ScheduleString = " & ScheduleString) YearString = Right(ScheduleString, Len(ScheduleString) - InStrRev(ScheduleString, "/")) ' Like 2000 6:55:31 PM or 00 6:55:31 PM ' Response.Write("
" & YearString) If InStr(YearString, " ") = 3 Then YearString = "20" & YearString ' Response.Write("
" & YearString) ScheduleString = Left(ScheduleString, InStrRev(ScheduleString, "/")) & YearString ' Response.Write("
" & ScheduleString) End If QueryString = "LocaleID=" & LocaleID & "&ScheduleString=" & Server.URLEncode(ScheduleString) & "" 'Response.Write("
QueryString = " & QueryString) ' BorderWidth = 2 ' BuilderHeight = 30 BorderWidth = 0 BuilderHeight = 0 ScrollOn = "no" ' RESPONSE ******************************************************************** %> skyBuilders.com - Open-source calendar-driven database-backed web application software for Web Publishing, Events Scheduling, Resource Management, Calendars, Project Management, Accounting, and e-commerce <% 'Recover memory ' END CLIENT LOGIC ************************************************************ ' END RESPONSE **************************************************************** ' END SERVER LOGIC ************************************************************ ' SERVER CLEANUP ************************************************************** ' END SERVER CLEANUP ********************************************************** %>