Kan ikke få aspping til at vise resultet

Hej med jer

Nu har jeg brugt flere timer på at få aspping til virke, men den vil bare ikke skrive resultatet !!
min kode er :
<%
link = "www.eksperten.dk"
Set Ping = Server.CreateObject("AspPing.Conn") 'ASPping
    Ping.RemoteHost =link  'Her angives hvilken side der skal testes
    Ping.PingCount = 1
    Ping.Ping
Response.write Ping.Ping
Set Ping = nothing 'Lukker ASPping

%>
men hvis jeg taster en adresse ind som jeg ved ikke svare så vil den gerne skrive noget med "bad ...."
ellers viser den bare ingen ting og jeg ved jeg har haft det til at virke !!

100 point for hurtig hjælp