[xanburzum]

A função retornará True para URL de imagem válida e False para URL inválida.

checarImagem.asp

<%
Function checarImagem(url)
              Dim objHttp, varresultado
        
        On Error Resume Next
        
        Set objHttp = Server.CreateObject("MSXML2.XMLHTTP")
        objHttp.Open "GET", url, False
        objHttp.Send
        varresultado = objHttp.getResponseHeader("Content-type")
        Set objHttp = Nothing
        
        If ((inStr(varresultado,"image") > 0) And (Err.Number = 0)) Then
                varresultado = True
        Else
                varresultado = False
        End If
        
        checarImagem = varresultado
End Function
%>

Usando a função:

<!--#include file='checarImagem.asp'-->
<%
Response.Write checarImagem ("http://seu_dominio.com.br/imagens/img01.jpg")
%>