Ajax y asp

Vamos a explicar un poco el concepto ajax.

set http_obj = createObject("Microsoft.XMLHTTP")
* Creamos un objeto
XMLHTTP http_obj.Open "POST",url,false
* Hacemos la conexión
http_obj.Send()
* Consultamos la conexión a la página web
codigo = Server.HTMLEncode(http_obj.responseText)
* Transformamos el texto en html

falta declarar la url del sitio.

url="http://www.google.es/"

Ahora bién, los &,<,>, ' , se van a tomar viento y lo único que se ve es una espécies de código fuente inútil para ser publicado en tu web.

Para eso existe la función que he explicado en el otro pos de abajo.

Function acomodar(cadena)
end function
Esta función lo que hará será reemplazar el texto que se bé en pantalla y transformarlo en un código fuente legíble por cualquier explorador.

function acomodar (cadena)
cadena=replace(cadena,"&amp;amp;amp;amp; lt;","<") cadena=replace(cadena,"& gt;",">")
cadena=replace(cadena,""","'")
cadena=replace(cadena,"& amp;","&")
cadena=replace(cadena,"& amp;# 65535;1","ña")
cadena=replace(cadena,"?","'")
acomodar=cadena
End function

y ahora solo faltaría
codigo=acomodar(codigo)
He imprimir el código en pantalla.

Código completo (quitar los espacios de la cadena replace, sq sino no se vería el código en el blog):

function acomodar (cadena)
cadena=replace(cadena,"& lt;","<")
cadena=replace(cadena,"& gt;",">")
cadena=replace(cadena,"& quot;","'")
cadena=replace(cadena,"& amp;","&")
cadena=replace(cadena,"& #65535;1","ña")
cadena=replace(cadena,"& #65535;","'")
acomodar=cadena
End function

url="http://www.google.es"
set http_obj = createObject("Microsoft.XMLHTTP")
http_obj.Open "POST",url,false
http_obj.Send()
codigo = Server.HTMLEncode(http_obj.responseText)
codigo=acomodar(codigo)
response.write codigo

P.D: Si tenéis problemas con otros carácteres como acentos, dieresis, ñ, ç, y otros, solo necesitáis añadir esas líneas en la cadena replace. cadena=replace(cadena,"& aacute","á") etc...
Si usáis este código, pediría que hiciérais referencia a este blog ya que me lo he currado y no está copiado y pegado, ya se que no se hace casi nunca, pero algún dia se debe empezar.
Gracias de antemano.

SALU2 RK (Códigos desenvolupados o modificados, en ningún caso copiados)