Hola,
estoy intentando colocar datos desde un formulario a una base de datos sqlserver, en concreto un pequeño texto y una foto, pero no me los coloca.
No sé si me estoy saltando un paso por hacer, o es que tengo que colocar alguna sentencia más.
No suelo usar este objeto para subir datos, pero al tener que subir imágenes el método que seguían antes es el de este objeto.
Este es el código por si me podéis ayudar:
set objUpload = new xelUpload
objUpload.Upload()
'Miro a ver la id del acto. galeria_fotos es el nombre de la tabla de la base de datos donde quiero colocar los datos
sql = "select max(id) as ident from galeria_fotos"
sqldb rs, sql
if isnumeric(rs("ident")) then
max=cInt(rs("ident"))
else
max = 0
end if
id=max+1
strNombreFichero = ""
'Solo se instancia el objeto si se ha subido al menos una imagen, de lo contrario da errores
If objUpload.Ficheros.Count > 0 then
'accedemos al fichero por su nombre en el formulario
Set objFich = objUpload.Ficheros("imagen")
'La guardo en el directorio images_noticias, con la fecha y hora de hoy, completa, como nombre:
'lo siguiente es el nombre original del archivo:
Nombre = Split(objFich.Nombre, ".")
'y aquí obtengo la extensión del archivo original:
Extension = Nombre(Ubound(Nombre))
'Compongo el nuevo nombre de archivo para evitar duplicados y le agrego la extensión:
strNombreFichero = "congreso"&id&"." & Extension
'finalmente, lo guardo
objFich.GuardarComo strNombreFichero, Server.MapPath("../../congresos/imagenes/")
End if
instituto = objUpload.Form("instituto")
'instituto = Replace(request.form("instituto"),"'","''")
sql = "insert into galeria_fotos(id,instituto, imagen) values('"&id&"','"&instituto&"','"&strNombreFicher o&"')"
sqldb rs, sql
Response.Write(sql)
%>
PD: el id sí que me lo inserta, pero los otros dos datos no.
Eso es todo, Gracias!!
