Read Multiple Lines From A Text File

<%
'Create your own instance of a File System Object
Set myFSO = Server.CreateObject("Scripting.FileSystemObject")

'Use your FSO to "read" the entire file into a work area
Set strEntireTextFile = myFSO.OpenTextFile("C:\mydirectory\myfile.txt")
'Initialize a line counter
strLineCount = 0
'Do the following loop until the end of data
While Not strEntireTextFile.AtEndOfStream 
'Read one line and increment the count of lines read
strSingleTextLine=theTextFile.ReadLine
strLineCount = strLineCount + 1
If strLineCount < 23 then

 'Do stuff depending upon which line you're on
 Select Case strLineCount
  Case 1
   strline1 = strSingleTextLine
  Case 2
   strline2 = strSingleTextLine
  Case 3
   strline3 = strSingleTextLine
   .
   .
   .
  Case 22
   strline22 = strSingleTextLine
 End Select

End If

' Go bact to the beginning of the loop
Wend
'Free the resources used
strEntireTextFile.Close
Set strEntireTextFile = Nothing 
%>