<%
strResimPathi = "C:\Inetpub\vhosts\siteadi.com\httpdocs\uploads\"
strBolmeOrani = "20" ' %20 sini thumb edecek - 5 e bölecek

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

	Upload.SetMaxSize 5600000, True 'Maksimum dosya boyutu
	Upload.Save

Set File = Upload.Files("THEFILE")
	
	If File Is Nothing Then
		strUrunResim = "Resimyok.gif"
	Else
	
		strDosyaAdi = File.Filename
		strDosyaUzantisi = Lcase(Right(File.Filename,4))
		
		If strDosyaUzantisi = ".jpg" OR strDosyaUzantisi = ".png" OR strDosyaUzantisi = ".gif" Then 'Uzantılar kontrol ediliyor
			File.SaveAs strResimPathi & strDosyaAdi
				
				On Error Resume Next
				Jpeg.Open File.Path
				strScale = strBolmeOrani
				Jpeg.Width = Jpeg.OriginalWidth * strScale / 100
				Jpeg.Height = Jpeg.OriginalHeight * strScale / 100
				Jpeg.Save Server.MapPath("Uploads") & "\thumb_" & strDosyaAdi
			Else
			File.Delete
		End If
		
	End If
%>