<% dim nocom,descfolder,aspj,title,cols,uname,passcookie,iwidth,linkurl,linktext,prot,usewidth,viewwidth,allowfs,hdrclr,cellclr,bgclr session("galusername") = "single" nocom="ההגדה לבית עבו" descfolder="descriptions" aspj="1" title="?????? ??????" cols="4" uname="refa55" passcookie="refa44" iwidth="100" linkurl="http://www.abbo.org/gallery" linktext="?? ???? ????" prot="0" usewidth="1" viewwidth="350" allowfs="1" hdrclr="#716F64" cellclr="#E5E7E9" bgclr="#F5F5FB" %> <% dim fact,orig,vw fact = request ("fact") orig = request("orig") vw = viewwidth if orig = "" then orig = 1 end if %> <% Set jpeg = Server.CreateObject("Persits.Jpeg") jpeg.Open( server.mappath(request("strpath") + request("path")) ) jpeg.Interpolation = 1 jpeg.quality = 100 if orig = "0" then else if usewidth = 1 then while int(vw) <= jpeg.width jpeg.Width = fact * jpeg.OriginalWidth fact = fact - 0.001 wend end if end if jpeg.Width = fact * jpeg.OriginalWidth jpeg.Height = jpeg.OriginalHeight * fact jpeg.SendBinary %>