uhm por lo que veo no, no lo tengo.
El codigo de la página que muestra los archivos que hay en el servidor es:
SHOW.ASP
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' -- show.asp --
' Generates a list of uploaded files
Response.Buffer = True
' Connection String
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("/Database/Usuarios.mdb")
%>
<html>
<head>
<title>Mostrar archivos de la base de datos</title>
<style>
body, input, td { font-family:verdana,arial; font-size:10pt; }
</style>
</head>
<body>
<p align="center">
<b>Mostrar archivos de la base de datos</b><br>
<a href="insert.html">Para subir archivos click aquí</a>
</p>
<table width="700" border="1" align="center">
<%
' Recordset Object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
' opening connection
rs.Open "select [ID],[file_name],[file_size],[Content_type] from documentos order by [ID] desc", connStr, 3, 4
If Not rs.EOF Then
Response.Write "<tr><td colspan=""7"" align=""center""><i>"
Response.Write "No. of records : " & rs.RecordCount
Response.Write ", Table : Files</i><br>"
Response.Write "</td></tr>"
While Not rs.EOF
Response.Write "<tr><td>"
Response.Write rs("ID") & "</td><td>"
Response.Write "<a href=""file.asp?ID=" & rs("ID") & """>"
Response.Write rs("file_name") & "</a></td><td>"
Response.Write rs("file_size") & "</td><td>"
Response.Write rs("Content_type") & "</td><td>"
Response.Write "</td></tr>"
rs.MoveNext
Wend
Else
Response.Write "No Record Found"
End If
rs.Close
Set rs = Nothing
%>
</table>
</body>
</html>
FILE.ASP
<%
Response.Buffer = True
' ID of the file to retrieve
Dim ID
ID = Request("ID")
If Len(ID) < 1 Then
ID = 7
End If
' Connection String
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("/Database/Usuarios.mdb")
' Recordset Object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
' opening connection
rs.Open "select [file_data],[Content_type] from documentos where ID = " & _
ID, connStr, 2, 4
If Not rs.EOF Then
Response.ContentType = rs("Content_type")
Response.BinaryWrite rs("file_data")
End If
rs.Close
Set rs = Nothing
%>
<head></head>
<body></body>
</html>
¿el codigo que me pones debería ir en FILE.ASP??