<%
id=Request.QueryString("id")
ScriptTimeOut=800
Response.CharSet = "iso-8859-5"
Session.CODEPAGE = "28595"
Session.LCID = 1055
set urunler=bag.execute("select * from acilirresim where id="&id)
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' Open source image
Jpeg.RegKey = "30582-30066-77091"
Jpeg.Open server.MapPath(urunler("resim"))
' New width
L = 587
Width=Jpeg.OriginalWidth * L / Jpeg.OriginalHeight
' Resize, preserve aspect ratio
'Jpeg.Width = L
'Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth
'response.Write(Jpeg.Width)
'genislik = cint(Request.Cookies("EkranGenislik") - (450 + Jpeg.Width))
'response.Write(genislik)
' create thumbnail and save it to disk
%>