Errore con upload Baol74

[ciucciatiilcalzino]

Ciao a tutti, da un pò di tempo per caricare i file online utilizzo lo script scaricato online che utilizza Baol74
http://forums.weppos.com/showthread.php?t=1634

oggi stranamente mi sono accorto di un errore nel tentare di caricare un file online docx di 300 kb

l'errore che mi esce è questo

Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument: 'MidB'

e la riga incriminata è questa
If FileName<>"" then
Stream.Position = arPosName(i)-1
RequestBin = Stream.Read (60)
Pos = InStrB(1,RequestBin,c13b)
-----> ContentType = BinaryToString(MidB(RequestBin,1,Pos-1))

ho postato le precedenti righe, perchè credo che il problema nasca già in RequestBin

qualcuno sa darmi qualche dritta per risolvere il problema?

[Roby_72]

Non ricordo se e come era stato risolto il problema del caricamento di file docx ecc...
Cerca nel forum.

Roby

[Vincent.Zeno]

roby... proprio nel tuo portalino si legge:

Upgrade: 07/04/'11: corretto bug per upload file Office 2010

ma nel pacchetto ci sono due file upload.asp
immagino sia quello segnato con Versione:3.1.2

[ciucciatiilcalzino]

qui c'è la magica soluzione

http://forum.html.it/forum/showthread/t-1362306.html

ciao e grazie

[Vincent.Zeno]

Originariamente inviato da ciucciatiilcalzino
qui c'è la magica soluzione
http://forum.html.it/forum/showthread/t-1362306.html

Originariamente inviato da pino.laferrera
Per tutti coloro che come me ci hanno sbattuto la testa.

Ho letto istruzione per istruzione passo per passo
cercate nel file upload.asp
il pezzo dove scrive:

Stream.Position = arPosName(i)-1
RequestBin = Stream.Read (60)
Pos = InStrB(1,RequestBin,c13b)
ContentType = BinaryToString(MidB(RequestBin,1,Pos-1))
arContent = Split(ContentType,": ")

Dovete solo sositutire dove c'è scritto
RequestBin = Stream.Read (60)
con
RequestBin = Stream.Read(120)

E magicamante funziona tutto!!
Ciao a tutti