Some times i have data more than one line and my function read only the next line and than return. For example summary is more than one line

but it prints only the next line. I need help how to i read data if it is more than one line

Function EnumerateFolder( sFolder )

Dim fso, ts, data
Set fso = CreateObject("Scripting.FileSystemObject")
Set fol = fso.Getfolder ( server.mappath(sfolder) )
For each fil in fol.files
Set ts = fil.openastextstream(1)
Do While Not ts.AtEndOfStream
data = ts.ReadLine
If test(Left(data, 3)) Then
data = ts.ReadLine
response.write(data)
response.write("<br>")
End If
Loop
Next
ts.Close
End Function

EnumerateFolder "c:\txt"

Function test(s)
Select Case s

Case "[Da"
test = True

Case "[Nov"
test = True

Case "[Su"
test = True

Case "[Cu"
test = True

Case "[St"
test = True

Case "[Ci"
test = True

Case "[Ac"
test = True

Case "[In"
test = True

Case "[La"
test = True

Case "[PP"
test = True

Case "[Mo"
test = True

Case "[Cu"
test = True

Case "[Ty"
test = True

Case "[La"
test = True

Case "[CR"
test = True

Case "[Ev"
test = True

Case "[Su"
test = True

Case "[Bo"
test = True

Case "[MD"
test = True

Case "[Co"
test = True

End Select
End Function
----DATA----
[Date]
Sat Aug 05 14:06:12 EDT 2006

[Novell ID]
NSMITH4

[Subject]
PPV / VOD Research - Dispute - 1st Time - 711579

[Customer's Name]
EDWARD CAMPBELL

[Street]
5 WHEELER AVE APT 2

[City, State, Zip]
BRIDGEPORT CT, 06606

[Account Number]
006-0416-08

[Install Date]
06/21/2001

[Last Known Event Date]
06/29/2006

[PPV Hold]
No

[Monthly Rate]
186.52

[Current Services]
Optimum Voice
OOL FamilyorAbv
OR$20Discount
iO Silver Pkg
iO Box
PPOF
Addset: C/Rdy
OV World Call
OV Ported Number

[Type of Request]
Dispute - 1st Time

[Language]
English

[CRC PIN Instructions]
Yes

[Event Numbers/Date Range]
#77922 6/29, #78306 6/29, #77716 6/28, #77312 6/28

[Summary]
cust states that they and no one in the household ever ordered those
ppv movies.cust requesting credit of $35.80.

[Box Verification by Customer]
2,SABKDTHBF,Yes,Yes,Yes,Yes

[MD Page ID]
1

[Control Number]
651789