Para realizar una verificación de una url en un desarrollo en asp utilice este codigo, me permitio verificar si existian unas imagenes en el server caso contrario mostrar otra ruta, no utilice FileExits porque las imagenes no estaban en el mismo servidor.
<%
revisar_url = "http://www.tutores.org"
Response.write "<br>Revisando:<b>" & revisar_url & "</b><br>"
If comprobar_componente("Msxml2.XMLHTTP") Then
Select Case Revisar_esta_url(revisar_url)
Case 200 : Response.Write "La url Si existe."
Case 404 : Response.Write "El sitio web existe, pero no la pagina especificada"
Case Else : Response.Write "La url indicada ouede que no exista"
End Select
Else
Response.Write "Necesitas tener instalado el componente Msxml2.XMLHTTP"
End if
Function comprobar_componente(ProgId)
Dim objeto_temp
On Error Resume Next
Set objeto_temp = Server.CreateObject(ProgId)
If Err.Number = 0 Then
comprobar_componente = True
Else
comprobar_componente = False
End If
Set objeto_temp = Nothing
End Function
Function Revisar_esta_url(strURL)
Dim objXML
Set objXML = CreateObject("Msxml2.XMLHTTP")
objXML.open "GET", strURL, false
On error resume next
objXML.send
Revisar_esta_url = objXML.Status
End Function
%>
Fuente
tutores.org
