LLevo 24 horas con esta tonteria. (ASPUPLOAD)

[rikimaru50]

Hola llevo casi 2 dias con el aspupload para hacer lo siguiente, pero no me sale.

Quiero subir varias imagenes al servidor y a su vez guardar el nombre de dichas imagenes en la base de datos, para ello hago lo siguiente:

'guarda ficheros en servidor

For Each File in Upload.Files
nombre=File.FileName
File.SaveAs "d:\www\ficheros\" & nombre
next

'guarda nombre en bd

rs("imagen")=nombre

Con esto va de perlas, pero cuando utilizo solo una imagen o fichero, pero cuando intento utilizar mas no me funciona como yo quiero, he probado lo siguiente:

'guarda ficheros en servidor

For Each File in Upload.Files
nombre=File.FileName
File.SaveAs "d:\www\ficheros\" & nombre
next

For Each File in Upload.Files
nombre1=File.FileName
File.SaveAs "d:\www\ficheros\" & nombre1
next

'guarda nombre en bd

rs("imagen")=nombre
rs("imagen1")=nombre1

Pero esto no funciona, ya que me sube los dos ficheros al servidor pero me graba el nombre de la 2ª imagen en los dos campos de imagen, y no separa cada nombre en su determinado campo.

Tambien he utilizado el otro metodo que viene en ASPUPLOAD:

Set File = Upload.Files("imagen1")
foto1=File.FileName
rs("imagen1")=foto1

Set File = Upload.Files("imagen2")
foto2=File.FileName
rs("imagen2")=foto2

Con esto si que me funciona mas o menos bien, solo que me da un error 500 si no selecciono ninguna imagen, y no se como arreglar esto para que no me salte este error.

Espero que me puedan ayudar.

Gracias de antemano y un saludo.