' transfer ettiğimiz dosyayı isimlendirirken dosya adına günün tarihini iliştirmesi için aşama oluşturuyoruz...
' dosyayı transfer ettikten sonra bu verileri kullanacağız. cpr1 : tarih, cpr2 : ay, cpr3 : gün

cpr1=Year(date)				' tarih için Yılı öğrendik

if month(date) < 10 then	' eğer ay 10 rakamından küçükse başına 0 ekledik
cpr2 = "0" & month(date)
else
cpr2 = month(date)			' değilse ayı olduğu gibi aldık 
end if

if Day(date) < 10 then		' eğer gün 10 rakamından küçükse başına 0 ekledik
cpr3 = "0" & Day(date)
else
cpr3 = Day(date)			' değilse günü olduğu gibi aldık
end if

' tarih oluşturma bölümü bitti


Randomize
Numara = INT (RND*9999999999)+1 ' Rastgele otomatik sayılar ürettiriyoz.

Server.ScriptTimeout=1000  
Set Upload = Server.CreateObject("Persits.Upload.1")  
Upload.OverwriteFiles = False  
DosyaKontrol = Upload.SaveToMemory  

If DosyaKontrol = 0 Then 
   Response.Write "Lütfen yüklemek üzere bir dosya seçiniz..."
   Response.End 
End If

For Each File in Upload.Files
If FILE.EXT<>".rar" then 'bu tip dosyalara müsaade veriyoruz
If FILE.EXT<>".zip" then
If FILE.EXT<>".doc" then
If FILE.EXT<>".xls" then
If FILE.EXT<>".pdf" then
If FILE.EXT<>".flv" then
If File.ImageType="UNKNOWN" Then  'biraz önce müsaade verdiklerimizin dışında bütün resim formatlarını kabul ediyoruz.
Response.Write "Yüklemek istediğiniz dosya türüne müsaade verilmemiş / yasaklanmış..."   
Response.End  
End If
End if
End if
End if
End if
End if
End if
Next


Set dosya = Upload.Files ("dosya")'<input class="form" type="file" name="dosya" size="35"> buradaki name="dosya" ismi ne ise Upload.Files ("") içine yazıyoruz.
dosyaadi = cpr1&cpr2&cpr3&"_"&Numara&Right(dosya.FileName,4)
Path = Server.MapPath(dosyanuyeri/" & dosyaadi) 
dosya.SaveAs Path

Set Jpeg = Server.CreateObject("Persits.Jpeg" )
Jpeg.Open Path
Jpeg.Width = 600
jpeg.Height = Jpeg.OriginalHeight * Jpeg.Width / Jpeg.OriginalWidth
Jpeg.Canvas.Brush.Solid = False
Path2 = Server.MapPath(dosyayeri/" & dosyaadi)
Jpeg.Save Path2