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???