Como saber si el sql server esta activo?

[Mario san]

Que tal,

para un proyecto que tengo quisiera poner el estado del SQL server:
Activo o Incactivo, o sea si el servicio esta levantado o no, hay alguna
forma de verificarlo con ASP?

[AlZuwaga]

yo lo haría así

on error resume next
'intentás conectarte aquí al servidor SQLServer
if err.number <> 0 then
response.write "el servidor sql server no está arriba"
else
response.write "el servidor sql server está arriba"
end if
err.clear

[Mario san]

Creo que no entendi bien :

Código:

on error resume next

Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_Access_STRING
Recordset1.Source = "SELECT * FROM tmarios"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0

if error.number <> 0 then
estado = "<span class=""verde""> Activo</span>"
else
estado =  "<span class=""rojo""> Inactivo</span>"
end if
error.clear