<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% OPTION EXPLICIT %>
<%
'If they picked a servertype & checktype, set it as a cookie for next time
If Request.Form("ServerType") <> "" then
Response.Cookies("ServerType") = Request.Form("ServerType")
Response.Cookies("ServerType").Expires = Date + 365
Response.Cookies("CheckType") = Request.Form("CheckType")
Response.Cookies("CheckType").Expires = Date + 365
End If
If Request.Cookies("ServerType") = "" then
Response.Cookies("ServerType") = "%"
Response.Cookies("ServerType").Expires = Date + 365
End If
If Request.Cookies("CheckType") = "" then
Response.Cookies("CheckType") = "%"
Response.Cookies("CheckType").Expires = Date + 365
End If
'Set up variables
Dim strLabel
Dim intFullSize
Dim intResponse
Dim strResponse
Dim intGreen
Dim intRed
Dim intStart
Dim intEnd
Dim intMin
Dim intMax
Dim intAvg
Dim strThisServerType
Dim strThisCheckType
Dim strGraphType
%>
brentozar.com - ServersAlive status
As Of
Status
Pretty Name
Check & Response
Roundtrip Specs
Uptime
<%
'Strip out the server type from the pretty name
strThisServerType = ""
strThisCheckType = "DISKSPACE"strThisCheckType = "EXTERNAL"strThisCheckType = "IPXPING"strThisCheckType = "NETWARE"strThisCheckType = "ORACLE"strThisCheckType = "PING"strThisCheckType = "PROCESS"strThisCheckType = "SERVICE"strThisCheckType = "NETWARE"strThisCheckType = "SQL"strThisCheckType = "UDP"strThisCheckType = "URL"strThisCheckType = "WINSOCK"
intStart = inStr(1,"","[")
intEnd = inStr(1,"","]")
If intStart > 0 AND intEnd > 0 then
strThisServerType = Mid("",intStart+1,(intEnd-intStart-1))
End If
'Filter out what to show
If (Request.Cookies("CheckType") = "%" OR Request.Cookies("CheckType") = strThisCheckType) AND (Request.Cookies("ServerType") = "%" OR InStr(strThisServerType,Request.Cookies("ServerType")) OR strThisServerType = "") then
%>
<%
'Only write since-date if it's been down
If > 0 then Response.Write("since ")
%>
Last:
Avg:
Max:
Min:
">
Up:
Down:
<%
End If 'If (Request.Cookies("CheckType....
%>
ServersAlive Version . cycles since started.
For explanations of how I'm doing the filtering, check out my ServersAlive
tips.
