Save data from text file into access

[Salena]

Hi: I have 100's of records in my microsoft inbox which i saved into a text
file. I need help how to i import all of them into access table through ASP.
I try it but my script only read the first line of the text file.
Dim fso, fil, ts, sContents
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fil = fso.getfile(server.mappath("myemails.txt"))
Set ts = fil.openastextstream(1)
sContents = ts.readall
aBuild = Split(sContents, "From:", 2)
sFrom = Split(aBuild(1), vbCrLf, 2)(0)
response.write(sFrom)
next
ts.close
Set ts = nothing
Set fil = nothing
Set fso = nothing