Hi,

I'm accessing Exchange appointments on my ASP page using WebAV.


1.
I create an appointment in Outlook.

2.
I refresh my ASP page, and the list now shows the starttime, endtime, and
subject of the appointment.

3.
In Outlook (5-day-view) I copy the appointment to the next day using drag
and drop while holding down the CTRL-key.

4.
I refresh my ASP page, and the list now shows two appointments with the
exact same starttime, endtime, and subject.

Somehow the starttime and endtime is not updated in the Web Storage System.

5.
I move the copied appointment one hour forwards using drag and drop

6.
I refresh my ASP page, and the list now shows two appointments with the
correct starttime, endtime, and subject.


The whole thing is running on a Windows 2000 Advanced Server SP2 with
Exchange 2000 SP1


This is my simple ASP Page:

<%@ Language=VBScript %>
<%
Set Rec = CreateObject("ADODB.Record")
Set objAppointments = CreateObject("ADODB.RecordSet")

CalendarURL = "file://./backofficestorage/domain.com/MBX/username/Calendar"

strSearchSql = "SELECT " & _
" ""urn:schemas:httpmail:subject"", " & _
" ""urn:schemas:calendar:dtstart"", " & _
" ""urn:schemas:calendar:dtend"" " & _
"FROM scope('shallow traversal of """ & CalendarURL & """')
" & _
"ORDER BY ""urn:schemas:calendar:dtstart"" "

Rec.Open CalendarURL
objAppointments.Open strSearchSql, Rec.ActiveConnection

do until objAppointments.EOF

strSubject = objAppointments.Fields("urn:schemas:httpmail:subject").Value
'I add two hours to get the right timezone
strStartTime =
dateadd("h",2,objAppointments.Fields("urn:schemas:calendar:dtstart").Value)
strEndTime =
dateadd("h",2,objAppointments.Fields("urn:schemas:calendar:dtend").Value)

Response.Write "(" & strStartTime & " - " & strEndTime &
")&nbsp;&nbsp;&nbsp;" & strSubject & "<br>"

objAppointments.MoveNext
loop

set objAppointments = nothing
set Rec = nothing
%>

HEEEEEEELP!!!

Peter