importare da file txt

[Adam7]

l' errore è sempre sul ciclo:
Microsoft VBScript runtime error '800a01a8'
Object required: '"Luigi","Marco","Rob'
/public/ap.asp, line 23
alla linea 23: while not stringa.atEndOfStream = FALSE
ora ho modificato così ma niente

<%
url="http://www..........it/public/prova2.txt"
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", url, False
xml.Send
file=xml.responseText

i = 1
while not file.atEndOfStream = FALSE
if i > 1 then
tempLine = file.readLine
tempLine = replace(tempLine,"""","")
elTempLine = split(tempLine,",")
conn.execute("INSERT INTO prova (campo1, campo2, campo3, campo4, campo5) VALUES('" & eltempline(0) & "', '" & eltempline(1) & "', '" & eltempline(2) & "', '" & eltempline(3) & "', '" & eltempline(4) & "')")
end if
i = i + 1
wend

set file = nothing

set fso = nothing

set xml = nothing

%>

[santino83_11_04]

com'è la struttura di file.readLine? fammi l'esempio di una riga che trovi nel file di txt

[Adam7]

la struttura è all' incirca così:
"Marco","antonio","Angelo","Alberto","ho finito i nomi"
"1","2","3","4","5"
"6","7","8","8","10"

però se stampo a schermo viene tutto attaccato:
"Marco","antonio","Angelo","Alberto","ho finito i nomi""1","2","3","4","5""6","7","8","8","10"

[santino83_11_04]

prova ad usare:

tempLine = file.readLine 
tempLine = replace(tempLine,chr(34),"") 
elTempLine = split(tempLine,",")

cmq per stampare devi usare un replace(testo,vbcrlf,"
") perchè l'accapo dei file.txt è la costante vbcrlf in vb

[Adam7]

sempre il solito errore..

Microsoft VBScript runtime error '800a01a8'

Object required: '"Marco","Antonio","Ang'

[santino83_11_04]

scusa fai una cosa, metti questo:

tempLine = file.readLine 
response.write templine
response.end()

che stampa?

[Adam7]

allora mi da sempre lo stesso errore ..
pero' se scrivo tempLine = file (senza .readLine) ovviamente stampa il contenuto del file

[santino83_11_04]

ma dai adam ma adesso lo stai aprendo com xmlhttp, non piu con openTextFile...vero??

file=xml.responseText 

file=split(file,vbcrlf)
for each riga in file

if len(trim(riga))>0 then
tempLine = replace(riga,chr(34),"") 
elTempLine = split(tempLine,",") 
conn.execute("INSERT INTO prova (campo1, campo2, campo3, campo4, campo5) VALUES('" & eltempline(0) & "', '" & eltempline(1) & "', '" & eltempline(2) & "', '" & eltempline(3) & "', '" & eltempline(4) & "')") 
end if 

next

[Adam7]

È vero hai ragione..
Scusami nn volevo farti perdere tempo… ora provo a sistemare
Grazie mille!