Exchange Server Forums

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]

Message

<< Older Topic Newer Topic >>

Limited time MSExchange.org offer! -- 1.Sep.2008 1:00:00 PM

TechGenix and SolarWinds have partnered to provide free copies of SolarWinds Exchange Monitor to all visitors who join the MSExchange.org Forums. SolarWinds Exchange Monitor is a handy desktop dashboard that continuously monitors Microsoft Exchange to deliver real-time insight into Exchange services, mail queue sizes, and host server health. Learn more about Exchange Monitor and the free offer!

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:    " & 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">
     
     <xsl:for-each select='a:multistatus/a:response'>
<tr bgcolor="#ccffcc">


         
         <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

Featured Links*

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)