Errore su upload

[techno]

Salve a tutti

Ho testato lo script che ho trovato sugli script asp:

Dim DatiRicevuti
DatiRicevuti= Request.BinaryRead(ByteRicevuti)
For i= 1 To lenB(DatiRicevuti)
FileBinario=FileBinario & chr(ascB(midB(DatiRicevuti,i,1)))
Next

ArrPrezzi= split(FileBinario,FirmaFile)
for pezzo= 1 to ubound(ArrPezzo)-1
Inizio= instr(ArrPezzi(pezzo),""&vbcrlf&""&vbcrlf)
Intestazione= left(ArrPezzi(pezzo),Inizio-1)
Inizio= Inizio + len(""&vbcrlf) + len(""&vbcrlf)
ContenutoFile= mid(ArrPezzi(pezzo),Inizio,len(ArrPezzi(pezzo))-Inizio-1)
Next

'Scrivere il file
if instr(Intestazione,"file1")>0 then
i=instr(Intestazione,"filename=")
j= instr(i+10,Intestazione,chr(34))
NomeUpload=mid(Intestazione,i+10,j-i-10)
i=instrRev(NomeUpload,"\")
if i<>0 then
NomeFile=mid(NomeUpload,i+1)
else
NomeFile=NomeUpload
end if
FirmaFile= left(FileBinario,instr(FileBinario,""&vbcrlf)-1)
if i<>0 then
Set FSO= CreateObject("Scripting.FileSystemObject")
Upolad1=true
DimensioneFile1= len(ContenutoFile)
EstensioneFile1= right(ContenutoFile,3)
NomeFile1= NomeFile
Set textStream= FSO.CreateTextFile(server.MapPath(NomeFile1),true, false)
textStream.Write ContenutoFile
textStream.Close
Set textStream= Nothing
Set FSO= Nothing
end if
end if

ma mi da questo errore:
Errore di run-time di Microsoft VBScript (0x800A0005)
Chiamata di routine o argomento non validi: 'left'
/prova/upload.asp, line 13

l'errore è visualizzato nella riga in rosso

[Roby_72]

Cambia script di upload se non puoi installare un componente ad hoc.
Ecco uno gratis e valido:
http://www.creamweb.it/script/mostra.../?id_script=12

Roby

[techno]

seeeeeeeeeeeeeeeeee buonanotte

e chi ci capisce niente.

Ti ringrazio per il suggerimento ma vorrei capirci qualcosa io vorrei imparare ad effettaure un upload no copiare.

[Roby_72]

Devi partire dalle basi allora.
Se hai uno script e non riesci a interpretarlo vuol dire che non conosci VBScript non che non sai fare un upload.

Roby