Sub ReadAllText(ByVal strTxtFile As String)
If System.IO.File.Exists(strTxtFile) Then
Dim ReadText As System.IO.TextReader = System.IO.File.OpenText(strTxtFile)
Dim strTextLine As String
Do
strTextLine = ReadText.ReadLine
If Not (strTextLine Is Nothing) Then
'///////////////////
Response.Write(strTextLine)
Response.Write("<br>")
'///////////////////
End If
Loop Until strTextLine Is Nothing
ReadText.Close()
End If
End Sub