Voglio eseguire l'upload di immagini. Allora stavo steando un file imgUPL.asp contenete il codice

' INIZIO TRANSAZIONE
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

Ma mi dà il seguente errore:

Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument: 'MidB'
/prignacca/Gestione/upload.asp, line 9

Il file upload.asp è incluso da imgUPL.asp è quello di Philippe Collignon e la riga 9 riporta:

boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)

Non riesco a capire quale potrebbe essere l'errore.

Il 4 marzo è stata postata una ail con lo stesso problema ma non c'era la soluzione dello stesso.
Sapreste darmi una dritta?
Grazie :-)