mio
  whois
 
<%@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 %>

 
 
  Oggi ci sono stati già 29 visitatori (48 hits) qui!  
 
Questo sito web è stato creato gratuitamente con SitoWebFaidate.it. Vuoi anche tu un tuo sito web?
Accedi gratuitamente