hola gracias por la ayuda a todos, actualmente lo estoy haciendo asi
ke solo me muestre false cuando no encuentre la pagina, pero cuando el computador esta apagado me saca otro error.
hay forma de que cuando el copmputador al ke trato de conectarme este apagado me devuelva false y no ese errror feo ke sale?
<%
Function verificar_conexion(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
If objXMLHTTP.Status = 404 Then
verificar_heladeria = false
Else
verificar_heladeria = true
End If
Set objXMLHTTP = Nothing
End Function
%>
el error ke me sale es este
HTTP 500.100. Error interno del servidor: error de ASP
Servicios de Internet Information Server Información técnica (para personal de soporte técnico)- Tipo de error:
msxml3.dll (0x80072EFD)
A connection with the server could not be established
/includes/verificar_c.asp, línea 12