WhoIs

[vgaray]

'Continua

strFind1 = instr(1,xmlGet,my1String,1)
if NOT strFind1 = "" then strFinal1 = mid(xmlGet,strFind1,len(my1String))

strFind2 = instr(1,xmlGet,my2String,1)
if NOT strFind2 = "" then strFinal2 = mid(xmlGet,strFind2,len(my2String))

if NOT strFind1 = "" then RegisterName = mid(xmlGet,strFind1,(strFind2-strFind1))
Set objXML = Nothing
end if
%>
<center>
<%
response.write "<font color=""#FF0000""><br&gt ;<br><b>" & domain & " "
response.write sHTML
response.write "<font color=""#000066"">" & RegisterName & "</font>"

%>
</center>
</body>
</html>


Si necesitas más info para saber como obtener contenido de otro sitio, visita el link http://forosdelweb.com/mensaje.asp?id=63913

Ahi inclusive verás una función que puedes implementar para revisar que tengas el componente necesario y poder ofrecer el servicio 'WhoIs' desde tu sitio.