Originally posted by ScottRennie
View Post
Code:
<%@ Page Language="VB" %>
<script runat="server">
Dim hs As Scheduler.hsapplication
Sub Page_Load(Sender As Object, E As EventArgs)
' for use with the HS web server
hs = Context.Items("Content")
End Sub
Private Function GetHeadContent() As String
Try
Return hs.GetPageHeader("", "Google Calendar", "", "", False, False, True, False, False)
Catch ex As Exception
End Try
Return ""
End Function
Private Function GetFootContent() As String
Try
Return hs.GetPageFooter(False)
Catch ex As Exception
End Try
Return ""
End Function
Private Function GetBodyContent() As String
Try
Return hs.GetPageHeader("", "Google Calendar", "", "", False, True, False, True, False)
Catch ex As Exception
End Try
Return ""
End Function
Private Function GetTableContent() As String
Try
Dim td As New StringBuilder
Dim dv As Scheduler.Classes.DeviceClass
Dim EN As Scheduler.Classes.clsDeviceEnumeration
EN = hs.GetDeviceEnumerator
hs.writelog("Test", "GetTableContent Entered")
td.Append("<table><tr><td>Reference</td><td>Location</td><td>Device Name</td></tr>")
Do
dv = EN.GetNext
td.Append("<tr><td>" & dv.Ref(Nothing) & "</td><td>" & dv.Location(Nothing) & "</td><td>" & dv.Name
(Nothing) & "</td><tr>")
Loop Until EN.Finished
td.Append("</table>")
Return td.ToString
Catch ex As Exception : Return "Unknown Error"
End Try
End Function
</script>
<html>
<head runat="server">
<%response.write(GetHeadContent())%>
</head>
<body>
<% response.write(GetBodyContent()) %>
<br><br>
<% response.write(GetTableContent()) %>
<br><br>
<% response.write(GetFootContent()) %>
</body>
</html>
Leave a comment: