El Redim de mi arreglo me estamandando errores 
Tengo el siguiente codigo donde me lee un archivo TXT y ya lo pude colocar en una sola columna a través de un split.
Pero ahora no se como darle esos valores a un arreglo para después introducir cada una de las posiciones del arreglo en el INSERT de mi Query.
este es mi codigo :
DIM curDTAdmonServicio, curDTOpMateriales, curDTOpServicios, curDTOpViaticos, curDTOpReparacion
DIM curDTOpGastos, curDTVtasServicios, curDTVtasViaticos
dim i, j
dim ArrDatos, Linea, Archivo
Dim objFSO
Set objFSO = Server.CreateObject ("Scripting.FileSystemObject" )
Dim objTextStream
Const strFileName = "c:\Inetpub\wwwroot\erdinamo\detalle2.txt"
Const fsoForReading = 1
If objFSO.FileExists(strFileName) Then
Set objTextStream = objFSO.OpenTextFile(strFileName, fsoForReading)
texto= replace (objTextStream.ReadAll,chr (13), " ")
objTextStream.Close
Set objTextStream = Nothing
Archivo = Split (texto,";" )
For i = LBound (archivo) To UBound (archivo)
ReDim Linea(0,0)
ArrDatos = Split (archivo(i), ";" ) '// llena arreglo de datos
ReDim Preserve Linea(0, UBound (Linea) + UBound (ArrDatos)) '//redimensiona concentrado
j = 0
For j = 0 To UBound (ArrDatos)
Linea(j) = ArrDatos(j) 'Agrega al Concentrado
Next
curDTAdmonServicio = Linea(0)
curDTOpMateriales = Linea(1)
curDTOpServicios = Linea(2)
curDTOpViaticos = Linea(3)
curDTOpReparacion = Linea(4)
curDTOpGastos = Linea(5)
curDTVtasServicios = Linea(6)
curDTVtasViaticos = Linea(7)
response.write curDTAdmonServicio & "<br>"
response.write curDTOpMateriales & "<br>"
response.write curDTOpServicios & "<br>"
response.write curDTOpViaticos & "<br>"
response.write curDTOpReparacion & "<br>"
response.write curDTOpGastos & "<br>"
response.write curDTVtasServicios & "<br>"
response.write curDTVtasViaticos & "<br>"
Donde como paso final en lugar de colocar estas variables en un response.write , deberian estar en el insert que quiero colocar, para grabar en mi BD de Access.
Alguien me puede decir que estoy haciendo mal ???Es que me manda el siguiente error :
Error de Microsoft VBScript en tiempo de ejecución error '800a0009'
El subíndice está fuera del intervalo
/erdinamo/fso4.asp, line 39
Como siempre gracias por leerme...
