calendar on web page (Full Version)

All Forums >> [Microsoft Exchange 2000] >> Outlook Web Access



Message


pari_garapati -> calendar on web page (14.Dec.2005 1:02:27 AM)

i am putting calendar on the web page using webdav it is working fine. i am using XSLT but i'm not able to put starting time and ending time of an appointment. please anyone give me advise how to put appointment starting and end time onthe web page.here is my code . i would be apperciate....

<html>
<head>
<style>
  body
  {
   margin: 0px;
  }
  table
  {
   border-collapse: collapse;
  }
  td
  {
   color: #333333;
   font-family: Tahoma;
   font-size: 11px;
   line-height: 14px;
   vertical-align: top;
  }
  tr.bgcolor1
  {
   background-color: #EFEFF7;
  }
  tr.bgcolor2
  {
   background-color: #D6DFEF;
  }
 </style>
<script language='VBScript'>
Dim objXMLHTTP, objXMLDoc
' Define your protocol; http or https
strProtocol = "http"
' Define your server name
strServername = "server name"
' Define your local name for 'Inbox'
strInbox = "Calendar"
Sub getMessages_OnClick()
strUsername = document.all.mailbox.value
If strUsername <> "" Then
   strInboxURL = strProtocol & "://" & strServername & "/Exchange/"
   strInboxURL = strInboxURL & strUsername & "/" & strInbox
   Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
   objXMLHTTP.Open "SEARCH", strInboxURL, True
   objXMLHTTP.setRequestHeader "Content-type:", "text/xml"
   objXMLHTTP.setRequestHeader "Depth", "1"
   objXMLHTTP.onReadyStateChange = getRef("checkXMLHTTPState")
   strXML = "<?xml version='1.0' ?>" & _
    "<a:searchrequest xmlns:a='DAV:'><a:sql>" & _
      "SELECT ""urn:schemas:calendar:location"", ""urn:schemas:httpmail:subject"", " & _
      """urn:schemas:calendar:dtstart"", ""urn:schemas:calendar:EndTime"", " & _
      """urn:schemas:calendar:duration"", ""urn:schemas:calendar:instancetype"" " & _
      "FROM Scope('SHALLOW TRAVERSAL OF """ & strURL & """') " & _
      "WHERE NOT ""urn:schemas:calendar:instancetype"" = 1 " & _
      "AND ""DAV:contentclass"" = 'urn:content-classes:appointment' " & _
      "AND ""urn:schemas:calendar:dtstart"">=CAST(""2000-01-01T08:00:00Z"" as 'dateTime')" & _
      "ORDER BY ""urn:schemas:calendar:dtstart"" DESC" & _
             "</a:sql></a:searchrequest>"
   objXMLHTTP.SetRequestHeader "Range", "rows=0-4"
   objXMLHTTP.Send(strXML)
  End If
End Sub


Sub checkXMLHTTPState
'Dim objStartTimeNodeList As Xml.XmlNodeList
If objXMLHTTP.readyState = 4 Then
   responseStatus.innerHTML = objXMLHTTP.Status & " - " & objXMLHTTP.StatusText
   Set objXMLDoc = objXMLHTTP.ResponseXML
   XSLDiv.innerHTML = objXMLDoc.TransformNode(responseXSL.documentElement)
   'Set objStartTimeNodeList = objXMLDoc.getElementsByTagName("urn:schemas:calendar:dtstart")
   'Set objNode = objStartTimeNodeList.nextNode
   'If objStartTimeNodeList.length > 0 Then
   'Dim s_StartDate
'For i = 0 To (objStartTimeNodeList.length -1)
'objNode = objStartTimeNodeList.Item(i)
's_StartDate = objNode.InnerText
'msgbox "Start Time:" &s_StartDate
'Next
'End If
       'wscript.echo "  Start time:    " &amp; objNode.Text
   Set objXMLHTTP = Nothing
   Set objXMLDoc = Nothing
End If
End Sub
</script>
<xml id='responseXSL'>
<xsl:template xmlns:xsl='uri:xsl' xmlns:a='DAV:' xmlns:d='urn:schemas:httpmail:' xmlns:p='urn:schemas:calendar:'>
   <table border="8" frame="hsides" align="left" rules="all">
     <!-- Add a row for each element in the 207 Multistatus response to the SEARCH request. -->
     <xsl:for-each select='a:multistatus/a:response'>
<tr bgcolor="#ccffcc">
         

         <!-- Build a hyperlink using the resource href and subject -->
         <td>
           <a>
             <xsl:attribute name='href'>
               <xsl:value-of select='a:propstat/a:prop/a:href' />/?Cmd=open
             </xsl:attribute>
             <xsl:attribute name='target'>_blank</xsl:attribute>
             <xsl:value-of select='a:propstat/a:prop/d:subject' /><br/>
 <xsl:value-of select='a:propstat/a:prop/p:location' /><br/>
 <xsl:value-of select='a:propstat/a:prop/p:duration' />
 <xsl:value-of select='a:propstat/a:prop/p:dtstart.starttime' />
             </a>
         </td>
       </tr>
     </xsl:for-each>
   </table>
</xsl:template>
</xml>

</head>
<body>
<font face='Verdana' size='2'>
Mailbox name:<br>
<input type='text' name='mailbox'><br>
<input type='button' name='getMessages' value='    GO    '><br>
<div id='responseStatus'></div>
<div id='XSLDiv'></div>
</body>
</html>


thank you in advance....




rramsden -> RE: calendar on web page (10.Feb.2006 2:51:03 PM)

Dude,

You need to reference the following fields...

urn:schemas:calendar:dtstart
urn:schemas:calendar:dtend

Regards,
R




Page: [1]