URGENTE!!!! aspupload

[arielri]

Hay una forma de subir archivos y no necesitas ningun objeto. Si queres podes guardar todo en una DB de Access o SQL. Solamente tenes que armar un par de ASP y un formulario muy simple.
Suponiendo que subis una imagen a una DB, la forma de subirla es:

Código:

function DBSaveUpload(Fields)
  dim Conn, RS
  Set Conn = GetConnection
  Set RS = Server.CreateObject("ADODB.Recordset")
  RS.Open "Upload", Conn, 2, 2
  RS.AddNew
  RS("ContentType") = Fields("DBFile").ContentType
  RS("NombreImagen") = Fields("DBFile").FileName
  RS("DataSize") = Fields("DBFile").Value.Length
  RS("Descripcion") = Fields("Descripcion").Value.String
  RS("Nombre") = Fields("Nombre").Value.String
  RS("Data").AppendChunk MultiByteToBinary(Fields("DBFile").Value.ByteArray)
  RS("DataThumb").AppendChunk MultiByteToBinary(Fields("DBFileMuestra").Value.ByteArray)

  RS.Update
  RS.Close
  Conn.Close
end function

Y la forma de mostrar el resultado es:

Código:

  Set RS = Conn.execute("SELECT Data,DataSize FROM Upload Where IDImagen = " & Request.QueryString("ID"))
  Response.BinaryWrite RS("Data").GetChunk(RS("DataSize"))

Obviamente tenes que armar una base de datos con los campos debidos, en este caso podes usar todos TEXT y el de DATA tiene que ser OBJETO OLE (en Access) y crear la conexion.