<%
'Örneğin : ?path=resimler/snap.jpg&bx=100

Response.Expires = 0

If Not Request("path")="" Then

	Set Jpeg = Server.CreateObject("Persits.Jpeg") 'Bileşen çağırılıyor

	Jpeg.Open( Server.MapPath(Request("path")) ) 'Sayfa adres yerinde resmin adresi

	ebat = Request("width")
	kirpilacak = Request("height") 'Örn : 80

	If kirpilacak="" Then
		ekle = 20
	End if
	
	If ebat="" Then
		ebat = Jpeg.OriginalWidth
	End if
	
   ekle = ebat-kirpilacak

	

		Jpeg.height = ebat
		Jpeg.width = Jpeg.OriginalWidth * Jpeg.Height / Jpeg.OriginalHeight
		kenarpayi = Round(Int((Jpeg.Width-ebat)/2))
		Jpeg.Crop kenarpayi, 0+(ekle/2), ebat+kenarpayi, ebat-(ekle/2)

	

	Jpeg.SendBinary ' sunucuya gönder...

End if
%>