få fel meddeland när databasen är ner

Du kanske kan mixtra ihop denna kod med solbulles kod jag hittade på en sökning, solbulles är för en komponent.

Dim Shl,fso,TextFile 
       Set Shl = Server.CreateObject("wscript.shell") 
       Shl.run "%comspec% /c ping 127.0.0.1 > testping.txt",0,true 
       Set Shl = nothing 
       Set fso = createobject("scripting.filesystemobject") 
       Set TextFile= fso.opentextfile("testping.txt") 
       Response.write TextFile.ReadAll 
        
       Set fso = Nothing 
       Set TextFile = Nothing

 url = "www.webforum.nu,[url]www.solbulle.com,www.hotmail.com[/url]"

arrayurl = Split(url, ",")

Set Pinger = Server.CreateObject("AspPing.Conn")

For i = 0 to ubound(url)

Pinger.RemoteHost = arrayurl(i)
Pinger.PingCount = 2

If Len(Pinger.Ping) Then
	Response.Write arrayurl(i) & " är Offline<br>"
Else
	Response.Write arrayurl(i) & " är Online<br>"
End If
Next
Set Pinger = nothing
%>

Skulle det inte räcka med On Error Resume Next...

Typ

[red]
On error Resume Next
'div databaskopplingar
If error <> 0 then
'Nått blev fel
Else
'allt är ok
End If
[/red]

som sagt typ nått sånt ;)

mvh icaaq