Cita:
Iniciado por yesmina Por favor, te agradeceria mucho si por favor aclaras mis ideas, por favor necesito saber que tengo que hacer estoy estancada en esto y nose que hacer...
como saber cual tengo que instanciar y cual no o uando instanciar ambos:
set fich = up.Ficheros("archivo")
o
set fich_1 = up.Ficheros("imagen")
a ver ....
ahí te va, pero creo que necesitas ponerte las pilas para que estos errores te ocupen más de lo necesario:
Cita: For each fich in up.Ficheros.Items
Response.Write("<ul>")
Response.Write("<li>Nombre: <b>" & fich.Nombre & "</b></li>")
Response.Write("<li>Tamaño: <b>" & fich.Tamano & "</b> bytes (" & FormatNumber(fich.Tamano / (1024*1024)) & " Mb)</li>")
Response.Write("<li>Tipo de Archivo: <b>" & fich.TipoContenido & "</b></li>")
Response.Write("</ul>")
fich.Guardar vPath
connStr = "Driver={SQL Server};SERVER=10.1.1.1; DATABASE=BD;UID=Usuario;PWD=pasw"
Set adoRs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT Id_Prov, NomArchivo,Tamano,Tipo,Curriculum from Proveedores_Curriculums where Id_Prov = " & Session("IdProveedor")
adoRs.Open SQL, connStr, 2, 2
if adoRs.EOF Then
adoRs.AddNew
End if
adoRs("Id_Prov") = Session("IdProveedor")
adoRs("NomArchivo") = fich.Nombre
adoRs("Tamano") = fich.Tamano/1024
adoRs("Tipo") = fich.TipoContenido
fich.GuardarBD adoRs("Curriculum") 'Campo Image en SQL-Server
adoRs.Update
adoRs.Close
Set adoRs = Nothing
Next
No tengo tiempo de hacerlo como lo ocupas, así que copié uno de los que tengo, le borré algunas cosas para que no te confundieras y lo pegué.
Ese código recorre cada uno de los archivos que el usuario haya mandado y lo guarda en disco duro y en una tabla.
Ya me tengo que ir, pero mañana, si aún hace falta, te comento linea a linea lo que hace. Y si quieres hacemos también el que necesitas para abrir la imagen o el archivo dependiendo de lo que guardaste en el campo de "Tipo"
Saludos