<%@LANGUAGE = VBScript%>
<%
Dim indirizzo, xmlhttp, stato
indirizzo = "http://www.mrwcorsi.it"
Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP")
On Error Resume Next
xmlhttp.Open "GET", indirizzo, False
xmlhttp.Send
stato = xmlhttp.Status
If CInt(stato) = 12007 Then
Response.Write "Dominio libero"
Else
Response.Write "Dominio occupato"
End If
Set xmlhttp = Nothing
%>
|