Unnamed

		<script language="VBScript">
			Sub displaySmallImage
				Set siteImage = "http://cleardarksky.com/csk/getcsk.php?id=RchstrHY"
				Set smallImage = "images/temp.jpg"
				
				inpath = Server.MapPath( siteImage )
				outpath = Server.MapPath( smallImage )
			
				Set gr = Server.CreateObject("ImageGlue6.Graphic")
				Set rc = Server.CreateObject("ImageGlue6.XRect")
				Set ca = Server.CreateObject("ImageGlue6.Canvas")
				
				gr.SetFile inpath
				If gr.Drawable Then
					rc.String = gr(1).Rectangle
					rc.Right = rc.Right - 100
				  
					ca.Height = rc.Height
					ca.Width = rc.Width
					ca.DrawFile inpath, "Pos=0,0 SrcRect=" & rc.String
					
					ca.SaveAs outpath , ""		
				End If
				
				smallImage.innerHTML = "<img src='" & smallImage & "' />"
			End Sub
		</script>