<% ' ################################# public function CAL_ADMIN() dim sH select case request.querystring("CHANGE") case "ADMINEXE" call CAL_Admin_EXE() response.redirect request.servervariables("HTTP_REFERER") case else sH = CAL_Admin_FORM() end select CAL_ADMIN = funcs.BOXCreator(application(session("LANG") & "_wcal92b") , sH, strDEFTHEME, "", "90%") end function ' ################################# public function CAL_ADMIN_FORM() dim sH dim ADMSET strSQL = "SELECT * from wcal_tblDEFAULTS where CalendarClient=" & session("Client") & "" set ADMSET = Server.CreateObject("ADODB.Recordset") ADMSET.CursorLocation = 3 ADMSET.Open strSql, my_conn ADMSET.CacheSize = 100 if NOT (ADMSET.BOF OR ADMSET.EOF) then sH = sH & "
" & VbCrLf sH = sH & "
" & VbCrLf sH = sH & "
" & VbCrLf ' CALENDAR 1 sH = sH & "
" & VbCrLf sH = sH & "

CALENDAR

" & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf ' sH = sH & "" & VbCrLf ' sH = sH & " " & VbCrLf ' sH = sH & " " & VbCrLf ' sH = sH & "" & VbCrLf sH = sH & "
Name
Name of calendar (useful in multiple calendar systems)
 
GLOBAL Categories YES" & VbCrLf sH = sH & " NO
If YES is selected then categories from all single calendars in multiple version will be used
 
Start view
Prefered start view.
 
Excel link YES" & VbCrLf sH = sH & " NO
This will enable excel export
 
Print link YES" & VbCrLf sH = sH & " NO
This will enable print preview page.
 
Delete old events after
Specifies days when old event is deleted from the database (if event is repeated then last occurence of this event is checked).
 
Target
" & VbCrLf sH = sH & "
" ' date/time sH = sH & "
" & VbCrLf sH = sH & "

DATE/TIME

" & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "
Time format 12 hours" & VbCrLf sH = sH & " 24 hours
Prefered time format.
 
Start time
Default start time for new events.
 
End time
Default end time for new events
 
Time step
Time step for time drop down. (Range 15-60) in minutes
 
Date format DD/MM/YYYY" & VbCrLf sH = sH & " MM/DD/YYYY
Date format (This can overwrite LCID defaults).
 
Date delimiter
Date delimiter (This can overwrite LCID defaults)
 
" & VbCrLf sH = sH & "
" ' BEHAVIOUR sH = sH & "
" & VbCrLf sH = sH & "

BEHAVIOUR

" & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf ' sH = sH & "" & VbCrLf ' sH = sH & " " & VbCrLf ' sH = sH & " " & VbCrLf ' sH = sH & "" & VbCrLf sH = sH & "
Cut month names YES" & VbCrLf sH = sH & " NO
If YES is chencked then names of month in small calendar, month links and year view will be cuted to specified width.
 
Lenght of month names
Width of month names if cutting.
 
First week date
Please specify your first day of week.
 
First week of year
When first week of year starts in your location?
 
Distinct list in upcoming block YES" & VbCrLf sH = sH & " NO
If YES is checked then list of upcoming events will show only first closest occurence of repeating events.
 
Maximum events posted in one step
If maximum of repeating is exceeded than event is not added.
 
Check for colisions YES" & VbCrLf sH = sH & " NO
Default option for adding/editing of new events.
 
Allow excludes in colissions YES" & VbCrLf sH = sH & " NO
Default option for adding/editing of new events.
 
Calendar Check emails validity YES" & VbCrLf ' sH = sH & " NO
Default option for adding/editing of new events.
 
" & VbCrLf sH = sH & "
" ' VIEWS sH = sH & "
" & VbCrLf sH = sH & "

VIEWS

" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf ' sH = sH & " " & VbCrLf ' sH = sH & " " & VbCrLf ' sH = sH & " " & VbCrLf ' sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "
Allow year view YES" & VbCrLf sH = sH & " NO
If YES is checked then year view is enabled.
 
Allow month view YES" & VbCrLf ' sH = sH & " NO
If YES is checked then month view is enabled.
 
Allow month graphical view YES" & VbCrLf sH = sH & " NO
If YES is checked then graphical month view is enabled.
 
