using xtreme calendar control in IE

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Hi,
I want to use the control in internet explorer. So i wrote the following piece of code in the load event.
  Sub Window_OnLoad()
   Dim loNewEvent
   With Document.forms(0).ccJobs
    If .DataProvider.Create() Then
     Set loNewEvent = .DataProvider.CreateEvent()
     loNewEvent.StartTime = Now()
     loNewEvent.EndTime = DateAdd("n",60,loNewEvent.StartTime)
     .DataProvider.AddEvent loNewEvent
     .DataProvider.AddEvent loNewEvent.CloneEvent()
     .Populate
    End If
   End With
  End Sub
Note that ccJobs is the name given in the object tag. The html is as follows:
<body>
 <form name="frmTest">
  <OBJECT id="ccJobs" style="WIDTH: 797px; HEIGHT: 512px"  classid="clsid:B4252697-58EA-4784-B25E-95223304C93C">< /OBJECT>
 </form>
</body>
When i run this code everything works fine and iam able to see 2 events. I want to prevent the events from being edited, so i added the event BeforeEditOperation to the code, so that using the CancelOperation parameter, i can prevent the event from being edited. I just added the following piece of code.
  Sub ccJobs_BeforeEditOperation(byval OpParams , CancelOperation)

  End Sub
After adding the above procedure, if i try to run , i get an error at "If .DataProvider.Create() Then" line saying object does not support this property or method. The following is the complete source in the sample html page
<html>
<head>
 <title>Untitled</title>
 <script language="VBScript">
  Sub Window_OnLoad()
   Dim loNewEvent
   With Document.forms(0).ccJobs
    If .DataProvider.Create() Then
     Set loNewEvent = .DataProvider.CreateEvent()
     loNewEvent.StartTime = Now()
     loNewEvent.EndTime = DateAdd("n",60,loNewEvent.StartTime)
     .DataProvider.AddEvent loNewEvent
     .DataProvider.AddEvent loNewEvent.CloneEvent()
     .Populate
    End If
   End With
  End Sub

  Sub ccJobs_BeforeEditOperation(byval OpParams , CancelOperation)

  End Sub  

  Sub ccJobs_OptionsChanged(ByVal ViewType )

  End Sub
 </script>
</head>
<body>
 <form name="frmTest">
  <OBJECT id="ccJobs" style="WIDTH: 797px; HEIGHT: 512px"  classid="clsid:B4252697-58EA-4784-B25E-95223304C93C">< /OBJECT>
 </form>
</body>
</html>

When i remove the events from the code, it does not give any error and whenever i add any event code i get an error. Can anyone help me in finding the reason for the error and how to correct it?