Lettura CSV da Asp problema doppi apici

[marcopaolo79]

Ciao a tutti sto usando un codice per leggere un file csv da asp classico.
Il codice funziona correttamente nel senso che il file è letto il problema si pone quando nella riga che vado a leggere ci sono i doppi apici.
Per esempio una riga del file csv così:

171005|E2654018ZMISPORT|"MICHELIN SPORT  265/40ZR18 101Y XL"|"PILOT SPORT MO DOT 2007"|10.00||10.00||cronArticleExport_rvoNotActive|1||

mi viene letta fino a 171005|E2654018ZMISPORT| ovvero appena trova il doppio apice tronca la stringa.

Uso questo codice per leggere il file csv

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/percorso_file/") & ";Extended Properties=""text;HDR=Yes;FMT=Delimited"""
set conn = Server.CreateObject("ADODB.Connection")
conn.Open strConn
set rs = Conn.Execute("SELECT * FROM nome_file.csv")
Do Until rs.Eof
    riga_stringa = rs(0)
....
....

Penso che il problema si possa risolvere cambiando driver di lettura ma non saprei quale usare.
Ho provato a fare questo 2 modifiche ma non legge tutta la riga ugualmente:

strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath ("/public/128398_it/tmp/") & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
(errore di apertura del file)

riga_stringa = replace(rs(0), """", "")
(non cambia nulla perchè la legge proprio già troncata)

Qualche consiglio?

grazie a tutti

[vic53]

prova a usare il file system

Const ForReading = 1, ForWriting = 2, ForAppending = 8
File = "/public/128398_it/tmp/file.csv"
fd=Server.MapPath(File)
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(fd, ForReading, True)
Do Until f.AtEndOfStream
RecordInput = f.ReadLine
....elabori il record letto

loop
...

ciao