Função para verificar se a URL da imagem existe

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

Function verificaImagem(url)
'-------------------------------------
' Função desenvolvida por Hargon
' Fórum iMasters
'-------------------------------------
Dim objHttp, resultado

On Error Resume Next

Set objHttp = Server.CreateObject("MSXML2.XMLHTTP")
objHttp.Open "GET", url, False
objHttp.Send
resultado = objHttp.getResponseHeader("Content-type")
Set objHttp = Nothing

If ((inStr(resultado,"image") > 0) And (Err.Number = 0)) Then
resultado = True
Else
resultado = False
End If

verificaImagem = resultado
End Function

Response.Write verificaImagem("http://forum.imasters.com.br/style_images/10/logo5.gif")