Problema con upload Baol

[Allie]

<%
	Dim oUpload 
	Set oUpload = new cUpload 
	oUpload.SetPath "/public/upload/prova"
	oUpload.Load
	If Request.QueryString("Save")="1" then

		While Not oUpload.EOF
			oUpload.Save()
			Select Case lCase(oUpload.Files("InputName"))
				Case "file1"
					File1 = oUpload.GetFileName()
				Case "file2"
					File2 = oUpload.GetFileName()
			End Select
			oUpload.MoveNext
		Wend			

end if
%>

Mi restituisce questo errore:

Request object error 'ASP 0101 : 80004005' 

Unexpected error 

/rotary/admin/upload.asp, line 590 

The function returned |.

Baol o qualcun altro per favore sa dirmi dov'è il problema?
Grazie!

[Baol74]

Tu mi puoi dire la riga 590?

[Allie]

Stream.Write Request.BinaryRead(bTr)

Era questa.
Comunque ho risolto, grazie
L'errore era che nella querystring la variabile Save era scritta con l'iniziale minuscola
Grazie comunque!