Specificering af Calendar view

Hej

jeg har et problem, jeg har lavet et kalender ud træk fra en exchange server. Det kalender udtræk som jeg har lavet viser alle døgnets 24 timer. Jeg skal kun bruge tidsintervallet mellem kl 7 - 20, men jeg ved ikke hvordan man udspecificerer, sin view.

Koden jeg er har brugt er som følgende:


<%@ LANGUAGE=\"VBSCRIPT\" %>
<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML 3.2//EN\">
  <HTML>
  <HEAD>

  </HEAD>
  <BODY bgcolor=\"#000000\">
  <%

 
  \'CONSTANTS FOR THE CONTAINER RENDERER

  \'Time Zone Constants for the US
  CONST CdoDefaultFolderCalendar  = 0
  CONST CdoTmzCentral              = 11
  \'CONTAINER CONSTANT
  CONST CdoClassContainerRenderer  = 3
  set objAMSession1 = Server.CreateObject(\"MAPI.Session\")   
  bstrProfileInfo = \"strnt17\" + vbLf + \"str_mov\"
  objAMSession1.Logon \"\", \"\", False, True, 0, True, bstrProfileInfo
 
  \'objAMSession1.SetOption \"calendarstore\", \"outlook\"
  Set objRenderApp = Server.CreateObject(\"AMHTML.application\")
  Set objCRenderer = _
      objRenderApp.CreateRenderer(CdoClassContainerRenderer)
  ObjCRenderer.TimeZone = CdoTmzCentral
  objCRenderer.DataSource = _
      objAMSession1.GetDefaultFolder(CdoDefaultFolderCalendar).Messages
  Set objView = ObjCRenderer.Views(\"Daily Calendar\")
\'  Set objView = ObjCRenderer.Views(\"Weekly Calendar\")
  \'Set objView = ObjCRenderer.Views(\"Monthly Calendar\") \'***********?I wish

  objCRenderer.CurrentView = objView
  objView.RenderAppointments now, Response
  \'temporarily diable rest of function
  \'if 1=0 then
%>
  </BODY>
  </HTML>

Håber er der nogle super kodere der kan hjælpe mig med mit lille problem.