Como lo hago

M@uR0 · #1 (**permalink**) 08/09/2004, 17:44

Hola Amigos..
Estoy haciendo un mantenedor, para un sistema de nacimientos, ingreso todos los datos del bebe y 1 foto, con AspUpload sube la imagen a una carpeta especifica del servidor y guarda el nombre de la imagen en un campo del registro, todo bien
Yo quisiera agregar 2 fotografias (Una foto chica y una grande) en vez de una sola, pero no se como hacerlo, se que deberia agregar otro campo a la tabla de la Bd, pero no se como debo manejar de forma separada los dos datos tipo "FILE".

Consulta: Con el "Upload.SaveVirtual "../mantencion/upload/"" creo que guardaria las imagenes en la carpeta..
Deberia hacer un :

Set File = Upload.Files("file")
Set File1 = Upload.Files("file1")

' Siendo file y file1 los datos tipo FILE que vienen del formulario
para manejar los 2 datos tipo file??

y despues del .addnew
rs("foto") = File.FileName
rs("foto1") = File1.FileName
' Siendo foto y foto1 los 2 campos foto de la tabla
Si coloco esto haria lo que quiero??

aqui les dejo el codigo del registro con una foto (A mi me funciona perfecto en el servidor con los respectivos permisos de escritura)

<%
Set Upload = Server.CreateObject("Persits.Upload.1")

Upload.OverwriteFiles = False
Upload.SetMaxSize 1048576
Upload.SaveVirtual "../mantencion/upload/"

Set File = Upload.Files("file")
If Not File Is Nothing Then
con = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("clinica.mdb")
Set rs = Server.CreateObject("adodb.recordset")
SQL = "SELECT * FROM bebes"
rs.Open SQL, con, 2 ,3
rs.AddNew
rs("foto") = File.FileName
rs("nombres") = Upload.Form("nombres")
rs("apellidos") = Upload.Form("apellidos")
rs("nom_padre") = Upload.Form("n_padre")
rs("nom_madre") = Upload.Form("n_madre")
rs("fecha_nac") = Upload.Form("nacim_fecha")
rs("hora_nac") = Upload.Form("nacim_hora")
rs("peso") = Upload.Form("peso")
rs("altura") = Upload.Form("altura")
rs("sexo") = Upload.Form("sexo")
rs.Update

rs.Close
con.Close
set rs=nothing
set con=nothing
Response.Redirect "confirma.htm"
Else
Response.Redirect("add_bebes.htm")
End If
%>

u_goldman · #2 (**permalink**) 08/09/2004, 20:39

Si, la verdad es que yo no he podido hacer un upload múltiple, lo que se me ocurre y salvo mejores opiniones es que hagas una especie de wizard, primero con los datos y la foto chica y en un siguiente paso la foto grande, obvio lo único que se cargaría mediante el envío del primer formulario, sería la foto chica, y una vez que hayam subido la foto grande, cargas en la DB todos los campos.

Salu2,

M@uR0 · #3 (**permalink**) 08/09/2004, 21:57

Ok..
Tb lo habia pensado de esa manera, pero uno siempre tiene esa tendencia acortarlo todo....
No tengo el servidor disponible hasta mañana, por eso es que preguntaba si usando los codigos k mande funcionaria...
Tienes razon.. lo hare como me dices y me ahorro problemas..
Graciasa por el consejo...

redkram · #4 (**permalink**) 18/10/2005, 08:31

llevaba dias dandole vueltas al tema de subir dos fotos a la vez y lo consegui.
Solo me falta hacer el rs("foto1") y rs("foto2) pero eso cada uno. Te paso el codigo, es una mezcla de lo tuyo y lo mio.

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.Save("Tu Path")
%>
<%
Set FILE1 = Upload.Files("FILE1")
Set FILE2 = Upload.Files("FILE2")
Set FILE3 = Upload.Files("FILE3")
Set FILE4 = Upload.Files("FILE4")
response.Write FILE1.FileName&"<br>"
response.Write FILE2.FileName&"<br>"
response.Write FILE3.FileName&"<br>"
response.Write FILE4.FileName&"<br>"
Foto1=FILE1.FileName
Foto2=FILE2.FileName
etc...
%>
<HTML>
<BODY BGCOLOR="#FFFFFF">
<h3>Prova Upload</h3>
<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="Upload1.asp">
<INPUT TYPE="FILE" SIZE="40" NAME="FILE1"><BR>
<INPUT TYPE="FILE" SIZE="40" NAME="FILE2"><BR>
<INPUT TYPE="FILE" SIZE="40" NAME="FILE3"><BR>
<INPUT TYPE="FILE" SIZE="40" NAME="FILE4"><BR>
<INPUT TYPE=SUBMIT VALUE="Upload!">
</FORM>
</BODY>
</HTML>

Saludos redkram