Errore UPLOAD immagini Asp

[flash20]

Ciao a tutti ho una pagina asp che mi permette di fare l'upload di un immagine, ha sempre funzionato, ho modificato esteticamente il sito rivoluzionandolo un po' e adesso la pagina mi da il seguente errore:

Chiamata di routine o argomento non validi: 'MidB'

Il codice usato è il seguente:

Dim folder
folder = "immagini"				


Response.Expires=0
Response.Buffer = TRUE
Response.Clear

Sub BuildUploadRequest(RequestBin)
	PosBeg = 1
	PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
	boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
	boundaryPos = InstrB(1,RequestBin,boundary)
		Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))
		Dim UploadControl
		Set UploadControl = CreateObject("Scripting.Dictionary")
		
		Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition"))
		Pos = InstrB(Pos,RequestBin,getByteString("name="))
		PosBeg = Pos+6
		PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
		Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
		PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filename="))
		PosBound = InstrB(PosEnd,RequestBin,boundary)
			If  PosFile<>0 AND (PosFile<PosBound) Then
			PosBeg = PosFile + 10
			PosEnd =  InstrB(PosBeg,RequestBin,getByteString(chr(34)))
			FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
			UploadControl.Add "FileName", FileName
			Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
			PosBeg = Pos+14
			PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
			ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
			UploadControl.Add "ContentType",ContentType
			PosBeg = PosEnd+4
			PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
			Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
			Else
			Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
			PosBeg = Pos+4
			PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
			Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
		End If
		UploadControl.Add "Value" , Value	
		UploadRequest.Add name, UploadControl	
		BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
	Loop
End Sub
Function getByteString(StringStr)
 For i = 1 to Len(StringStr)
 	char = Mid(StringStr,i,1)
	getByteString = getByteString & chrB(AscB(char))
 Next
End Function
Function getString(StringBin)
 getString =""
 For intCount = 1 to LenB(StringBin)
	getString = getString & chr(AscB(MidB(StringBin,intCount,1))) 
 Next
End Function

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest  RequestBin

contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("blob").Item("Value")


Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")


Set MyFile = ScriptObject.CreateTextFile(Server.mappath(folder)&"\"&filename)
 
For i = 1 to LenB(value)
	MyFile.Write chr(AscB(MidB(value,i,1)))
Next
 
MyFile.Close

la riga 14 è la seguente:

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

Sapete dirmi dov'è il problema? Non riesco a capirlo.

Grazie

[Roby_72]

Usa l'upload di Baol:
http://www.creamweb.it/script/mostra.../?id_script=12

Roby

[flash20]

Ti ringrazio Roby_72, ma non c'è un metodo per far funzionare quello che ho già impostato? Perchè configurare quello che mi hai passato mi sembra un po' incasinato e quello ke avevo sostanzialmente andava bene.

Grazie

[flash20]

Qualcun'altro ha qualche suggerimento?

[Santino83_02]

form:

<form method="post" action="tupagina.asp" enctype="multipart-form/data">

<input type="text" name="testoProva" value="ciaociao" />
<input type="file" name="file" />

<input type="submit" name="submit" value="submit" />
</form>

pagina che riceve i dati:

set oUp=new cUpload

oUp.setPath "/public/"
oUp.load


testo=oUp.form("testoProva")
if not oUp.eof then 'c'è un file da salvare

fileName=oUp.Files("name")
response.write fileName
oUp.save 'scrivo in setPAth
end if

response.write "testo : " & testo

se ti pare una cosa difficile da configurare, anzi piu difficile di quel codice che usi te...

[flash20]

Ho provato a mettere questo script che hai passato ma nn funziona non capisco