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