• RSS
  • Twitter
  • FaceBook

Exchange Server Forums

Forums | Register | Login | My Profile | Inbox | RSS RSS icon | My Subscription | My Forums | Address Book | Member List | Search | FAQ | Ticket List | Log Out

calendar on web page

Users viewing this topic: none

Logged in as: Guest
  Printable Version
All Forums >> [Microsoft Exchange 2000] >> Outlook Web Access >> calendar on web page Page: [1]
Login
Message << Older Topic   Newer Topic >>
calendar on web page - 14.Dec.2005 1:02:27 AM   
pari_garapati

 

Posts: 10
Joined: 22.Nov.2005
Status: offline
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....


_____________________________

Pari
Post #: 1
RE: calendar on web page - 10.Feb.2006 2:51:03 PM   
rramsden

 

Posts: 2
Joined: 1.Feb.2006
Status: offline
Dude,

You need to reference the following fields...

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

Regards,
R

< Message edited by rramsden -- 10.Feb.2006 2:52:17 PM >

(in reply to pari_garapati)
Post #: 2

Page:   [1] << Older Topic    Newer Topic >>
All Forums >> [Microsoft Exchange 2000] >> Outlook Web Access >> calendar on web page Page: [1]
Jump to:

New Messages No New Messages
Hot Topic w/ New Messages Hot Topic w/o New Messages
Locked w/ New Messages Locked w/o New Messages
 Post New Thread
 Reply to Message
 Post New Poll
 Submit Vote
 Delete My Own Post
 Delete My Own Thread
 Rate Posts


Follow TechGenix on Twitter