Tccal is Awesome

[donstephens]

How would one set up an event for every third Monday? I have tried to set this up but it never comes out on the correct date.

Thanks

[Tom Caldwell]

Hi Don,
Right now, the events are created starting from the current date. Do you think it would make more sense to start from the first day of the month?

[donstephens]

Hi Tom:

If you are trying to do what I'm doing, I'd say yes.

Really nice work, by the way.

Hi Don,
Right now, the events are created starting from the current date. Do you think it would make more sense to start from the first day of the month?

[Tom Caldwell]

Here's an update

I updated the zip in the original post here.
http://board.homeseer.com/showthread...838#post726838

I'm sorry this took so long. I added a couple of options. You can do recurring events the old way or from the first of the month now. Like every 3rd monday of month, etc. Also last monday,friday,etc of month, that kind of thing. I added an option to enter a script name to run with homeseer events.

There is a script included in the folder that you can move to homeseer's scripts folder if you just want to use the calendar events alone. in other words no need to use the hs event for voice reminders. The script can be triggered manually or in a morning event to read the current days appointments. Or with voice commands that you can ask for specific days appointments in the current week. Such as "Check my appointments for Monday".

[Czechmarty]

Events disappeared

Tom,
All my events disappeared when the year rolled over. I can see them in calendar, but the speaking events in HS (and the whole group) are gone.
I had birthdays and other reminders set for 5 -10 years ahead. What can I do now?
Marty

[Rotech]

I would like to know if this plug is still funtional and how good is it?

[completelyhis]

I'm not stalking you, I promise! I just am subscribed to this thread, so i noticed your question. i use this, and can show you how it works on my system if you like.

[Rotech]

It will be nice to include a birthday icon, for those days......

[Rotech]

can you have more then one anoucement reminder before the actual day?

[steph@ne]

Same pb than evja78 (posted the September 7th, 2006)

Hi Tom,
Very big job! This is the better calendar that I have found for HS! I hope you still maintain the code...

So, I have the same error message than evja78 when I want to create a TCcal event associated with a HS event. I click on 'Create Homeseer Voice Reminder' and I write a script name. When I click on 'add event' I have this error message below:

