Efter en snabb sökning på google.
<form method=post>
<center>
<table width="90%">
<tr><td>Host Name/Address: <td><input type=text name=host value="www.yahoo.com" size=50>
<tr><td>Timeout (seconds): <td><input type=text name=timeout value="10" size=5>
<tr><td><td><input type=submit value=" Ping Now! ">
</table>
</center>
</form>
<%
If Request("REQUEST_METHOD") = "POST" Then
Set ping = Server.CreateObject("IPWorksASP.Ping")
ping.Timeout = Request.Form("timeout")
ping.Ping Request.Form("host")
%>
<hr>
<center>
<table width="90%">
<tr>
<th>Response Source</th>
<th>Response Time (ms)</th>
</tr>
<tr>
<td><% =ping.ResponseSource %></td>
<td><% =ping.ResponseTime %></td>
</tr>
</table>
</center>
<%
End If
%>
<% Trailer %>
Koden.
Thomas