Verificar si es fichero IMAGE al bajar de URL con ServerXMLHTTP

[jose_cab]

Muy buenas.

Tengo una rutina que utilizo para bajar imagenes de otros servidores conociendo su URL y luego grabarlas en mi servidor, para sincronizar mi e-comerce

Ahora tengo un problema que llevo varios días y no puedo resolver, he buscado aquí y en google, pero no acabo de localizar la solución.

La rutina es la siguiente:

Código:

Ruta_img = "http://... cualquier URL donde hay una foto .jpg ó .gif"

Set objHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
objHTTP.SetTimeouts 50000, 60000, 10000, 100000 
objHTTP.Open "GET", Ruta_img, false	 '-- Cogemos la imagen		
objHTTP.Send
'-- Verificamos si hay algo en la URL
If objHTTP.statusText <> "OK" Then  '-- La URL es incorrecta
    HayFoto = "0"
    Set objHTTP=Nothing
Else	
    HayFoto = "1"
End If

Funciona perfectamente, el problema es que solo verifico si la URL es correcta o no.
El problema es con la siguiente URL y otras similares:

http://www.kramerspain.com/images/pr...hres/103AV.jpg

Podéis probarla y veréis que no muestra la foto, pero tampoco da error. Por el contrario esta otra funciona correctamente:

http://www.kramerspain.com/images/pr...ghres/101L.jpg

Aparentemente funciona y no da error, pero lógicamente no hay foto válida, por lo que si posteriormente intento abrir "peta" porque al abrir el Jpeg.OpenBinary no puede abrir la imagen que no existe

Código:

If HayFoto = "1" Then				
   Set Jpeg = Server.CreateObject("Persits.Jpeg")		
   Jpeg.OpenBinary(objHTTP.responseBody)
   ..
   ..
End If

Necesito verificar si es una imagen válida para poder abrirla o simplemente no abrirla.

Espero vuestra ayuda, tengo que dejar resuelto esto antes del lunes

Gracias a todos de antemano

[jose_cab]

ME RESPONDO YO MISMO.
Lo dejo aquí por si alguien lo necesita.

Solo hay que verificar que realmente la imagen nos llega y que no está vacia presentandose como un Array

Código:

'-- Verificamos si hay algo en la URL
If objHTTP.statusText <> "OK" Then	'-- La URL es incorrecta
   HayFoto = "0"
   Set objHTTP=Nothing
Else	
   If IsArray(objHttp.ResponseBody) = TRUE Then
      HayFoto = "1"
   Else                               '-- URL Correcta, pero NO hay Foto
      HayFoto = "0"
      Set objHTTP=Nothing
   End If						
End If

Funciona perfectamente.

Si alguien quiere mejorarlo, se agradece.

Saludos y buenas vacaciones a quie esté o las tenga que hacer