Set Upload = Server.CreateObject("Persits.Upload")
Set Jpeg = Server.CreateObject("Persits.Jpeg")

Upload.Save Server.MapPath("klasor")

For Each File in Upload.Files
If File.Ext <> ".jpg" and File.ext <> ".gif" Then
File.Delete
else
Jpeg.Open File.Path
Jpeg.Width = 60
Jpeg.Height = 60
Jpeg.Save Server.MapPath("klasor") & "\kucuk_" & File.FileName
File.Delete
end if
Next

set upload = nothing
set jpeg = nothing

şeklinde yapabilirsin. Ayrıca resimlerin scalesi bozulmasın istiyorsan;

Jpeg.Open File.Path'ten sonraya

genislik = jpeg.width
yukseklik = jpeg.height

şeklinde asıl değerleri al sonra da getirmek istediğin boyut 60px ya ona göre yazıyorum;

kucultmeorani = 60 / genislik

şimdide yeni sizeları verelim

jpeg.width = 60
jpeg.height = jpeg.height * kucultmeorani

sonrasi zaten yukarda var...