<% filepath = "img/" RutaArchivo = server.mappath(filepath) Set Upload = Server.CreateObject("Persits.Upload.1") Count= Upload.Save(RutaArchivo) %> <% = Count %> ficheros subidos. Files:
<% For Each File in Upload.Files Response.Write File.Name & "= " & File.path & " (" & File.Size &" bytes)
" imagen=File.Name n = InstrRev(File.path, "\") response.write n imagen = mid(File.path,n,len(File.path)) Next id = Upload.Form("id") desc=Upload.form("desc") foto=Upload.form("foto") SQL_Modificacion = "UPDATE datos SET desc"&foto&"= '"&desc&"'," SQL_Modificacion = SQL_Modificacion & "foto"&foto+1&"= '"&imagen&"'" SQL_Modificacion = SQL_Modificacion &"WHERE id= "&id&"" Set Modificacion = fp_db.Execute(SQL_Modificacion) response.redirect "informacion.asp?id="&id %>