Hola a todos necesito que me ayuden a resolver un problema, es que tengo que mostrar los ficheros que están guardados en una base de datos en access, pero además tengo que mostrar la fecha de modificación así como de creación de estos ficheros.
El código es el siguiente:
<!--#include file="Loader.asp"-->
<%
' Listado del contenido de la base de datos y de los datos binarios.
Response.Buffer = True
' Cadena de conexion
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("ficheros.mdb")
%>
<html>
<head>
<title>Listado del contenido de la base de datos</title>
<style>
body, input, td { font-family:verdana,arial; font-size:10pt; }
</style>
</head>
<body>
<br><br>
<p align="center">
<b>Listado del contenido de la base de datos</b><br>
<a href="insert.htm">Para insertar ficheros clic aquí</a>
</p>
<br><br>
<table width="100%" border="0" align="center">
<%
' Se crea el File System Object
Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
' Recordset
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
' Abrir conexion
rs.Open "select [ID],[NombreFichero],[TamanoFichero],[TipoFichero]" & _
",[DatosFichero] from Ficheros order by [ID] desc", connStr, 3, 4
If Not rs.EOF Then
Response.Write "<tr><td colspan=""7"" align=""center""><i>"
Response.Write "Nº de registros : " & "<strong>"& rs.RecordCount &"</strong>"
Response.Write " , Tabla : Ficheros</i><br>"
Response.Write "</td></tr>"
For each file In Folder.files
While Not rs.EOF
Response.Write "<tr><td>"
Response.Write rs("ID") & "</td><td>"
Response.Write "<a href=""obtener.asp?ID=" & rs("ID") & """>"
Response.Write rs("NombreFichero") & "</a></td><td>"
Response.Write rs("TamanoFichero") & "</td><td>"
Response.Write rs("TipoFichero") & "</td>"
%>
<td>
<font size="-1">
<strong>
<%
Response.Write " " & file.DateLastModified & " "
%>
</strong>
</font>
</td>
<td>
<font size="-1">
<strong>
<%
Response.Write " " & file.DateCreated & " "
%>
</strong>
</font>
</td>
<%
Response.Write "</tr>"
%>
<%
rs.MoveNext
Wend
%>
<%
Next
Else
Response.Write "No se han encontrado registros."
End If
rs.Close
Set rs = Nothing
%>
</table>
</body>
</html>
Ojalá me puedan ayudar. Gracias por su ayuda.
