Fotolar 96Dpi a kadar sorunsuz şekilde yükleniyor. Fakat 300 Dpi gibi yüksek çözünürlüklerde Küçük boy ve orta boy olarak yüklenmiyor. Sorun ne olabilir?
Aşağıda sorun verenleri belirttim.
Yardımcı olabilecek arkadaşlar var mıdır?

function urunfotoisle(fotograf_adresi,DOSYAADI)
			PATH = server.MapPath(fotograf_adresi)
			yukleme_klasoru = server.MapPath(calisan_klasor & "/uploads/products")
			
			'Kare fotoğraf
				Set Jkucuk = Server.CreateObject("Persits.Jpeg")
							Jkucuk.Open PATH
							Jkucuk.quality = 100		
							kare = int(ayar(70))
							Jkucuk.Canvas.Brush.Color = &HFFFFFF ' Red
							Jkucuk.Canvas.Pen.Color = &HFFFFFF
						If Jkucuk.TransparencyColorExists Then
						  Jkucuk.ReplaceColor Jkucuk.TransparencyColor, &HFFFFFF
						End If 
							if int(ayar(76)) = 1 then
								cw = Jkucuk.OriginalHeight
								cy = Jkucuk.OriginalWidth
							else
								cw = Jkucuk.OriginalWidth
								cy = Jkucuk.OriginalHeight
							end if
				
						If  cy < cw  Then  
							Jkucuk.Width  = kare
							Jkucuk.Height = Jkucuk.OriginalHeight * Jkucuk.Width / Jkucuk.OriginalWidth 
							kenarpayi    =  Round(Int((Jkucuk.Height-kare)/2)) 
							Jkucuk.Crop 0, kenarpayi, kare, kare+kenarpayi
						Else  
							Jkucuk.height  = kare
							Jkucuk.width   = Jkucuk.OriginalWidth * Jkucuk.Height / Jkucuk.OriginalHeight 
							kenarpayi     =  Round(Int((Jkucuk.Width-kare)/2))
							Jkucuk.Crop kenarpayi, 0, kare+kenarpayi, kare
						end if
						Jkucuk.Save yukleme_klasoru&"/square/"&DOSYAADI
				
	'küçük boy fotoğraf ----- 300Dpi da sorun veriyor...
				set Jpeg = server.CreateObject("Persits.Jpeg")
				set jOrjinal = server.CreateObject("Persits.Jpeg")
				jOrjinal.open PATH
				jOrjinal.Quality = 100
				Jpeg.Quality = 100
				Jpeg.New int(ayar(1)), int(ayar(11)), &HFFFFFF
				
				
				if int(ayar(76)) = 1 then
					
					if int(ayar(1)) / int(ayar(11)) > jOrjinal.OriginalWidth / jOrjinal.OriginalHeight then
						jOrjinal.Width = int(ayar(1))
						jOrjinal.Height = jOrjinal.OriginalHeight * jOrjinal.Width / jOrjinal.OriginalWidth 
						
					else
						jOrjinal.Height = int(ayar(11))
						jOrjinal.width   = jOrjinal.OriginalWidth * jOrjinal.Height / jOrjinal.OriginalHeight 
					end if
					
				else
					if int(ayar(1)) / int(ayar(11)) > jOrjinal.OriginalWidth / jOrjinal.OriginalHeight then
						jOrjinal.Height = int(ayar(11))
						jOrjinal.width   = jOrjinal.OriginalWidth * jOrjinal.Height / jOrjinal.OriginalHeight						
					else
						jOrjinal.Width = int(ayar(1))
						jOrjinal.Height = jOrjinal.OriginalHeight * jOrjinal.Width / jOrjinal.OriginalWidth 	
					end if
				end if
				
					X = (int(ayar(1)) - jOrjinal.Width) / 2
					Y = (int(ayar(11)) - jOrjinal.Height) / 2
				Jpeg.Canvas.DrawImage X ,Y, jOrjinal
				Jpeg.Save yukleme_klasoru&"/small/"&DOSYAADI
				
	' orta boy fotoğraf ---- 300Dpi da sorun veriyor...
				set Jpeg = server.CreateObject("Persits.Jpeg")
				set jOrjinal = server.CreateObject("Persits.Jpeg")
				jOrjinal.open PATH
				jOrjinal.Quality = 100
				Jpeg.Quality = 100
				Jpeg.New int(ayar(2)), int(ayar(12)), &HFFFFFF
				Jpeg.pngoutput = true
				
				if int(ayar(76)) = 1 then
					
					if int(ayar(2)) / int(ayar(12)) > jOrjinal.OriginalWidth / jOrjinal.OriginalHeight then
						jOrjinal.Width = int(ayar(2))
						jOrjinal.Height = jOrjinal.OriginalHeight * jOrjinal.Width / jOrjinal.OriginalWidth 
						
					else
						jOrjinal.Height = int(ayar(12))
						jOrjinal.width   = jOrjinal.OriginalWidth * jOrjinal.Height / jOrjinal.OriginalHeight 
					end if
					
				else
					if int(ayar(2)) / int(ayar(12)) > jOrjinal.OriginalWidth / jOrjinal.OriginalHeight then
						jOrjinal.Height = int(ayar(12))
						jOrjinal.width   = jOrjinal.OriginalWidth * jOrjinal.Height / jOrjinal.OriginalHeight						
					else
						jOrjinal.Width = int(ayar(2))
						jOrjinal.Height = jOrjinal.OriginalHeight * jOrjinal.Width / jOrjinal.OriginalWidth 	
					end if
				end if
				
			
					X = (int(ayar(2)) - jOrjinal.Width) / 2
					Y = (int(ayar(12)) - jOrjinal.Height) / 2
				Jpeg.Canvas.DrawImage X ,Y, jOrjinal	
				Jpeg.Save yukleme_klasoru&"/medium/"&DOSYAADI
				
	' büyük boy fotoğraf
				set Jpeg = server.CreateObject("Persits.Jpeg")
				set jOrjinal = server.CreateObject("Persits.Jpeg")
				jOrjinal.open PATH
				jOrjinal.Quality = 100
				Jpeg.Quality = 100
				Jpeg.New int(ayar(3)), int(ayar(4)), &HFFFFFF
				Jpeg.pngoutput = true
				
				
				
				if int(ayar(76)) = 1 then
					
					if int(ayar(3)) / int(ayar(4)) > jOrjinal.OriginalWidth / jOrjinal.OriginalHeight then
						jOrjinal.Width = int(ayar(3))
						jOrjinal.Height = jOrjinal.OriginalHeight * jOrjinal.Width / jOrjinal.OriginalWidth 
						
					else
						jOrjinal.Height = int(ayar(4))
						jOrjinal.width   = jOrjinal.OriginalWidth * jOrjinal.Height / jOrjinal.OriginalHeight 
					end if
					
				else
					if int(ayar(3)) / int(ayar(4)) > jOrjinal.OriginalWidth / jOrjinal.OriginalHeight then
						jOrjinal.Height = int(ayar(4))
						jOrjinal.width   = jOrjinal.OriginalWidth * jOrjinal.Height / jOrjinal.OriginalHeight						
					else
						jOrjinal.Width = int(ayar(3))
						jOrjinal.Height = jOrjinal.OriginalHeight * jOrjinal.Width / jOrjinal.OriginalWidth 	
					end if
				end if
				
				
					X = (int(ayar(3)) - jOrjinal.Width) / 2
					Y = (int(ayar(4)) - jOrjinal.Height) / 2
					jpeg.quality = 100
					Jpeg.pngoutput = true	
					Jpeg.Canvas.DrawImage X ,Y, jOrjinal
				
				
				Jpeg.Save yukleme_klasoru&"/large/"&DOSYAADI
				
				if int(ayar(24)) = 1 then
					set jx = server.CreateObject("Persits.Jpeg")	
					jx.open PATH
					jx.quality = 100
					jx.pngoutput = true	
					jx.Canvas.Font.Color = &HFFFFFFFF ' white
					Text = ayar(25)
					jx.Canvas.Font.Size = 12
					jx.Canvas.Font.Opacity = 0.5
					jx.Canvas.PrintTextEx Text, 50, 50, "c:\Windows\Fonts\Arial.ttf" 
					jx.Save yukleme_klasoru&"/large/"&DOSYAADI
				end if	
	end function