Subir varias imagenes al mismo tiempo

[armandoweb]

Amigos:

Tengo un formulario desde donde subo varios datos a una base. dentro de estos datos que necesito subir se encuentran 4 campos de imágenes. ese formulario con 1 sola imagen lo logro subir pero no logro hacerlo funcionar con 4 imágenes.

Otra de los cosas que necesito lograr es que cuando no cargue 4 imagenes, cargue 3 por ejemplo, el cuarto campo me tome una imagen general, por ejemplo BLANK.JPG.

El objeto que uso para subir 1 imagen es el xelUpload.

Cualquier ayuda o dato que pueda aportarme se lo voy a agradecer infinitamente.

Saludos a todos.

ARMANDOWEB

[xAlex]

las nombres de las 4 imágenes los guardas en el mismo registro?
id, título, fecha, imagen1, imagen 2, imagen3, imagen4...?

[Adler]

Se trataría de hacer condicionales

Código:

set objFich1 = objUpload.Ficheros("pic1")
objFich1.Guardar(Server.MapPath("xx"))

if vartype(objUpload.ficheros("pic2"))<>0 then
set objFich3 = objUpload.Ficheros("pic2")
objFich3.Guardar(Server.MapPath("xx"))
end if

if vartype(objUpload.ficheros("pic3"))<>0 then
set objFich3 = objUpload.Ficheros("pic3")
objFich3.Guardar(Server.MapPath("xx"))
end if

if vartype(objUpload.ficheros("pic4"))<>0 then
set objFich3 = objUpload.Ficheros("pic4")
objFich3.Guardar(Server.MapPath("xx"))
end if

en este caso ha de subirse al menos una imagen

Suerte

[armandoweb]

Si xAlex, los nombres de las imágenes van en el mismo registro.
Gracias.

ARMANDOWEB

[armandoweb]

Si, puede ser asi Adler....
Lo probaré y luego te comento que pasó.
Ahh y como sería la idea para comprobar que no subió ninguna imagen y colocar el nombre de BLANK.JPG en ese lugar?
Gracias por la ayuda.

ARMANDOWEB

[Adler]

No lo he probado pero podría ser algo así

Código:

Function Pics(byval strpath)

filename = Server.MapPath(strpath)
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists(filename) Then
Response.write("<img src=" & strpath &">  
Response.end
  Else
Response.write("<img src=""./blank.jpg"">")
Response.end
End If

End Function

Suerte

[armandoweb]

Adler:

yo para subir una imagen con los demas datos a una base utilizaba este codigo, el cual funciona perfectamente:

Uploader.Upload()

If Uploader.Files.Count <> 0 Then
marca = Uploader.form("marca")
modelo = Uploader.form("modelo")
ano = Uploader.form("ano")
tipo = Uploader.form("tipo")
caracteristicas = Uploader.form("caracteristicas")
precio = Uploader.form("precio")
archivo = Uploader.form("foto1")
archivo = replace(archivo, "/", "\")
archivo = right(archivo, len(archivo) - instrrev(archivo, "\"))
archivo = lcase(archivo)
archivo = replace(archivo, " ", "_")

For Each File In Uploader.Files.Items
File.SaveToDisk Server.MapPath(path), archivo
Next

sSQL = "insert into autos(marca,modelo,ano,tipo,caracteristicas,precio ) values ('" & marca & "', '" & modelo & "', '" & ano & "', '" & tipo & "', '" & caracteristicas & "', '" & precio & "')"
Master.Execute(sSQL)

Pero este codigo me sirve para una sola imagen.
Como modifico esto para subir hasta un max de 4 imagenes o fotos, ubicadas en 4 campos distintos de la base de datos?
Espero puedan darme una mano...

ARMANDOWEB

[Adler]

Toma el ejemplo que te puse anteriormente

En el lugar

Código:

objUpload.Ficheros

escribes

Código:

 
Uploader.form

Suerte

[armandoweb]

Ok Adler.
Y en el form debo tener 4 campos para subir las imagenes llamado pic1, pic2, pic3 y pic4??

Gracias por tu ayuda.

ARMANDOWEB

[armandoweb]

Adler:

Perdón por mi ignorancia pero no me ha funcionado, me da error.
Así me quedo el código a ver si me podes dar una mano mas...

Dim Uploader, File
Set Uploader = New FileUploader

Uploader.Upload()

If Uploader.Files.Count <> 0 Then
marca = Uploader.form("marca")
modelo = Uploader.form("modelo")
ano = Uploader.form("ano")
tipo = Uploader.form("tipo")
caracteristicas = Uploader.form("caracteristicas")
precio = Uploader.form("precio")

set objFich1 = Uploader.form("foto1")
objFich1.Guardar(Server.MapPath("/prueba/images/"))

if vartype(Uploader.form("foto2"))<>0 then
set objFich2 = Uploader.form("foto2")
objFich2.Guardar(Server.MapPath("/prueba/images/"))
end if

if vartype(Uploader.form("foto3"))<>0 then
set objFich3 = Uploader.form("foto3")
objFich3.Guardar(Server.MapPath("/prueba/images/"))
end if

if vartype(Uploader.form("foto4"))<>0 then
set objFich4 = Uploader.form("foto4")
objFich4.Guardar(Server.MapPath("/prueba/images/"))
end if

sSQL = "insert into autos(marca,modelo,ano,tipo,caracteristicas,precio ) values ('" & marca & "', '" & modelo & "', '" & ano & "', '" & tipo & "', '" & caracteristicas & "', '" & precio & "')"
Master.Execute(sSQL)

response.Redirect("ok.asp")
end if

Nuevamente gracias.

ARMANDOWEB

[Adler]

Prueba así

Código:

 
Dim Uploader, File
Set Uploader = New FileUploader

Uploader.Upload()

If Uploader.Files.Count <> 0 Then
marca = Uploader.form("marca")
modelo = Uploader.form("modelo")
ano = Uploader.form("ano")
tipo = Uploader.form("tipo")
caracteristicas = Uploader.form("caracteristicas")
precio = Uploader.form("precio")
archivo1 = Uploader.form("foto1")
archivo2 = Uploader.form("foto2")
archivo3 = Uploader.form("foto3")
archivo4 = Uploader.form("foto4")

File.SaveToDisk Server.MapPath(path), archivo1


if vartype(archivo2)<>0 then
File.SaveToDisk Server.MapPath(path), archivo2
end if

if vartype(archivo3)<>0 then
File.SaveToDisk Server.MapPath(path), archivo3
end if

if vartype(archivo4)<>0 then
File.SaveToDisk Server.MapPath(path), archivo4
end if

sSQL = "insert into autos(marca,modelo,ano,tipo,caracteristicas,precio ) values ('" & marca & "', '" & modelo & "', '" & ano & "', '" & tipo & "', '" & caracteristicas & "', '" & precio & "')"
Master.Execute(sSQL)

response.Redirect("ok.asp")
end if

Si aún genera error, especificalo

Suerte