l'unico metodo che mi viene in mente è usare FSO.

Innanzitutto controlli quindi che il file esiste, se esiste l'immagine sarà quella pescata dal database, altrimenti sarà quella di default...per intenderci:

codice:
Dim fso, msg, pathImm
   Set fso = CreateObject("Scripting.FileSystemObject")
   If (fso.FileExists(server.Mappath("/vetrina/"&ris("categoria")&"/"&ris("Codice")&".jpg"))) Then
      pathImm = "vetrina/"&ris("categoria")&"/"&ris("Codice")&".jpg")
   Else
      pathImm = "path/di/default"
   End If
   set fso=nothing
non l'ho testato ma l'idea è quella