<%@ Import Namespace="System.IO" %> <% Dim objFileStream As FileStream Dim objBinaryReader As BinaryReader Dim intCounter As Integer objFileStream = New FileStream( MapPath( "myFile.data" ), FileMode.Open ) objBinaryReader = New BinaryReader( objFileStream ) For intCounter = 0 to 50 Response.Write( "

" & objBinaryReader.ReadInt32() ) Next objBinaryReader.Close %> All Done!