Quiero que en mi pagina los usuarios puedan subir fotos pero subirlas a una carpeta no a la base de datos, ala base de datos el nombre.
¿como puedo hacerlo?
He probado el esto:
<!--#include file="xelupload.asp"-->
<%
Dim objUpload, objFich, strNombreFichero
Dim strNombre, strEdad
'Creamos el objeto
set objUpload = new xelUpload
'Recibimos el formulario
objUpload.Upload()
'Mostramos total de ficheros recibidos
Response.Write ( objUpload.Ficheros.Count & " ficheros recibidos.")
'Mostramos los campos del formulario de texto:
Response.Write ("<p>Tu nombre es " & objUpload.Form("nombreusuario") & "<br>")
Response.Write ("<p>Tu edad es " & objUpload.Form("edad") & "<br>")
'Y ahora mostramos los datos del fichero enviado:
'Lo sacamos a una variable por comodidad
set objFich = objUpload.Ficheros("fichero")
Response.Write ("<p>" & objFich.Nombre & "<br>")
Response.Write("Tamaño: " & objFich.Tamano & "<br>")
Response.Write("Tipo de contenido: " & objFich.TipoContenido & "</p>")
'Guardamos el fichero, con su nombre, en el directorio
'en el que se encuentra esta página
objFich.Guardar(Server.MapPath("."))
'Y guardamos una copia, con nombre "subido.bin"
objFich.GuardarComo("subido.bin", Server.MapPath("."))
'Abrimos una conexión a una base de datos
Dim oConn, rs, SQL
set oConn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
'Nos conectamos con un DSN
oConn.Open "DSN=Pruebas"
'Y abrimos la tabla Datos
SQL = "SELECT * FROM Datos"
'Abrimos el Recordset con cerrojo 2 (adLockPessimiestic)
'que permite modificaciones
rs.Open SQL, oConn, 0, 2
'Añadimos un nuevo registro
rs.AddNew
rs.Fields("nombre") = objUpload.Form("nombreusuario")
rs.Fields("edad") = objUpload.Form("edad")
'Guardamos el contenido del fichero en la base de datos:
'el nombre del fichero, su tipo
rs.Fields("nombrefichero") = objFich.Nombre
rs.Fields("contenido") = objFich.TipoContenido
'y los datos binarios
objFich.GuardarBD rs.Fields("datos")
rs.Update
rs.Close
Response.Write("Fichero guardado en base de datos.")
'Limpiamos objetos
set oFich = nothing
set objUpload = nothing
rs.Close
set rs = nothing
oConn.Close
set oConn = nothing
%>
Pero esto me lo guarda en la base de datos no, no me entero mucho, me podias ayudar.
Gracias y un saludo