Problema con split doble (ahi si...)

[bitshoot]

Bueno tengo k hacer lo siguiente: tengo k generar una tabla nueva y llenarla con la info de un archivo de texto el cual puede venir tabulado, con coma, punto y como, etc. Desde el formulario yo le digo al usuario que escoja como hira configurado el archivo, asi siempre sabre si esta tabulado o no... bueno...
hasta el moemnto tengo esto


<!--#include file="xelupload.asp"-->
<!--#include file="_validaString.asp"-->
<%
set conexion = server.CreateObject("adodb.connection")
conexion.open session("strConn")

set objUpload = new xelUpload
objUpload.Upload()

grupo = objUpload.form("grupo")
radiobutton = objUpload.form("radiobutton")

set objFich = objUpload.Ficheros("archivo")
objFich.Guardar Server.MapPath("cargaDestinatarios")
Aux_imagen = objFich.Nombre
'set oFich = nothing

sql = "CREATE TABLE "&grupo&" "
sql = sql + "("
sql = sql + " id_cliente INT,"
sql = sql + " nombres_cliente TEXT,"
sql = sql + " apellidoPaterno TEXT,"
sql = sql + " apellidoMaterno TEXT,"
sql = sql + " direccion TEXT,"
sql = sql + " fechaNac DATETIME,"
sql = sql + " email TEXT"
sql = sql + ")"
conexion.Execute sql

Set fso = CreateObject("Scripting.FileSystemObject")
Set textStreamObject = fso.OpenTextFile(Server.Mappath("cargaDestinatario s") & "\prueba.txt",1,false,0)

If not textStreamObject.AtEndOfStream Then
while not textStreamObject.AtendOfStream
linea = textStreamObject.ReadLine
arreglo = split(linea, chr(13)) ' tab es 9
'response.write (arreglo(i)) & "<br>"
wend

for i=0 to ubound(arreglo) 'este no se si lo realiza ya k no me
dato = split(arreglo(i), chr(radiobutton)) 'imprime valores...
response.write(dato(i)) & "<br>"

sql2 = "INSERT INTO "&grupo&" (id_cliente, nombres_cliente, apellidoPaterno, apellidoMaterno, direccion, fechaNac, email" & _
" ) VALUES (" & _
" '"& dato(1) &"'," & _
" '"& dato(2) &"'," & _
" '" & dato(3) & "'," & _
" '" & dato(4) & "'," & _
" '" & dato(5) & "'," & _
" '" & dato(6) & "'," & _
" '" & dato(7) & "' " & _
")"
conexion.EXECUTE sql2
'response.redirect("admin_forzarFiltro&Envio.asp?i d_encuesta="&var_id_encuesta&"")
next
end if

Set textStreamObject = Nothing
Set fso = Nothing

tambien kiero saber si se pueden tomar los valores del arreglo como lo estoy haciendo, xk me manda un error, pero en algunos manuales mes dicen k es asi...