Problema con split doble (ahi si...)

[ElAprendiz]

muy ahora si lo verifique era un problema de logica

cambia donde dice radiobutton=9 y la ruta del archivo

Código:

<%
Set fso = CreateObject("Scripting.FileSystemObject") 
Set textStreamObject = fso.OpenTextFile(Server.Mappath("prueba.txt"),1,false,0) 
radiobutton=9 ' cambialo por tu request.form
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>" 
        for i=0 to ubound(arreglo) 'este no se si lo realiza ya k no me 
            dato = split(arreglo(i), chr(radiobutton)) 'imprime valores...
        next
        for i=0 to ubound(dato)
            response.write(dato(i)) & "<br>" 
        next
    wend
end if 
 
Set textStreamObject = Nothing 
Set fso = Nothing%>