25/06/2002, 12:29
|
 | | | Fecha de Ingreso: octubre-2001
Mensajes: 698
Antigüedad: 23 años, 7 meses Puntos: 2 | |
| Re: Whois con ASP
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> ;<br><b>" & domain & " "
response.write sHTML
response.write "<font color=""#000066"">" & RegisterName & "</font>"
%>
</center>
</body>
</html> |