Problema haciendo UPLOAD Hola que tal estoy tratando de hacer un upload de imagenes, pero me sale el siguiente error:
Request object error 'ASP 0206 : 80004005'
Cannot call BinaryRead
/admin/categorias/imagenes/test1.asp, line 11
Cannot call BinaryRead after using Request.Form collection.
:::::::::::::::::::::
mi codig es el siguiente
<%
'recojo el valor de la clave del producto
clave = Trim(Request.Form("Clave"))
Response.Expires=0
Response.Buffer = TRUE
Response.Clear
'Response.BinaryWrite(Request.BinaryRead(Request.T otalBytes))
byteCount = Request.TotalBytes
'Response.BinaryWrite(Request.BinaryRead(varByteCo unt))
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
'*********Modulo que recupera la Informacion Capturada en el Formulario*****************
'*** nombre del vehiculo ***
clave=UploadRequest.Item("CLave").Item("Value")
'=============Recuperamos la imagen del vehiculo====================
contentType = UploadRequest.Item("imagen").Item("ContentType")
filepathname = UploadRequest.Item("imagen").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("imagen").Item("Value")
'************************************************* ***************************************
'***********Modulo Que Crea El Archivo y Lo Sube Al Servidor****************************
'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_I NFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Server.mappath("../../../fotos/categorias/"&filename))
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
imagen=filename
'*********Modulo Para Guardar Informacion En Base de Datos*******************************
'defino las variables a utilizar
Dim oConn, rsvehiculo, sql
Dim qry, sDSNDir
Dim db_name, db_username, db_userpassword
Dim db_server, dsn_name
'defino el nombre del dsn
dsn_name = "access_catalogo.dsn"
'defino la ruta de acceso para la bd
sDSNDir = Server.MapPath("../../../_dsn")
'declaro el objeto de coneccion en el servidor
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.ConnectionString = "filedsn=" & sDSNDir & "\" & dsn_name
oConn.Open
set rsvehiculo = Server.CreateObject("ADODB.Recordset")
sqlstring = "SELECT * FROM Categorias Where Clave_Categoria ='"& clave &"'"
rsvehiculo.Open sqlstring, oConn, 3, 3
rsvehiculo.Update
rsvehiculo.Fields("Imagen") =trim(imagen)
rsvehiculo.Update
rsvehiculo.close
set rsvehiculo=nothing
oConn.close
set oConn=nothing
'************************************************* **************************************
%>
Alguien puede explicarme por que de este error
