funcion existe carpeta remota

[lexus]

ok alzuaga, perfecto estamos totalmente de acuerdo, ya habia soluciondo ese problema
asi"

<%
Function verificar_heladeria(strURL)
Dim objXMLHTTP, strHTML
Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
objXMLHTTP.Open "GET", strURL, False
objXMLHTTP.setRequestHeader "Accept-Language", "sp"
objXMLHTTP.setRequestHeader "Pragma", "no-cache"
objXMLHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objXMLHTTP.SetRequestHeader "Content-Type", "text/html"
objXMLHTTP.SetRequestHeader "charset", "iso-8859-1"
objXMLHTTP.Send ' linea 12
If objXMLHTTP.Status = 404 Then
verificar_heladeria = false
Else
verificar_heladeria = true
End If
Set objXMLHTTP = Nothing
End Function
%>



y me estaba funcionando con las pruebas localmente en mi red de la empresa pero coloce un ip ke esta lejos fuera de mi red y me saco este error.


Tipo de error:
msxml3.dll (0x80072EFD)
A connection with the server could not be established
verificar_conexion.asp, línea 12


ke podra ser?

pd: tengo acceso a la maquina remota pero no puedo colocar nada alli ni instalar nada. solo leer y cambiar unos cuantos permisos de resto nada mas.