leer archivo csv con asp (codigo)

[bisteck]

tengo el siguiente codigo

<%
Set fs=Server.CreateObject("Scripting.FileSystemObject ")
Set f=fs.OpenTextFile(Server.MapPath("cliente.csv"), 1)


Function Tokenize(byVal TokenString, byRef TokenSeparators())
Dim NumWords, a()
NumWords = 0

Dim NumSeps
NumSeps = UBound(TokenSeparators)

Do
Dim SepIndex, SepPosition
SepPosition = 0
SepIndex = -1

for i = 0 to NumSeps-1

' Find location of separator in the string
Dim pos
pos = InStr(TokenString, TokenSeparators(i))

' Is the separator present, and is it closest to the beginning of the string?
If pos > 0 and ( (SepPosition = 0) or (pos < SepPosition) ) Then
SepPosition = pos
SepIndex = i
End If

Next

' Did we find any separators?
If SepIndex < 0 Then

' None found - so the token is the remaining string
redim preserve a(NumWords+1)
a(NumWords) = TokenString

Else

' Found a token - pull out the substring
Dim substr
substr = Trim(Left(TokenString, SepPosition-1))

' Add the token to the list
redim preserve a(NumWords+1)
a(NumWords) = substr

' Cutoff the token we just found
Dim TrimPosition
TrimPosition = SepPosition+Len(TokenSeparators(SepIndex))
TokenString = Trim(Mid(TokenString, TrimPosition))

End If

NumWords = NumWords + 1
loop while (SepIndex >= 0)
Tokenize = a
End Function


dim seps(1)
seps(0) = ;
dim linea 'la que lees del archivo

do while f.AtEndOfStream = false

linea = f
res=Tokenize(linea, seps)
For i=1 to UBound(res)
response.write res(i)
Response.Write("<br>")
next
'Response.Write(f.ReadLine)
'Response.Write("<br>")

loop

f.Close
Set f=Nothing
Set fs=Nothing

las funciones son de masterboy 6666 yo solo le incorpore para que me tomara el archivo csv, pero no me funciona cual puede ser el error???

[Myakire]

A ver, estoy un poco perdido con tu problema, como ya con este son tres post tuyos del mismo tema........, además nunca me ha quedado claro de que ocupas exactamente. Por ejemplo:

¿Tienes un archivo texto donde cada linea tiene por ejemplo 'este;es;un;ejemplo" y quieres guardar cada palabra en un campo diferente?
¿Es es en un mismo campo en diferentes registros?
¿Qué es lo que tienes y que es lo que deseas tener?
¿Quieres hacer algo como este sw: http://home.hccnet.nl/s.j.francke/t2t/text2table.htm?

[bisteck]

perdon Myakire, porfa vor disculpame. pero e encontrado la solucion aqui esta mi codigo :
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject ")
Set f=fs.OpenTextFile(Server.MapPath("cliente.csv"), 1)

do while f.AtEndOfStream = false
linea = f.ReadLine
linea = split(linea, ";")
for i = 0 to ubound(linea)
'response.write linea(i)
next
loop

f.Close
Set f=Nothing
Set fs=Nothing
%>
lo que hace, es tomar el fichero .csv, luego mientra no sea fin de texto separo la linea con el split y muestro (linea(i)), ya que tengo esto podre hacer mis consultas o lo que quiera, dejo este codigo por si alguien lo desea....................

y myakire perdoname por no explicarme mejor mil perdon y gracias por ayudarme
nos vemos
pd: perdon