Hola amigos, la verdad es que estoy seguro que el trabajo que tengo por delante se puede hacer
por ASP pero necesito algunas "pistas" o "consejillos" para encaminar mi rumbo.
Vereís, tengo un pequeño formulario con algunos datos para el visitante y un campo también
con un upload que el visitante envia la foto a una de mis carpetas.
Cuando el usuario pulsa el botón del formulario envia un parametro a la misma página que realiza lo siguiente...
<%
a=request.querystring("a")
if a=1 then
basedatos=server.mappath("..\..\bd\compañeros.mdb" )
set conexion=server.createobject("adodb.connection")
set registros=server.createobject("adodb.recordset")
conexion.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
registros.open "SELECT * FROM compañeros",conexion,2,3
registros.addnew
registros.fields("nombre_apellidos")= session("nombre")&" "& session("apellido1")&" "&session("apellido2")
registros.fields("nivel")= session("nivel")
registros.fields("email")= session("usuario") & "@misitio.com"
registros.fields("ciudad")=request.form("ciudad")
registros.fields("aficiones")=request.form("aficio nes")
registros.fields("fecha")=FormatDateTime(Now, vbLongDate)
registros.update
registros.close
conexion.close
set registros=nothing
set conexion=nothing
response.redirect ("confirmacion.asp")
end if
%>
Hasta aquí todo bien, introduzco los datos en los campos de la BD y va bien, pero es que LUEGO YO MANUALMENTE TENGO QUE PONER
LA RUTA DE LA FOTO QUE HAN SUBIDO Y PARA ELLO ABRIR LA BD, ALGO ENGORROSO HACERLO TODOS LOS DIAS.
La foto la recupera o la pinta en pantalla dentro de la bd con un src de la imagen al estilo de
<%Response.Write"<IMG SRC="""&RS("foto")&""">"%>
Mi duda es la siguiente, ¿no se podría esto automatizar para que al hacer el visitante el upload
de la foto se abriese la conexión a la base de datos y se introdujese automaticamente en la BD
la ruta y el nombre del archivo que se está subiendo para que luego yo no tuviese que estar cada
instante poniendolo manualmente.
ESPERO TUS SABIOS CONSEJOS AMIGO.
No obstante yo había pensado algo del estilo de... Suponiendo que el campo del formulario
del upload se llame foto pues hacer lo siguiente...
<%
a=request.querystring("a")
if a=1 then
Dim foto
foto=request.form("foto")
foto=Request.ServerVariables(REMOTE ADDRES) + "upload/fotos" + FileName 'AQUI PONGO MI URL, LA CARPETA DONDE SE SUBE LA FOTO Y EL NOMBRE DEL ARCHIVO QUE SE SUBE, NO SE SI ESTARÁ CORRECTAMENTE ESCRITO.
basedatos=server.mappath("..\..\bd\compañeros.mdb" )
set conexion=server.createobject("adodb.connection")
set registros=server.createobject("adodb.recordset")
conexion.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
registros.open "SELECT * FROM compañeros",conexion,2,3
registros.addnew
registros.fields("nombre_apellidos")= session("nombre")&" "& session("apellido1")&" "&session("apellido2")
registros.fields("nivel")= session("nivel")
registros.fields("email")= session("usuario") & "@misitio.com"
registros.fields("ciudad")=request.form("ciudad")
registros.fields("aficiones")=request.form("aficio nes")
registros.fields("fecha")=FormatDateTime(Now, vbLongDate)
'Y AQUÍ VIENE LA MADRE DE TODOS LOS CORDEROS, A VER SI LO PONGO CORRECTO
registros.fields("foto")=foto
registros.update
registros.close
conexion.close
set registros=nothing
set conexion=nothing
response.redirect ("confirmacion.asp")
end if
%>
Bueno, te espero, pues estoy seguro de que no ando muy descaminado, solo me hace falta un achuchoncito.
Gracias de antemano...
(espero haberme explicado con claridad, je je.)
