No lo he probado pero podría ser algo así
Código:
Function Pics(byval strpath)
filename = Server.MapPath(strpath)
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists(filename) Then
Response.write("<img src=" & strpath &">
Response.end
Else
Response.write("<img src=""./blank.jpg"">")
Response.end
End If
End Function
Suerte