<%
	dim reSizeImageKeepAspect
	reSizeImageKeepAspect = True
	 
	sub reSizeImage(strSRC, strDest, intMaxX, intMaxY)
	' Scaled een het plaatje in strSRC met behoudt van aspect ratio
	' naar een afbeelding van maximaal intMaxX bij intMaxY
	' en schrijft deze naar strDest.
	' 30-jan-2002 Martijn Croezen
		dim XSize, ySize, intOrigX, intOrigY, intScale, obj, pal
		set obj=CreateObject("shotgraph.image")
		obj.GetFileDimensions strSRC,xsize,ysize
		intOrigX = XSize
		intOrigY = YSize
if intOrigX > 0 and intOrigY >0 then
		if reSizeImageKeepAspect then
			if XSize > intMaxX or YSize > intMaxY Then
				if XSize > ySize then
					intScale = XSize / intMaxX
					XSize = int(intMaxX)
					YSize = int(YSize / intScale)
				else
					intScale = YSize / intMaxY
					XSize = int(XSize / intScale)
					YSize = int(intMaxY)
				end if
			end if
		else
			XSize = intMaxX
			ySize = intMaxY
		end if
		obj.CreateImage xsize,ysize,256	
		obj.InitClipboard intOrigX,intOrigY
		obj.SelectClipboard True
		obj.ReadImage strSRC, pal, 0, 0
		obj.stretch 0,0,Xsize,YSize, 0,0, intOrigX, intOrigy, 0, "HALFTONE"
		obj.SelectClipboard False
		obj.BuildPalette 0	
		obj.JPEGImage 90, 0, strDest
		set obj = nothing
end if
	end sub
%>