resim=File.ExtractFileName
resim=LCase(resim)
if right(resim,4)<>".jpg" or right(resim,4)<>".gif" then 'kendine göre ayarla
Set Sil =CreateObject("Scripting.FileSystemObject")
Sil.DeleteFile (Path&resim) 'Path değişkeni yukarıda resmin yüklendiği yer olarak tanımlandı
Set Sil=nothing
response.write "hatalı işlem"
else
'kontrolden geçtikten sonra yaptırılacak işlemler
end if

Persist MIME Type kontrolünü yapamıyor. En azından bu şekilde güvenlik krizini aşabilirsin. İşlemleri onaya tabi tutarsan pek sıkıntı yaşamazsın. kodları for döngüsünün içinde denemen gerekecektir çoklu yükleme yaptırıyorsan. Kolay gelsin.