importazione file da txt

[paxxx80]

scusate..io devo importare dei dati presenti in un file .txt in una tabella di sql server.avete idea di cosa devo fare o un link da leggere?
grazie 1000

[Roby_72]

Set fso = CreateObject("Scripting.FileSystemObject")
Set file_read = fso.OpenTextFile(server.MapPath("/file.txt"))
contenuto = file_read.ReadAll
set file_read = nothing
Set fso = nothing

' poi lo inserisci nel db...

Roby

[paxxx80]

sai cosa?quando tento di fare response.write di contenuto mi risulta vuoto.però il codice non dà errori.hai idea se xcaso sbaglio qualcosa? :berto:
grazie...

[optime]

posta il codice

[paxxx80]

Dim test,stringa, mess
dim nomeFile, tempFile, temp ,l,fl,flPart,i,nome

nomeFile = inputs("nomeFile")
tempFile = split(nomeFile,"\")
fl = tempFile(ubound(tempFile))
flPart = split(fl,".")
if ubound(flPart) = 1 then
nome = flPart(0)
else
for i = 0 to ubound(flPart) - 1
'Response.Write flPart(i) & br
nome = nome & "." & flPart(i)
next
nome = right(nome,len(nome)-1)
end if
tempFile = nome & session.SessionID & "." & flPart(ubound(flPart))


FileUpLoadUser = session("login")
FileUpLoadData = day(now) & "/" & month(now) & "/" & year(now)
retErr = inputs("percorso").saveFileAs(server.mappath(MyPat h), tempFile)


'lettura dei dati
dim tsTextStream,sTesto,fsoMyFile
Set fsoMyFile = CreateObject("Scripting.FileSystemObject")
Set tsTextStream = fsoMyFile.OpenTextFile(Server.MapPath(MyPath & "\" & tempFile), 1)
sTesto = tsTextStream.ReadAll

'FileSize = fso.getFile(server.mappath(MyPath & "/" & FileName)).Size

Response.write "testo: "& sTesto
Response.End




quando stampo sTesto io mi aspetto di vedere tutto il contenuto del tile txt o sbaglio??

[optime]

fatti stampare anche il percorso del file e controlla che sia giusto

[paxxx80]

ho controllato...il percorso del file è giusto..
sai cosa?io lo carico..lo salvo sul server,poi voglio aprirlo e leggerlo(xprendere i dati e salvarle in base dati).posso fare tutto con un solo oggetto vero??

[paxxx80]

up...magari qualcuno oggi lo sa...