Checke om en http server er online

jeg har selv på st tidskunkt brugt noget kode som fortalte om en server var oppe eller jeg brugt at sende en ping fra en asp fil eller en vbs fil

her er et eks med en vbs fil og så skal du jo bare rette lidt så du får vist en farve koden er den samme i asp

url_adresse="eksperten.dk"


    Set myping = Createobject("Dynu.Ping")
    resultat = (myping.ping(url_adresse, 1, 32, 5000))
    Set myping = nothing

        if InStr(resultat,"(0%")=0 then  ' hvis der ikke var forbindelse ventes der xx sek og der prøves igen
            set mywait = createobject("Dynu.Wait")
            ' the below line will cause a wait of 10 seconds
            mywait.Wait(10)
            set mywait = nothing


            Set myping = Createobject("Dynu.Ping")
            resultat = (myping.ping(url_adresse, 1, 32, 5000))
            Set myping = nothing
            status = "OFF"
            'Msgbox  "Anden test : server "& url_tekst & "med adresse " &url_adresse & " har status "& status

        else
        end if
   

            Select Case InStr(resultat,"(0%")
                Case 0 ' ingen forbindelse til serveren
                status = "OFF"

                Case Else ' der var forbindelse til serveren
                status = "ON"
            End Select
Msgbox  "Servenren er :"& status



du skal dog lige hente en komponent fra http://www.dynu.com ( er gratis)

en andne mulighed : http://activedeveloper.dk/download/default.asp?mode=showdownload&id=766

Lukker, det sprm er slet ikke oprettet af mig..  hva fanden.