Script error: Indice en dehors de la plage: '[number: 2]'


  'checks if changes submitted
  action = Request.QueryString.Item("action")
  If action = "dbaddrecord" then
     DBAddRecord
  End If

  if (ucase(Request.ServerVariables("AUTH_USER"))) = (ucase("guest")) then
    response.redirect "accessdenied.asp"
  End If
  
  js = "<SCRIPT language=JAVASCRIPT>" & vbNewLine  js = js & "function goValidate(){" & vbNewLine  js = js & "if (Date.parse(document.all.adminform.colCal_EventDate.value) == """") {" & vbNewLine  js = js & "alert(""Your must enter an EVENT DATE"");" & vbNewLine  js = js & "return false;" & vbNewLine  js = js & "document.all.adminform.colCal_EventDate.focus();" & vbNewLine  js = js & "}" & vbNewLine  js = js & "if (document.all.adminform.colCal_EventTitle.value == """" ) {" & vbNewLine  js = js & "alert(""You must enter and EVENT TITLE"");" & vbNewLine  js = js & "return false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "if (document.all.adminform.colCal_EventBody.value == """" ) {" & vbNewLine  js = js & "alert(""You must enter and EVENT DESCRIPTION"");" & vbNewLine  js = js & "return false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "if (document.all.adminform.colCal_EventAllDay.checked == """") {" & vbNewLine  js = js & "StartTime = document.all.adminform.colCal_EventDate.value + "" "" + document.all.adminform.colCal_EventStartTime.value" & vbNewLine  js = js & "EndTime = document.all.adminform.colCal_EventDate.value + "" "" + document.all.adminform.colCal_EventEndTime.value" & vbNewLine  js = js & "StartTime = new Date(StartTime)" & vbNewLine  js = js & "EndTime = new Date(EndTime)" & vbNewLine  js = js & "if (Date.parse(StartTime) > Date.parse(EndTime)) {" & vbNewLine  js = js & "alert(""You END TIME cannot be before you START TIME"");" & vbNewLine  js = js & "return false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "}" & vbNewLine  js = js & "return true;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "function checkedAllDay(){" & vbNewLine  js = js & "if (document.all.adminform.colCal_EventAllDay.checked == true) {" & vbNewLine  js = js & "document.all.colCal_EventStartTime.disabled=true;" & vbNewLine  js = js & "document.all.colCal_EventEndTime.disabled=true;" & vbNewLine  js = js & "}" & vbNewLine  'next if statement added to keep starttime enabled if homeseer reminder is checked.  js = js & "if (document.all.adminform.Remind_Homeseer.checked == true) {" & vbNewLine  js = js & "document.all.colCal_EventStartTime.disabled=false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "if (document.all.adminform.colCal_EventAllDay.checked == false) {" & vbNewLine  js = js & "document.all.colCal_EventStartTime.disabled=false;" & vbNewLine  js = js & "document.all.colCal_EventEndTime.disabled=false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "}" & vbNewLine  js = js & "function checkedcurrent(){" & vbNewLine  js = js & "if (document.all.adminform.colCal_UseCurrent.checked == false) {" & vbNewLine  js = js & "document.all.colCal_EventRecurresNum.disabled=true;" & vbNewLine  js = js & "document.all.colCal_EventRecureType.disabled=true;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "if (document.all.adminform.colCal_UseCurrent.checked == true) {" & vbNewLine  js = js & "document.all.colCal_EventRecurresNum.disabled=false;" & vbNewLine  js = js & "document.all.colCal_EventRecureType.disabled=false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "}" & vbNewLine    js = js & "function checkedrecurring(){" & vbNewLine  js = js & "if (document.all.adminform.colCal_EventRecurres.checked == false) {" & vbNewLine  js = js & "document.all.colCal_EventRecurEndDate.disabled=true;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "if (document.all.adminform.colCal_EventRecurres.checked == true) {" & vbNewLine  js = js & "document.all.colCal_EventRecurEndDate.disabled=false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "}" & vbNewLine    js = js & "function checkedfirst(){" & vbNewLine  js = js & "if (document.all.adminform.colCal_UseFirst.checked == false) {" & vbNewLine  js = js & "document.all.colCal_RefOccurrence.disabled=true;" & vbNewLine  js = js & "document.all.colCal_RefDay.disabled=true;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "if (document.all.adminform.colCal_UseFirst.checked == true) {" & vbNewLine  js = js & "document.all.colCal_RefOccurrence.disabled=false;" & vbNewLine  js = js & "document.all.colCal_RefDay.disabled=false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "}" & vbNewLine  js = js & "function checkedremind(){" & vbNewLine  js = js & "if (document.all.adminform.Remind_Homeseer.checked == false) {" & vbNewLine  'added line below to enable a strt time to use for all day event in homeseer reminder  js = js & "document.all.colCal_EventStartTime.disabled=true;" & vbNewLine  js = js & "document.all.colCal_EventRemindDaysBefore.disabled=true;" & vbNewLine  js = js & "document.all.colCal_EventRemindHoursBefore.disabled=true;" & vbNewLine  js = js & "document.all.colCal_EventRemindMinutesBefore.disabled=true;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "if (document.all.adminform.Remind_Homeseer.checked == true) {" & vbNewLine  'added line below to enable a strt time to use for all day event in homeseer reminder  js = js & "document.all.colCal_EventStartTime.disabled=false;" & vbNewLine  js = js & "document.all.colCal_EventRemindDaysBefore.disabled=false;" & vbNewLine  js = js & "document.all.colCal_EventRemindHoursBefore.disabled=false;" & vbNewLine  js = js & "document.all.colCal_EventRemindMinutesBefore.disabled=false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "}" & vbNewLine  js = js & "// -->" & vbNewLine  js = js & "</SCRIPT>" & vbNewLine
  js = js & "<SCRIPT language="" src="" javascript?? datepicker popcalendar.js?? calendar></SCRIPT>" & vbNewLine
  js = js & vbNewLine
  
  hsHeader = hs.GetPageHeader("Add Event","","",False,False,False,False,False)
  hsHeader = replace(hsHeader,"","<STYLE>" & vbNewLine & StyleCode & "</STYLE>" & vbNewLine & js & vbNewLine & "")

  response.write hsheader
  

  'checks if changes submitted
  action = Request.QueryString.Item("action")
  If action = "dbaddrecord" then
     DBAddRecord
  End If

  if (ucase(Request.ServerVariables("AUTH_USER"))) = (ucase("guest")) then
    response.redirect "accessdenied.asp"
  End If
  
  js = "<SCRIPT language=JAVASCRIPT>" & vbNewLine  js = js & "function goValidate(){" & vbNewLine  js = js & "if (Date.parse(document.all.adminform.colCal_EventDate.value) == """") {" & vbNewLine  js = js & "alert(""Your must enter an EVENT DATE"");" & vbNewLine  js = js & "return false;" & vbNewLine  js = js & "document.all.adminform.colCal_EventDate.focus();" & vbNewLine  js = js & "}" & vbNewLine  js = js & "if (document.all.adminform.colCal_EventTitle.value == """" ) {" & vbNewLine  js = js & "alert(""You must enter and EVENT TITLE"");" & vbNewLine  js = js & "return false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "if (document.all.adminform.colCal_EventBody.value == """" ) {" & vbNewLine  js = js & "alert(""You must enter and EVENT DESCRIPTION"");" & vbNewLine  js = js & "return false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "if (document.all.adminform.colCal_EventAllDay.checked == """") {" & vbNewLine  js = js & "StartTime = document.all.adminform.colCal_EventDate.value + "" "" + document.all.adminform.colCal_EventStartTime.value" & vbNewLine  js = js & "EndTime = document.all.adminform.colCal_EventDate.value + "" "" + document.all.adminform.colCal_EventEndTime.value" & vbNewLine  js = js & "StartTime = new Date(StartTime)" & vbNewLine  js = js & "EndTime = new Date(EndTime)" & vbNewLine  js = js & "if (Date.parse(StartTime) > Date.parse(EndTime)) {" & vbNewLine  js = js & "alert(""You END TIME cannot be before you START TIME"");" & vbNewLine  js = js & "return false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "}" & vbNewLine  js = js & "return true;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "function checkedAllDay(){" & vbNewLine  js = js & "if (document.all.adminform.colCal_EventAllDay.checked == true) {" & vbNewLine  js = js & "document.all.colCal_EventStartTime.disabled=true;" & vbNewLine  js = js & "document.all.colCal_EventEndTime.disabled=true;" & vbNewLine  js = js & "}" & vbNewLine  'next if statement added to keep starttime enabled if homeseer reminder is checked.  js = js & "if (document.all.adminform.Remind_Homeseer.checked == true) {" & vbNewLine  js = js & "document.all.colCal_EventStartTime.disabled=false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "if (document.all.adminform.colCal_EventAllDay.checked == false) {" & vbNewLine  js = js & "document.all.colCal_EventStartTime.disabled=false;" & vbNewLine  js = js & "document.all.colCal_EventEndTime.disabled=false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "}" & vbNewLine  js = js & "function checkedcurrent(){" & vbNewLine  js = js & "if (document.all.adminform.colCal_UseCurrent.checked == false) {" & vbNewLine  js = js & "document.all.colCal_EventRecurresNum.disabled=true;" & vbNewLine  js = js & "document.all.colCal_EventRecureType.disabled=true;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "if (document.all.adminform.colCal_UseCurrent.checked == true) {" & vbNewLine  js = js & "document.all.colCal_EventRecurresNum.disabled=false;" & vbNewLine  js = js & "document.all.colCal_EventRecureType.disabled=false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "}" & vbNewLine    js = js & "function checkedrecurring(){" & vbNewLine  js = js & "if (document.all.adminform.colCal_EventRecurres.checked == false) {" & vbNewLine  js = js & "document.all.colCal_EventRecurEndDate.disabled=true;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "if (document.all.adminform.colCal_EventRecurres.checked == true) {" & vbNewLine  js = js & "document.all.colCal_EventRecurEndDate.disabled=false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "}" & vbNewLine    js = js & "function checkedfirst(){" & vbNewLine  js = js & "if (document.all.adminform.colCal_UseFirst.checked == false) {" & vbNewLine  js = js & "document.all.colCal_RefOccurrence.disabled=true;" & vbNewLine  js = js & "document.all.colCal_RefDay.disabled=true;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "if (document.all.adminform.colCal_UseFirst.checked == true) {" & vbNewLine  js = js & "document.all.colCal_RefOccurrence.disabled=false;" & vbNewLine  js = js & "document.all.colCal_RefDay.disabled=false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "}" & vbNewLine  js = js & "function checkedremind(){" & vbNewLine  js = js & "if (document.all.adminform.Remind_Homeseer.checked == false) {" & vbNewLine  'added line below to enable a strt time to use for all day event in homeseer reminder  js = js & "document.all.colCal_EventStartTime.disabled=true;" & vbNewLine  js = js & "document.all.colCal_EventRemindDaysBefore.disabled=true;" & vbNewLine  js = js & "document.all.colCal_EventRemindHoursBefore.disabled=true;" & vbNewLine  js = js & "document.all.colCal_EventRemindMinutesBefore.disabled=true;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "if (document.all.adminform.Remind_Homeseer.checked == true) {" & vbNewLine  'added line below to enable a strt time to use for all day event in homeseer reminder  js = js & "document.all.colCal_EventStartTime.disabled=false;" & vbNewLine  js = js & "document.all.colCal_EventRemindDaysBefore.disabled=false;" & vbNewLine  js = js & "document.all.colCal_EventRemindHoursBefore.disabled=false;" & vbNewLine  js = js & "document.all.colCal_EventRemindMinutesBefore.disabled=false;" & vbNewLine  js = js & "}" & vbNewLine  js = js & "}" & vbNewLine  js = js & "// -->" & vbNewLine  js = js & "</SCRIPT>" & vbNewLine
  js = js & "<SCRIPT language="" src="" javascript?? datepicker popcalendar.js?? calendar></SCRIPT>" & vbNewLine
  js = js & vbNewLine
  
  hsHeader = hs.GetPageHeader("Add Event","","",False,False,False,False,False)
  hsHeader = replace(hsHeader,"","<STYLE>" & vbNewLine & StyleCode & "</STYLE>" & vbNewLine & js & vbNewLine & "")

  response.write hsheader

I have tried to see a bit your code and I don't find pb. I'am running a HS pro version 2.3 on a french windows XP. I have the same pb if I change the date format (US to EUR) or if I change the time format.

Have you an idea?
Thanks for your reply.
Bgrds.
SD

[steph@ne]

OK . I have found what was wrong .
The script call the CreateRemindEvent(hsdate) function (localized in calinc.asp) to create a homeseer event. In this function, there is a date split:

'split datetime into date and time
     arrstring = Split(hsDateStart," ")
  response.write "compteSplit:" &  ubound(arrstring)+1 & "<BR>"
     hsdate = Trim(arrstring(0))
     hstime = trim(arrstring(1)) & " " & trim(arrstring(2))

My error was in arrstring(2) which doesn' t exit. I have write a msgbox on ubound(arrstring) and the result was 1 (0et1).
A problem with the "PM" string which doesn't appear (may be because of french...)
After a cote in front of " " & trim(arrstring(2)) all my problems are disappeared.

Tom, your dev is excellent . I can choose to launch a script file or write a script directly (ex: &hs.execx10 ....).

A big big thanks for your work.
SD