subir ficheros

[morte]

He usado el Upload y me da el siguiente error:

ADODB.Stream error '800a0bbc'

Error al escribir en el archivo.

/adiblog/freeaspupload.asp, línea 65


Este es el trozo de codigo la linea 65 es la que esta en negrita

//Calls Upload to extract the data from the binary request and then saves the uploaded files
Public Sub Save(path)
Dim streamFile, fileItem
Dim barra
barra = chr (92)
if Right(path, 1) <> barra then path = path & barra

if not uploadedYet then Upload

For Each fileItem In UploadedFiles.Items
Set streamFile = Server.CreateObject("ADODB.Stream")
streamFile.Type = 1
streamFile.Open
StreamRequest.Position=fileItem.Start
StreamRequest.CopyTo streamFile, fileItem.Length
response.write (path &":"& fileItem.FileName)
streamFile.SaveToFile path & fileItem.FileName, 2
streamFile.close
Set streamFile = Nothing
fileItem.Path = path & fileItem.FileName
Next
End Sub

Public Function SaveBinRequest(path) //For debugging purposes
StreamRequest.SaveToFile path & "\debugStream.bin", 2
End Function

No he puesto todo el codigo por que es mucho pero si hace falta me lo decis y lo pongo.
Gracias y un saludo.