Me parece que la opción que te dió PMP, es la más sencilla y acertada. Solo indica otras extensiones de imagen y listo.
Fíjate si haces la prueba con esto, funciona a la perfección:
<%
Dim cadena
Dim arrayCadena
Dim I
cadena = "<body><p>Hola Mundo</p><p><img scr=""images/imagen1.jpg"" alt=""imagen del mundo""></p><hr><img scr=""images/imagen2.gif"" alt=""imagen del mundo 2""></p></body>"
arrayCadena = Split(cadena, chr(34))
For I = 0 to Ubound(arrayCadena)
If InStr(arrayCadena(I), ".jpg") OR InStr(arrayCadena(I), ".gif") then
Response.write(arrayCadena(I) & "<br>")
end if
Next
%>