Upload strano.....

[Aspide_01]

Salve a tutti, vengo subito al sodo.
Faccio l'upload di due immangini e descrizione delle stesse nel dB.
Ho un piccolo problema, le immagini vengono caricate nella cartella di destinazione, ma hanno dimensione 0 kb, quindi, nel momento della visualizzazione non vedo le immagini, anche se vedo il giusto path!
Qualcuno potrebbe aiutatmi?

  '//- Trasferisci primo file
              Set MyFile = ScriptObject.CreateTextFile(percorso&"\"&filename)
			  For i = 1 to LenB(value)
	             MyFile.Write chr(AscB(MidB(value,i,1)))
		      Next
              MyFile.Close

			'//- trasferisci secondo file  
              Set MyFile1 = ScriptObject.CreateTextFile(percorso&"\"&filename1)
              For i = 1 to LenB(value1)
	             MyFile1.Write chr(AscB(MidB(value1,i,1)))
              Next
              MyFile1.Close

Thanks

[orcim]

cambia script:
http://www.motobit.com/dlldownload/pASPUpl2.zip

[Aspide_01]

Esaminando il codice ho notato che :

MyFile.Write chr(AscB(MidB(value,i,1)))

Mentre quello che funziona bene

MyFile.Write chr(AscB(MidB(V alue,i,1)))

Quindi problema risolto...alla prossima.