ho messo:
Sub leggi_record()
Dim objReader As New StreamReader(Server.MapPath("FL13R42.21_200335.txt "))
Dim tua_stringa As String
'poi per scorrere il file:
While objReader.Peek() > -1 'quando arriva a fine file restituisce -1
tua_stringa = objReader.Read(tua_stringa, 1, 5)
End While
objReader.Close()
FileClose(1)
Response.Write(tua_stringa)
End Sub


non funge