Hi! <BR><BR>I&#039;ve got 7 calendars within a public folder, and I need to create a .asp intranet page that will display their information.<BR><BR>So far I&#039;ve managed to create a page that will display the names of all 7 calendars, but I can&#039;t get it to actually display the contents of each calendar.<BR><BR>Any help?<BR><BR>I&#039;m using Exchange 5.5 on a W2K box all service packed up! <BR><BR>The code I&#039;ve got so far is below.<BR><BR>Ta muchly! <BR><BR>LB <BR><BR><BR>CONST strServer = "MyExchangeServer"<BR>CONST strMailbox = "MyUserProfile"<BR><BR>strProfileInfo = strServer & vblf & strMailbox<BR>Set objSession = Server.CreateObject("MAPI.Session")<BR>objSession. Logon , , , False, , True, strProfileInfo<BR>Set objInfoStores = objSession.InfoStores<BR><BR>For i = 1 To objInfoStores.Count<BR>If objInfoStores.Item(i)= "Public Folders" Then<BR>Set objInfoStore=objInfoStores.Item(i)<BR>Exit For<BR>End If<BR>Next<BR><BR>bstrPublicRootID = objInfoStore.Fields.Item( &H66310102 ).Value<BR>Set objTopFolder = objSession.GetFolder(bstrPublicRootID, objInfoStore.ID)<BR>Set objFolders = objTopFolder.Folders<BR>Set objFolder = objFolders.GetFirst()<BR><BR>Do Until objFolder.Name = "Resource Booking"<BR>Set objFolder=objFolders.GetNext()<BR>Loop<BR><BR>Set objCalendarFolder = objFolder<BR>Set objCalendars = objCalendarFolder.Folders<BR><BR>For x = 1 To objCalendars.Count<BR>Set objCalendar=objCalendars.Item(x)<BR>Response.Write ("<BR>" & objCalendar.Name)<BR>next<BR><BR>objSession.Logoff <BR>Set objOneMessage = Nothing<BR>Set objMessages = Nothing<BR>Set objFolder = Nothing<BR>Set objTopFolder = Nothing<BR>Set objSession = Nothing