| Zone Check. |
<%if request("ledomaine")<>"" then%>
<%
on error resume next
set mWhoIs = Server.CreateObject("DIWhoIS.DiWhoIs")
mWhoIs.Host = "whois.internic.net"
if Instr(request("ledomaine"),".org") <>0 then mWhoIs.Host = "whois.opensrs.net"
if Instr(request("ledomaine"),".fr") <>0 then mWhoIs.Host = "whois.nic.fr"
if Instr(request("ledomaine"),".info") <>0 then mWhoIs.Host = "whois.afilias.info"
mWhoIs.Domain = request("ledomaine")
mWhoIs.Port = 43
mWhoIs.Lookup
response.write ""
set mWhoIs = nothing
%>
<%end if%>
|
(*) : Saisissez le nom de domaine sans les www. |