Allow week view YES" & VbCrLf sH = sH & " NO
If YES is checked then week view is enabled.
 
Allow week view (place order) YES" & VbCrLf sH = sH & " NO
If YES is checked then week view grouped by place is enabled.
 
Allow day view YES (listed)" & VbCrLf sH = sH & " YES (time line)" & VbCrLf sH = sH & " NO
If YES is checked then day view is enabled.
 
Allow from today view YES" & VbCrLf sH = sH & " NO
If YES is checked then from today view is enabled.
 
To show holidays in upcoming YES" & VbCrLf sH = sH & " NO
If YES is checked then holidays will be showen in upcoming list of events.
 
" & VbCrLf sH = sH & "
" ' EMAIL ' ********************************************************* sH = sH & "
" & VbCrLf sH = sH & "

EMAIL

" & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "
Calendar email
Please specify outgoing email address of calendar.
 
SMTP server
(not required for CDONTS)
Enter name of your SMTP server.
 
HTML FORMAT YES" & VbCrLf sH = sH & " NO
If YES is checked then outgoing emails will be HTML formated.
 
Server email Program
Choose one email program that you know that is installed in your server.
 
" & VbCrLf sH = sH & "
" ' USERS setting sH = sH & "
" & VbCrLf sH = sH & "

USER

" & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "" & VbCrLf sH = sH & "
Allow new users to register YES" & VbCrLf sH = sH & " NO
To allow users to be registered themselves check YES. If you want to add them manualy check NO.
 
Default starting permission ADMIN" & VbCrLf sH = sH & " USER " & VbCrLf sH = sH & " GUEST
If you allowed users to be registered themselves then you should give them starting permission.
 " & VbCrLf sH = sH & "
Rows in the list
This value specifies amount of rows in the list of users.
 
Allow subscribers YES" & VbCrLf sH = sH & " NO
If you want to allow visitors to subscribe for new event announcement then check YES.
 
Company YES" & VbCrLf sH = sH & " NO
If YES is checked then filling of field COMPANY in registration will be required.
 
Name YES" & VbCrLf sH = sH & " NO
If YES is checked then filling of field NAME in registration will be required.
 
Surname YES" & VbCrLf sH = sH & " NO
If YES is checked then filling of field SURNAME in registration will be required.
 
E-Mail YES" & VbCrLf sH = sH & " NO
If YES is checked then filling of field E-MAIL in registration will be required.
 
Phone YES" & VbCrLf sH = sH & " NO
If YES is checked then filling of field PHONE in registration will be required.
 
Street YES" & VbCrLf sH = sH & " NO
If YES is checked then filling of field STREET in registration will be required.
 
City YES" & VbCrLf sH = sH & " NO
If YES is checked then filling of field CITY in registration will be required.
 
POSTAL NO./ZIP YES" & VbCrLf sH = sH & " NO
If YES is checked then filling of field POSTAL NO./ZIP in registration will be required.
 
STATE/COUNTRY YES" & VbCrLf sH = sH & " NO
If YES is checked then filling of field STATE/COUNTRY in registration will be required.
 
" & VbCrLf sH = sH & "
" ' CUSTOM sH = sH & "
" & VbCrLf sH = sH & "

CUSTOM

