brentozar.com - ServersAlive status

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% OPTION EXPLICIT %> <% Dim strLabel Dim intFullSize Dim intResponse Dim strResponse Dim intGreen Dim intRed Dim intStart Dim intEnd %> brentozar.com - ServersAlive status

ServersAlive Status As Of

Status	Pretty Name	Check & Response	Roundtrip Specs	Uptime	Graph
<% 'Only write since-date if it's been down If > 0 then Response.Write("since ") %>			Last: Avg: Max: Min:	"> Up: Down:	<% intResponse = 0 strResponse = "0" strResponse = ("") If inStr(strResponse,"B") then strResponse = LEFT(strResponse, inStr(strResponse,"B")-2) intResponse = cdbl(strResponse) End If If intResponse <> 0 then intStart = inStr(1,"","{") intEnd = inStr(1,"","}") If intStart > 0 AND intEnd > 0 then intFullSize = cdbl(Mid("",intStart+1,(intEnd-intStart-1))) intGreen = Round(intResponse / intFullSize * 100,0) intRed = 100 - intGreen Response.Write("") Response.Write(" ") Response.Write(intResponse & " (" & intGreen & "%) free of " & intFullSize & "") End If End If %>

ServersAlive Version . cycles since started.

For explanations of how I'm doing the little bar graphs, check out my ServersAlive tips.