Agregar campos a imagen subida!!!XELUPLOAD

[dobled]

papelucho mira con este codigo yo grabo y subo dos imagenes ademas pueden ser mas en la base tengo los dos campos (imagen, imagen2) que tambien pueden ser mas chequealo y cambialo a tu gusto, espero que te sirva

Código:

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

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

set objUpload = new xelUpload
objUpload.Upload()

'recuperamos los campos usuario y edad
		artista 	= objUpload.Form("artista")
		album 		= objUpload.Form("album")
		comentario 	= objUpload.Form("comentario")
		semana 		= objUpload.Form("semana")


'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")
	set objFich2 = objUpload.Ficheros("imagen2")

	'and objFich.TipoContenido = "image/jpeg"
	if objFich.Tamano <= maxtam  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("../artistas")
		objFich2.Guardar Server.MapPath("../artistas")
		
		'Ahora, en el directorio upload, con la fecha de hoy como nombre
		'strNombreFichero = Day(Date) & Month(Date) & Year(Date)
		'objFich.GuardarComo strNombreFichero, Server.MapPath("../artistas")

		'Ahora nos conectamos a una base de datos
        SQL = "Driver={SQL Server};Description=sqldemo;SERVER=mailserver; UID=sa;PWD=sa;DATABASE=puntonueve"
		set oConn = Server.CreateObject("ADODB.Connection")
		set rs = Server.CreateObject("ADODB.Recordset")
        oConn.open SQL
		'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 nx_pdirecto"
		'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("artista") 	= artista
		rs.Fields("album") 		= album
		rs.Fields("comentario") = comentario
		rs.Fields("semana") 	= semana
		rs.Fields("img") 		= objFich.Nombre
		rs.Fields("img2") 		= objFich2.Nombre

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

		'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 ingresado un nuevo Punto en Directo <b>" & artista & "</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 JPEG de menos de 250k.")
	end if

end if
%>

Salu2