In un mio sito uso l'upload di baol.
tutto funziona correttamente con file che hanno come estensione tre cifre (come i .doc o i .jpg) metre lo script da errore se cerco di uploadare file con estensione a 4 cifre (come i .docx) (premetto che inserisco i dati in un db)
l'errore è nella riga
ContentType = BinaryToString(MidB(RequestBin,1,Pos-1))
uno degli argomenti della funzione MidB
questo è il codice completo:
If FileName<>"" then
Stream.Position = arPosName(i)-1
RequestBin = Stream.Read (60)
Pos = InStrB(1,RequestBin,c13b)
ContentType = BinaryToString(MidB(RequestBin,1,Pos-1)) <----questa riga!!!
arContent = Split(ContentType,": ")
ContentType = arContent (1)
StreamType=1 : If InStr(ContentType,"text/")>0 then StreamType=2
PosBeg = arPosName(i) + Pos + 2
Stream.Position = PosBeg
RequestBin = Stream.Read (arPosEnd(i)-PosBeg-3)
AddNewRs Name,FileName,ContentType,StreamType,RequestBin
if LoadFilesInForm then AddToForm Name,FileName
else
Form(Name) = ""
end if