Community
- Command Central
- MVP Program
- Monthly Mission
- Blogs
- Groups
- Events
- Media Vault
Products
- Observability
- Network Management
- Application Management
- IT Security
- IT Service Management
- System Management
- Database Management
Content Exchange
- SolarWinds Platform
- Server & Application Monitor
- Database Performance Analyzer
- Server Configuration Monitor
- Network Performance Monitor
- Network Configuration Manager
- SQL Sentry
- Web Help Desk
Free Tools & Trials
Store

ASP Code in Custom HTML

I am trying to add a small piece of ASP code to a Custom HTML.
The ASP Code just counts the number of sites that are down and displays the value. If I put it in a standard Web page it works but within the Custom HTML option it just displays the words and not the value.

The code is shown below

<%@ LANGUAGE=VBScript %>
<% Option Explicit %>
<%
Dim strSQL 'SQL query
Dim rs 'recordset object
Dim strCOS

strSQL = "SELECT COUNT(Nodes.Status) AS COS FROM Nodes WHERE Nodes.Status = '2'"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open strSQL, "dsn=NetPerfMon;uid=sa;pwd=sa;"
strCOS = rs("COS")
rs.Close
%>
<html>
<body>
<h1>Sites Down <%= strCOS %> </h1>
</body>
</html>
<%
Set rs = Nothing
%>

Doug Rogers
Infrastructure Manager
Netstore

Find more posts tagged with

Accepted answers

All comments

chris.conway

Hi Doug,

Try creating a new resource file instead. Depending on when this appears I may have emailed you about it already.

Chris

Analyser Sales Ltd
SolarWinds Premier Partner
www.asl-solarwinds.co.uk

doug.rogers

I have added a new resource called 04-CountofNodesDown.Resource and saved it in C:\Inetpub\SolarWinds\NetPerfMon\Resources\0-1-NodeLists.

The resource is shown below.




<%
Dim V1

Title=Resource.Title
If Len(Title)=0 Then Title="Number of Down Nodes "

SubTitle="The Following Number are Down"
if Len(Resource.SubTitle)>0 Then SubTitle=Resource.SubTitle
HelpPage="DownNodes"
EditButton="/NetPerfMon/Resources/Filter.Edit.asp?ResourceID=" & Resource.ResourceID & "&ViewID=" & ViewID
DoResourceHeader

Set SQLResource = NetPerfMon.NewSQLResource
SQLResource.SQL="Select COUNT(Nodes.Status) AS COS From Nodes Where Status='2'"
SQLResource.Filter= Resource.GetProperty("Filter")
SQLResource.Execute

V1 = CInt(SQLResource.GetProperty("COS"))

if V1 = 0 then
%>

<table border="0" cellPadding="2" cellSpacing="0" width="100%">
<tr>
<h1>All Connections UP</h1>
</tr>
</table>
<br>

<% else %>
<table border="0" cellPadding="2" cellSpacing="0" width="100%">
<tr>
<h1>Number of Sites Down : <%= SQLResource.GetProperty("COS") %></h1>
</tr>
</table>
<br>
<% end if %>

This can be added to any view that is being created

Doug Rogers
Infrastructure Manager
Netstore

JMP

Nice function! I'm trying this out and have a question. It looks like the code is selecting how many nodes are down but in the text it states 'Number of Sites Down'. Should that say Nodes instead? Or is there some way to define a site?

Network_Guru

quote:Originally posted by JMP

Nice function! I'm trying this out and have a question. It looks like the code is selecting how many nodes are down but in the text it states 'Number of Sites Down'. Should that say Nodes instead? Or is there some way to define a site?

The nice thing about this resource is that you can add a filter on the web page, so that you can make it count nodes or sites, depending on how you have used custom properties to define each site. e.g. only display the core routers down at each remote site.

-=Cheers=-
NG

jonchill

Great script, is it possible to take it one step further and have a hyperlink off the resource to a list of down nodes. I've got it setup to tells us how many nodes are down at each site and it would be nice if you could click on a link to a list of those nodes at the particluar site?

Any help would be much appreciate.

Thanks

Jon

IT Infrastructure Manager
Pilgrim Hospital
UK

jonchill

I know I'm asking a bit of a thickie question but how can I change the size of the number of sites down text?

Thanks

Jon

IT Infrastructure Manager
Pilgrim Hospital
UK

chris.conway

Hi Jon,

I'll look into it for you. I wrote the initial script before Doug tweaked it.

Do you want to link a specific node or to a map?

Chris

Analyser Sales Ltd
SolarWinds Premier Partner
www.asl-solarwinds.co.uk

doug.rogers

I have attached the code which now also lists the sites that are down and allows you click on them and go to the individual node details page. We actually use this report (in a different version) to show the sites that are in warning (potentially given us early warning of a major problem, if the list is large).

Thanks to Chris at ASL who initially directed me at writing these scripts as resources. Using standards ASP and HTML code it allows the development of additional reports.

I have included some basic font commands to show where this can be set and changed.

