Error while lookup free/busy status of an Exchange Accoutn via asp

Hi

Can anyone help me by look up the free/busy calendar
status of an exchange account via asp?

I always get an error "CDO.Addressee.1 (0x80070490)
Element not found" in the folowing line:
strFreeBusy = iAddr.GetFreeBusy(#1/12/2004 09:00:00 AM#,
#1/12/2004 15:00:00 PM#, 30)

Code is at the end of the Message!

I do not find anything about this error, can somebody
help me with that!

Thanks a lot
Sebastian

<%@ Language=VBscript%>
<%
Sub PrintStatus(strStatus)
Select Case strStatus
Case "0" 'Free
Response.Write "<TD>Free</TD></TR>"
Case "1" 'Tentative
Response.Write "<TD>Tentative</TD></TR>"
Case "2" 'Busy
Response.Write "<TD>Busy</TD></TR>"
Case "3" 'Out Of Office

Response.Write "<TD>Out Of Office</TD></TR>"
End Select
End Sub

UserName = "sebastian.roth"
DomainName = "xxx"
ServerName = "xxx"
strStartTime = #1/20/2004 7:00:00 AM#
strEndTime = #1/20/2004 11:00:00 AM#
iInterval = 30

Set iAddr = createobject("CDO.Addressee")
iAddr.EmailAddress = UserName & "@" & DomainName
hallo = iAddr.CheckName ("LDAP://" & ServerName)
response.write iAddr.DirUrl+"<br>"
response.write iAddr.EmailAddress

strFreeBusy = iAddr.GetFreeBusy(#1/12/2004 09:00:00
AM#, #1/12/2004 15:00:00 PM#, 30)


Response.Write "<Table Border =1>"
For i = 1 To Len(strFreebusy)
If i = 1 Then
Response.Write "<TR><TD>Start Time</TD><TD>" &
strStartTime & " ~ </TD>"
Elseif i = len(strFreebusy) Then
Response.Write "<TR><TD>End Time</TD><TD>" &
strEndTime & " ~ </TD>"
Else
Response.Write "<TR><TD>.</TD><TD> + " & iInterval
& " min ~ </TD>"
End If
Call PrintStatus(Mid(strFreebusy, i, 1))
Next
Response.Write "</TABLE>"
Set iAddr = Nothing
%>