I have modified the pages that I believe need to be modified to show the length that a node has been down but the inforamtion is not displayed on the web page. Attached is the modifications made to the resource page. Can anyone let me know what may be wrong?
<!-- Title=Top XX Nodes by Current Response Time -->
<!-- level=7 -->
<!--#include Virtual=/NetPerfMon/scripts/Resource.asp -->
<%
Dim MaxRecords, Count
Dim Changed, DidHd
Dim Ret
MaxRecords = Resource.GetProperty("MaxRecords")
if len(MaxRecords) = 0 then MaxRecords = 10
Count = 0
if len(Resource.Title) = 0 then
Resource.Title = "Top XX Nodes by Current Response Time"
Resource.Sync
End If
Title = Replace(Resource.Title, "XX", Cstr(MaxRecords), 1, -1, 1)
SubTitle=Resource.SubTitle
HelpPage="TopXCurrentResponseTime"
EditButton="/NetPerfMon/Resources/1-2-Top10Lists/TopXXNodes.Edit.asp?ResourceID=" & Resource.ResourceID & "&ViewID=" & ViewID & "&NetObject=" & NetObject
DetachWidth="100%"
DoResourceHeader
Set SQLResource = NetPerfMon.NewSQLResource
SQLResource.SQL="Select Top " & MaxRecords & " NodeID,Caption,Nodes.GroupStatus, ResponseTime, PercentLoss, Cast(TriggerTimeOffset / 60 / 60 as Varchar) + ' hours ' + Cast(TriggerTimeOffset % 60 as Varchar) + ' minutes' as 'Total Down Time' From dbo.Nodes Left OUTER JOIN dbo.AlertStatus ON ObjectName=Nodes.Caption Where ResponseTime<0 Order By PercentLoss Desc"
SQLResource.Filter=Resource.GetProperty("Filter")
SQLResource.Execute
Response.Write SQLResource.LastError
If Not SQLResource.EOF Then
DoReport
End If
If Count<MaxRecords Then
SQLResource.SQL="Select Top " & MaxRecords & " NodeID,Caption,Nodes.GroupStatus, ResponseTime, PercentLoss, Cast(TriggerTimeOffset / 60 / 60 as Varchar) + ' hours ' + Cast(TriggerTimeOffset % 60 as Varchar) + ' minutes' as 'Total Down Time' From dbo.Nodes Left OUTER JOIN dbo.AlertStatus ON ObjectName=Nodes.Caption Where ResponseTime>=0 Order By PercentLoss Desc"
SQLResource.Execute
Response.Write SQLResource.LastError
If Not SQLResource.EOF Then
DoReport
End If
End If
DoFooter
%>
<br>
<%
Sub DoFooter
If DidHd Then Response.Write "</table>"
End Sub
%>
<% Sub DoHeader
If DidHd <> True Then %>
<table border=0 cellPadding=2 cellSpacing=0 width="100%">
<tr>
<td class="ReportHeader" colspan=2>NODE</td>
<td class="ReportHeader">CURRENT<br>RESPONSE TIME</td>
<td class="ReportHeader">PERCENT<br>LOSS</td>
<td class="ReportHeader">Total<br>Down<br>Time</td>
</tr>
<% DidHd = True
End If
End Sub
%>
<% Sub DoReport %>
<% DoHeader
Do While Not SQLResource.EOF %>
<tr>
<td class="Property" vAlign="center" width="20"><%=SQLResource.GetProperty("GroupStatus as SmallIcon")%> </td>
<td class="Property"><a <%=SQLResource.GetProperty("NodeParamString")%> href="")%>"><%=SQLResource.GetProperty("Caption")%></a>">thwack.solarwinds.com/.../View.asp </td>
<td class="Property"><a href="")%>&Period=Today"">thwack.solarwinds.com/.../CustomChart.asp target="_blank"><%=SQLResource.GetProperty("ResponseTime")%></a> </td>
<td class="Property"><a href="")%>&Period=Today"">thwack.solarwinds.com/.../CustomChart.asp target="_blank"><%=SQLResource.GetProperty("PercentLoss")%></a> </td>
</tr>
<% SQLResource.MoveNext
Count=Count+1
Loop
End Sub
%>
