[Resolvido] Como lendo um arquivo TXT

Olá a todos,

Tenho um sistema off-line que gera um arquivo txt. Segue abaixo como é gerado o arquivo txt do sistema:

1500000012NOME DO SOCIO 2234598626022019
1500000013NOME DO SOCIO 6234598626022012
1500000014NOME DO SOCIO 3234598626029015
1500000015NOME DO SOCIO 1234398622025012
1500000016NOME DO SOCIO 2224548626021012
1500000017NOME DO SOCIO 2234598626023013
1500000018NOME DO SOCIO 5234598626021112
1500000019NOME DO SOCIO 3234598626022779

...

Ao todo cada linha tem 126 caracteres. Onde são separados da seguinte forma:

[b]Campo Tamanho Exemplo[/b]
-----------------------------------------------------------
constante da empresa 2N "15"
ação do sócio 6N "000000"
código da dependência 2N "00"
nome do sócio/dependente 100C
data de nascimento 8D "ddmmaaaa"
data de admissão 8D "ddmmaaaa"
[i]n = Número / c = caracter[/i]

Com este código, consigo separar uma única linha:

<%
varArquivo = "1500000012NOME DO SOCIO 2234598626022019"

a = Left(varArquivo,2)
Response.Write("Constante da Empresa: <b>"&a&"</b>")
b = Replace(Left(varArquivo,8),a, "")
b = Left(b,6)
Response.Write("<br />Ação do Sócio: <b>"&b&"</b>")
c = Replace(Left(varArquivo,10),a+b,"")
c = Left(c,2)
Response.Write("<br />Código da Dependência: <b>"&c&"</b>")
d = Replace(Left(varArquivo,110),a+b+c,"")
d = Left(d,100)
Response.Write("<br />Nome do Sócio: <b>"&d&"</b>")
e = Replace(Left(varArquivo,118),a+b+c+d,"")
e = Left(e,8)
Response.Write("<br />Data de Nascimento: <b>"&e&"</b>")
f = Replace(Left(varArquivo,126),a+b+c+d+e,"")
f = Left(f,8)

 Response.Write("<br />Data de Adimissão: <b>"&f&"</b>")

Response.Write("<br /><br />SÓCIO <b>"&d&"</b> SEPARADO COM SUCESSO!")

End If
%>

O meu problema é que o arquivo txt existem muitas linhas. Preciso fazer o upload do arquivo (script pronto) e depois separar cada linha e coloca-la no banco de dados separadamente.

Alguém pode me ajudar!

Obrigado.