Problema con split doble (ahi si...)

[bitshoot]

ok... lo esto haciendo con un archovo bien tabulado
por ejemplo

rodrigo | rodriguez | la florida | chile -> kiero guardar linea a linea en un array
andres | escobar | pte alto | argentina -->

y rodrigo | rodriguez | la florida | chile y los datos en otro, pero por separado

| = tab
--> = fin de linea o enter (13)

la idea es guardar rodrigo en un campo, rodriguez en otro... y asi para todas las linas... se entiende??

Set fso = CreateObject("Scripting.FileSystemObject")
Set textStreamObject = fso.OpenTextFile(Server.Mappath("cargaDestinatario s") & "\prueba.txt",1,false,0)
i = 0
If not textStreamObject.AtEndOfStream Then
while not textStreamObject.AtendOfStream
'i = i + 1
linea = textStreamObject.readLine
arreglo = split(linea, chr(13)) ' tab es 9
response.write (arreglo(i)) & "<br><br><br>"
wend

for i=0 to ubound(arreglo)
dato = split(arreglo(i), chr(radiobutton))
response.write(dato(i)) & "<br><br>"
next
end if

eso es lo k tengo por ahr