Sorry for any confusion between site and node down, just terminology, in this case it is a node I am reporting on, but there is only one node at each site for my report (extra detail has been removed)




<%
Dim V1
Dim V2
Dim V3

Title=Resource.Title
If Len(Title)=0 Then Title="Number of Down Nodes "

SubTitle="The Following Number are not Responding"
if Len(Resource.SubTitle)>0 Then SubTitle=Resource.SubTitle
HelpPage="DownNodes"
EditButton="/NetPerfMon/Resources/Filter.Edit.asp?ResourceID=" & Resource.ResourceID & "&ViewID=" & ViewID
DoResourceHeader

Set SQLResource = NetPerfMon.NewSQLResource
SQLResource.SQL="Select COUNT(Nodes.Status) AS COS From Nodes Where Status='2'"
SQLResource.Filter= Resource.GetProperty("Filter")
SQLResource.Execute
Set SQLResource1 = NetPerfMon.NewSQLResource
SQLResource1.SQL="Select Caption, NodeID From Nodes Where Status='2'"
SQLResource1.Filter= Resource.GetProperty("Filter")
SQLResource1.Execute

V1 = CInt(SQLResource.GetProperty("COS"))
if V1 = 0 then
%>

<table border="0" cellPadding="2" cellSpacing="0" width="100%">
<tr>
<font size="5" color="green" face="Arial">All Connections UP</font>
</tr>
</table>
<br>

<% else %>
<table border="0" cellPadding="2" cellSpacing="0" width="100%">
<tr>
<font size="5" color="red" face="Arial"> Number of Nodes Down <%= SQLResource.GetProperty("COS") %> </font>
</tr>
</table>
<table border="0" cellPadding="2" cellSpacing="0" width="100%">
<tr>
<%
Do while not SQLResource1.eof
%>
<tr>
<td class="Property"><font size="5" face="Arial"><a href="")%>"><%=SQLResource1.GetProperty("Caption")%></a></font>">thwack.solarwinds.com/.../View.asp </td>
</tr>

<%
SQLResource1.MoveNext
Loop
%>
</tr>

</table>
<br>
<% end if %>

Doug Rogers
Infrastructure Manager
Netstore

jmaas

I tried this and I am not getting anything that is displaying the node downs I am getting just the wording without any out put. I know I have systems that are down right now but not seeing anything on this any help on this would be great thanks...

quote:Originally posted by doug.rogers

I have added a new resource called 04-CountofNodesDown.Resource and saved it in C:\Inetpub\SolarWinds\NetPerfMon\Resources\0-1-NodeLists.

The resource is shown below.




<%
Dim V1

Title=Resource.Title
If Len(Title)=0 Then Title="Number of Down Nodes "

SubTitle="The Following Number are Down"
if Len(Resource.SubTitle)>0 Then SubTitle=Resource.SubTitle
HelpPage="DownNodes"
EditButton="/NetPerfMon/Resources/Filter.Edit.asp?ResourceID=" & Resource.ResourceID & "&ViewID=" & ViewID
DoResourceHeader

Set SQLResource = NetPerfMon.NewSQLResource
SQLResource.SQL="Select COUNT(Nodes.Status) AS COS From Nodes Where Status='2'"
SQLResource.Filter= Resource.GetProperty("Filter")
SQLResource.Execute

V1 = CInt(SQLResource.GetProperty("COS"))

if V1 = 0 then
%>

<table border="0" cellPadding="2" cellSpacing="0" width="100%">
<tr>
<h1>All Connections UP</h1>
</tr>
</table>
<br>

<% else %>
<table border="0" cellPadding="2" cellSpacing="0" width="100%">
<tr>
<h1>Number of Sites Down : <%= SQLResource.GetProperty("COS") %></h1>
</tr>
</table>
<br>
<% end if %>

This can be added to any view that is being created

Doug Rogers
Infrastructure Manager
Netstore

James W Maas

chris.conway

what wording do you get?

Analyser Sales Ltd
SolarWinds Premier Partner
www.asl-solarwinds.co.uk

videotech

Does anyone have any screenshots of this code implemented?

I just wanna get a few ideas of how to inmplement this.

Thanks.

videotech

Hi mate, I was wondering can you send me the script that counts how many nodes are down for each customer or site.

Thanks.

maladil

Has anyone looked at this topic in a while? It seems the file structure has changed a bunch over the years and the asp.net stuff isn't exactly working like the old asp code.

I'm trying to do some customization and the solarwinds pages are proving to be a lot more tricky than I had previously thought they would be. My only real web experience is with php/mysql and I'm struggling to dig through the db calls in order to be able to emulate what is being done.

Can someone clue me in on a basic "hello world" type sql connection that just retrieves a list of down nodes and reads them into an array and/or spits them out on a page?

scottd

Maladil,

Here is a simple page i wrote that i use in a mashup. It doesnt show nodes up or down. It shows me what nodes i have assigned to sites. But this example should be sufficient for you to go on. You can always edit the 'sql query' and the corresponding 'Container.DataItems' to return and present the data how ever you like. The alternating row color just makes it eaiser for me to read.

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>

