Estimado moncherote, la verdad que no sé a qué código te referís porque dentro de todo soy nuevo en este foro, pero si lo que querés hacer es incluir cualquier página dentro de las tuyas es muy fácil, lo único que tenés que hacer es usar un componente.
Personalmente utilizo el Microsoft XMLHTTP 3.0 que es el que tengo instalado en mi servidor y si vos tenés un servidor Windows 2000 seguramente también lo tengas.
Podés probar un código como este:
<% Dim objHTTP, enlace
enlace = Request("enlace")
if enlace <> "" then
Set objHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP.3.0")
Dim HTTPResponseBody
objHTTP.Open "GET", enlace, False
objHTTP.Send
HTTPResponseBody = objHTTP.ResponseText
Set objHTTP = Nothing
resultado = HTTPResponseBody
end if %>
<form action="pruebahttp.asp">
<input type="text" name="enlace" size="30"><input type="submit" value="enviar">
</form>
<%= resultado %>
A ver si es eso lo que querés.
Evidentemente lo podés modificar para usarlo adentro de una función y pasarle como parámetro la dirección que querés capturar, pero eso te lo dejo a vos para que te diviertas
. Igual si precisás una mano para hacerlo no dudes en pedirla
Espero que te sirva
