non ho dato una letta approfondota al tuo script comunque basta che controlli le 3 lettere e se sono gif, jpg, tif.... o comunque estensioni di immagini gli stampi un'errore.
in paratica:
codice:
arrname=split(File.Name,".")
if arrname(1)="gif" or if arrname(1)="jpg" ... qui metti tutte le estensioni ... then
  responselwrite "ERRORE N° : non è possibile fare l'upload di immagini"
else
  qui metti tutto l'upload
end if