<Script Runat="Server">
Sub Page_Load
dim dbconn AS SqlConnection
dim dbcomm AS New SqlCommand
dim dbread AS SqlDataReader
dim cmdSelectNodes AS String

dbconn=New SqlConnection("Server=vm-1oriondbt;uid=mashup;pwd=p@ssw0rd;database=NPMt" )
dbconn.Open()
cmdSelectNodes= "Select Nodes.Caption, Nodes.IP_Address, Sites.SiteName, Nodes.SiteID From Nodes, Sites Where (Nodes.SiteID IS NOT NULL) And (Nodes.siteID = Sites.SiteID)"
dbcomm=New SqlCommand(cmdSelectNodes,dbconn)
dbread=dbcomm.ExecuteReader()
Nodes.DataSource=dbread
Nodes.DataBind()
dbread.Close()
dbconn.Close()
End Sub

</Script>

<head>
<title>SolarWinds / GoogleMaps Node Assignment</title>
<script type="text/javascript">
function altRows(id){
if(document.getElementsByTagName){

  var table = document.getElementById(id);
  var rows = table.getElementsByTagName("tr");

  for(i = 1; i < rows.length; i++){
   if(i % 2 == 0){
    rows.className = "evenrowcolor";
   }else{
    rows.className = "oddrowcolor";
   }
  }
}
}

window.onload=function(){
altRows('alternatecolor');
}
</script>

scott

maladil

Thanks everyone. I got my page working as a stand alone. It was a lot harder than I thought it would be. Now I'm trying to figure out how to get it to work with a CustomHTML field. If that is too difficult, then can someone point me to a way to add the Solarwinds Header and Menu bar to the top of my custom page? Here's my code if anyone is curious.

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>

<Script Runat="Server">
Sub Page_Load
dim dbconn AS SqlConnection
dim dbcomm AS New SqlCommand
dim dbread AS SqlDataReader
dim cmdSelectNodes AS String
dbconn=New SqlConnection("Server=165.X.x.x;uid=x;pwd=x;database=NetPerfMon" )
dbconn.Open()
cmdSelectNodes= "Select Nodes.NodeID, Nodes.Caption, Nodes.IP_Address, Nodes.Site_ID, Nodes.Lattitude, Nodes.Longitude, Nodes.Location_Type, Nodes.Alert_Importance, Nodes.MachineType From Nodes Where ( Nodes.Status = 2 ) AND ( Nodes.Lattitude IS NOT Null)"
dbcomm=New SqlCommand(cmdSelectNodes,dbconn)
dbread=dbcomm.ExecuteReader()
Nodes.DataSource=dbread
Nodes.DataBind()
dbread.Close()
dbconn.Close()
End Sub
</Script>

<html>
<head>
<title>SolarWinds / GoogleMaps Node Assignment</title>
<link href="">code.google.com/.../default.css" rel="stylesheet" type="text/css" />
<script type="text/javascript" src="">maps.google.com/.../js
<form runat="server">
   <asp:Repeater id="Nodes" runat="server">
<HeaderTemplate>
<script type="text/javascript">
var map = null;

function initialize() {
var myOptions = {
    zoom: 5,
   mapTypeControl: true,
    mapTypeControlOptions: {style: google.maps.MapTypeControlStyle.DROPDOWN_MENU},
    navigationControl: true,
    center: new google.maps.LatLng(38, -95),
    mapTypeId: google.maps.MapTypeId.ROADMAP
}
map = new google.maps.Map(document.getElementById("map_canvas"), myOptions);
google.maps.event.addListener(map, 'click', function() {
        infowindow.close();
        });

</HeaderTemplate>
    <ItemTemplate>
   var caption = "<%#Container.DataItem("Caption")%>";
   var point = new google.maps.LatLng(<%#Container.DataItem("Lattitude")%>, <%#Container.DataItem("Longitude")%>);
   var node_url = '<b>Node : </b> <a href=""NodeID")%>"+'">'+caption+"<a/>">thwack.solarwinds.com/.../NodeDetails.aspx is down.";
   var contentString = '<div id="content">'+node_url+"<br />IP = <%#Container.DataItem("IP_Address")%><br />Location type = <%#Container.DataItem("Location_Type")%>"+
                        "<br />Device Type = <%#Container.DataItem("MachineType")%></div>";
   var marker = createMarker(point, caption , contentString);

   </ItemTemplate>

<FooterTemplate>

}

var infowindow = new google.maps.InfoWindow(
{
});

function createMarker(latlng, mark_title, html) {
    var contentString_marker = html;
    var marker = new google.maps.Marker({
        position: latlng,
        map: map,
       title: mark_title
         });

    google.maps.event.addListener(marker, 'click', function() {
        infowindow.setContent(contentString_marker);
        infowindow.open(map,marker);
        });
}

</script>
</FooterTemplate>
</asp:Repeater>
</form>

</head>
<body onload="initialize()">
<div id="map_canvas" style="width: 1400px; height: 800px;"></div>
</body>
</html>