" & VbCrLf sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " & VbCrLf sH = sH & "
Cust field 1" & VbCrLf sH = sH & "
Cust field 2" & VbCrLf sH = sH & "
Cust field 3" & VbCrLf sH = sH & "
Cust field 4" & VbCrLf sH = sH & "
Cust field 5" & VbCrLf sH = sH & "
" & VbCrLf sH = sH & "
" sH = sH & "" & VbCrLf sH = sH & " " & VbCrLf sH = sH & " " sH = sH & "" & VbCrLf sH = sH & "
" & VbCrLf sH = sH & " " sH = sH & "
" & VbCrLf sH = sH & "
" & VbCrLf sH = sH & "" & VbCrLf sH = sH & "" & VbCrLf End If ADMSET.Close set ADMSET = nothing CAL_ADMIN_FORM = sH end function ' ################################# public function CAL_Admin_EXE() strSQL = "UPDATE wcal_tblDEFAULTS SET " &_ "CalendarName= '" & request.form("CalendarName") & "', " &_ "blView1 = " & request.form("blView1") & ", " &_ "blView3 = " & request.form("blView3") & ", " &_ "blView4 = " & request.form("blView4") & ", " &_ "blView5 = " & request.form("blView5") & ", " &_ "blView6 = " & request.form("blView6") & ", " &_ "blView7 = " & request.form("blView7") & ", " &_ "blCust1 = '" & request.form("blCust1") & "', " &_ "blCust2 = '" & request.form("blCust2") & "', " &_ "blCust3 = '" & request.form("blCust3") & "', " &_ "blCust4 = '" & request.form("blCust4") & "', " &_ "blCust5 = '" & request.form("blCust5") & "', " &_ "USERReqiredF1 = " & request.form("USERReqiredF1") & ", " &_ "USERReqiredF2 = " & request.form("USERReqiredF2") & ", " &_ "USERReqiredF3 = " & request.form("USERReqiredF3") & ", " &_ "USERReqiredF4 = " & request.form("USERReqiredF4") & ", " &_ "USERReqiredF5 = " & request.form("USERReqiredF5") & ", " &_ "USERReqiredF6 = " & request.form("USERReqiredF6") & ", " &_ "USERReqiredF7 = " & request.form("USERReqiredF7") & ", " &_ "USERReqiredF8 = " & request.form("USERReqiredF8") & ", " &_ "USERReqiredF9 = " & request.form("USERReqiredF9") & ", " &_ "CALENDARViewHolidaysDay=" & request.form("CALENDARViewHolidaysDay") & ", " &_ "MailSENDER = '" & request.form("MailSENDER") & "', " &_ "MailSMTP = '" & request.form("MailSMTP") & "', " &_ "MAILHTMLFormat=" & request.form("MAILHTMLFormat") & ", " &_ "MAILProg='" & request.form("MAILProg") & "', " &_ "USERAllowNew=" & request.form("USERAllowNew") & ", " &_ "USERPaging=" & request.form("USERPaging") & ", " &_ "USERDefaultPermission=" & request.form("USERDefaultPermission") & ", " &_ "CALENDARGLOBALCats=" & request.form("CALENDARGLOBALCats") & ", " &_ "CALENDARStartView='" & request.form("CALENDARStartView") & "', " &_ "CALENDARAllowExcelLink=" & request.form("CALENDARAllowExcelLink") & ", " &_ "CALENDARAllowPrintLink=" & request.form("CALENDARAllowPrintLink") & ", " &_ "CALENDARDeleteAfter=" & request.form("CALENDARDeleteAfter") & ", " &_ "CALENDARTarget='" & request.form("CALENDARTarget") & "', " &_ "CALENDARMaxEventsAtOnce=" & request.form("CALENDARMaxEventsAtOnce") & ", " &_ "CALENDARCheckColision=" & request.form("CALENDARCheckColision") & ", " &_ "CALENDARAllowExculdes=" & request.form("CALENDARAllowExculdes") & ", " &_ "CALENDARAllowSubscribers=" & request.form("CALENDARAllowSubscribers") & ", " &_ "CALENDARTimeFormat=" & request.form("CALENDARTimeFormat") & ", " &_ "CALENDARStartTime='" & request.form("CALENDARStartTime") & "', " &_ "CALENDAREndTime='" & request.form("CALENDAREndTime") & "', " &_ "CALENDARTimeStep=" & request.form("CALENDARTimeStep") & ", " &_ "CALENDARViewAllUpcoming=" & request.form("CALENDARViewAllUpcoming") & ", " &_ "CALENDARCutMonthNames=" & request.form("CALENDARCutMonthNames") & ", " &_ "CALENDARCutMonthLen='" & request.form("CALENDARCutMonthLen") & "', " &_ "CALENDARDateFormat=" & request.form("CALENDARDateFormat") & ", " &_ "CALENDARDelimiter='" & request.form("CALENDARDelimiter") & "', " &_ "CALENDARFirstDay=" & request.form("CALENDARFirstDay") & ", " &_ "CALENDARFirstYearWeek=" & request.form("CALENDARFirstYearWeek") & " where CalendarClient=" & session("Client") my_conn.execute(strSQL) end function %>