El Guru Programador
Usuario DESCONOCIDO | Registrate Gratis | Usuarios Registrados
Foro de ASP/ASP.NET
Foros del Guru > ASP/ASP.NET
Usuario Esto si que es un desaf?o
Desconocido
Enviado - 7/6/2002
?
Esto es puro ASP. Tengo un formulario que permite examinar archivos locales antes de subirlos al server y una segunda p?gina que crea el Objeto en el server.
La segunda p?gina deja s?lo el nombre de archivo m?s extensi?n y lo almacena en la ubicaci?n que se predefine.
Este es el c?digo.

<%
Set upl = Server.CreateObject("SoftArtisans.FileUp")

Dim FName , FCONT
'---
'--- Set the default path to store uploaded files.
'---
upl.Path = "c:\desarrollo\condorandino\images"

'--- Parses out the file name
FName = Mid(upl.UserFilename, InstrRev(upl.UserFilename, "\") + 1)

'---Parses out the Content type
FCONT = upl.ContentType

Select Case LCase(FCONT)
Case "gif"
upl.Save
Response.Write "

" & FName & " fu? guardado." & FCONT

Case "image/pjpeg" , "image/jpeg"
upl.Save
Response.Write "

" & FName & " fu? guardado."

Case Else


Response.Write "

" & "Solamente se permiten archivos JPG y GIF.
"
Response.End
End Select
'
%>

La pregunta es: ?C?mo, qu? y d?nde hay que poner algo para que el nombre de este archivo subido quede registrado en la base de datos (access)?
Disculpen lo dilatado de la explicaci?n, pero este temita me tiene bastante complicado y quiero solucionarlo rapidamente.
Muchas gracias.

por favor escribirme a [email protected]

?
Desconocido
Enviado - 17/6/2002
?
Lo que puedes hacer es que al intentar recuperar el nombre te lo haga directamente del archivo, te explico, tu lo coges, lo guardas con un "id" que tengas y en la base de Datos guardas el Path!!!

vnombre=IdComponente & ".htm"
Set Upload = Server.CreateObject("Persits.Upload.1")
Count = Upload.Save(server.MapPath (pathContenido))
for each file in Upload.Files
File.Copy(server.mapPath(pathContenido & "\" & vnombre))
File.Delete
next
set Upload = nothing

Y la ruta que sea:
Creas una carpeta con el ID que quieras o que tengas!!!
ObjArch.createfolder (appath & "Archivos\textos\" & session("IdCUrso") & "\" & IdTema & "\" & IdApartado & "\" & IdPag)

?
?

?

?

Contactos myStudio Network
?