<%
 Set Conn = Server.CreateObject("ADODB.Connection")
 Conn.Open Session("Image_DB_ConnectionString")
 
 ID = Request.QueryString("ID")
 
 strQuery = "SELECT * FROM Images WHERE Image_ID = " & ID
 Set RSImage = Conn.Execute(strQuery)
 
 RSImage.MoveFirst
 
 Set Field = RSImage("ImageBlob")
 
 BlockSize = 4096
 FileLength = Field.ActualSize
 NumBlocks = FileLength \ BlockSize
 LeftOver = FileLength Mod BlockSize
 
 Response.ContentType = RSImage("mimeType")
 Response.BinaryWrite Field.GetChunk(LeftOver)
 For intLoop = 1 To NumBlocks
 	Response.BinaryWrite Field.GetChunk(BlockSize)
 Next
 
 RSImage.Close
 Conn.Close
 %>