• User

    upload di baol e .docx

    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