Dim myDataTable As DataTable = New DataTable()
myDataTable = Connection.ExecuteQuery("select * from objectlist where id ='" & Request.QueryString("id") & "'")
If myDataTable.Rows.Count <> 0 Then
Response.ContentType = myDataTable.Rows.Item(0)("imgtype")
Response.BinaryWrite(myDataTable.Rows.Item(0)("images"))
..............