como modifico este codigo?

[rashid]

Este codigo hala bien una imagen y la mete en una base de datos en campo binario, el caso es que quiero que hale dos o tres imagenes y la he trabajado mucho y no puedo, quiza con el superpoder de todos podamos hacerlo, ahi va.
Formula:
..
<input type="file" name="imagen"><br>..

Pagina que recibe:
<%
'pagina.asp
%>
<!--#include file="xelupload.asp"-->
<%
Dim oConn, rs, SQL
Dim objUpload, objFich, strNombre, strEdad
Dim maxtam, strNombreFichero

'nuestro tamaño máximo
maxtam = 15 * 1024

set objUpload = new xelUpload
objUpload.Upload()



'recuperamos los campos usuario y edad
strNombre = objUpload.Form("usuario")
strEdad = objUpload.Form("edad")

'si no ha subido ningún fichero, le avisamos
if objUpload.Ficheros.Count = 0 then
Response.Write("¡No has subido ningún fichero!")
else
'accedemos al fichero por su nombre en el formulario
set objFich = objUpload.Ficheros("imagen")
if objFich.Tamano <= maxtam and objFich.TipoContenido = "image/gif" then
'Es el fichero correcto, vamos a guardarlo en todas partes.

'Primero, en nuestro directorio actual con el nombre que tiene
'objFich.Guardar Server.MapPath(".")

'Ahora, en el directorio upload, con la fecha de hoy como nombre
'strNombreFichero = Day(Date) & Month(Date) & Year(Date)
'objFich.GuardarComo strNombreFichero, Server.MapPath("upload")

'Ahora nos conectamos a una
base de datos.

Esto lo pongo en la sig pagina pues no entra

[rashid]

'Ahora nos conectamos a una base de datos
set oConn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")

'Nos conectamos con ODBC sin DSN, suponiendo que la base
'de datos está en este mismo directorio
oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" _
& "DBQ=" & Server.MapPath("usuarios.mdb")
SQL = "SELECT * FROM usuarios"
'Abrimos el Recordset: el 0 es el cursor adForwardOnly
' y el 2 es el cerrojo adLockPessimistic
rs.Open SQL, oConn, 0, 2

'Añadimos un nuevo registro
rs.AddNew
rs.Fields("Nombre") = strNombre
rs.Fields("Edad") = strEdad
rs.Fields("NombreFichero") = objFich.Nombre

'Llamamos a GuardarBD pasandole el campo correspondiente!!!
objFich.GuardarBD rs.Fields("Imagen")


'Guardamos el nuevo registro
rs.Update

'y limpiamos todo que vienen los padres
rs.Close
set rs = nothing
oConn.Close
set oConn = nothing

'¡Todo correcto!
Response.Write "Se ha añadido el nuevo usuario <b>" & strNombre & "</b>, " _
& "con el fichero " & objFich.Nombre & " de tamaño " & objFich.Tamano & "."

'Limpiamos nuestro xelUpload y el fichero
set oFich = nothing
set objUpload = nothing

else
'No era un fichero válido
Response.Write("No es un fichero aceptable. ")
Response.Write("Tiene que ser un fichero GIF de menos de 15k.")
end if

end if
%>

En el Include file lo que hay es:
Class xelUpload
' Maneja los formularios enviados como 'multipart/form-data' (ficheros)

Public Ficheros
Private eltosForm

'------------------------------------------------------------------------
Private Sub Class_Initialize()
set Ficheros = Server.CreateObject("Scripting.Dictionary&quo t;)
set eltosForm = Server.CreateObject("Scripting.Dictionary&quo t;)
End Sub
'------------------------------------------------------------------------
Private Sub Class_Terminate()
if IsObject(Ficheros) then
Ficheros.RemoveAll
set Ficheros = not etc..

[rashid]

Hey alguien porfa ayudeme.
Please. ;) :(

[misitioweb]

Pues si dices que ese codigo trabaja ya con una imagen, entonces no veo el problema para hacer que trabaje con 2 o mas. Lo unico que tiene que hacer es meterlo dentro de un ciclo, como puede ser un For o un Do Until/While.



Crea varios campos del tipo file, y repite segun el numero de campos file que hayas puesto en la pagina.

[(CodeMan)]

que huea

ese tiene un leame o no en español


------------------------
Usuari@ # 16047 en los foros
El maestro del code

[rashid]

Gracias Misitioweb, lo intentare.

Y a CodeMan, no entiendo esto de
--------------------------------------------------------------------------------
que huea

ese tiene un leame o no en español
??????????