Lo que tu necesitas esta en
este post... (que esta en la Biblioteca de Clases, Funciones y Sub-Rutinas...)
Es para ver código fuente (HTML) de otras páginas, este en el dominio que este.
Las formas que se me ocurren para que lo implementes son dos:
La mas simple:
Código:
<%
set http_obj = createObject("Microsoft.XMLHTTP")
ulr = "http://servidor1/ingresar.asp"
http_obj.Open "GET", url, false
http_obj.Send()
codigo = Server.HTMLEncode(http_obj.responseText)
If codigo <> "" Then
Response.Write("El Servidor esta activo")
End If
%>
Y esta otra forma que es un poco mas caprichosa:
En la pagina consultada si esta on-line le pones algo asi:
Código:
If Request.QueryString("comprobar") = "true"
Response.Write("Hola soy el Servidor, te informo que estoy activo ")
Response.Write("si queres tambien te puedo pasar algunos datos, ")
Response.Write("ya que yo puedo consultar localmente la base de datos, ")
Response.Write("y pasartelos como lo hago con este texto...")
End If
Y en la pagina que realiza la consulta:
Código:
set http_obj = createObject("Microsoft.XMLHTTP")
ulr = "http://servidor1/ingresar.asp?comprobar=true"
http_obj.Open "GET", url, false
http_obj.Send()
codigo = Server.HTMLEncode(http_obj.responseText)
If codigo <> "" Then
Response.Write(codigo)
End If
Espero que te sirva!!
Saludos!!
