Código PHP:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' -- file.asp --
' Retrieves binary files from the database
Response.Buffer = True
' Connection String
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
Server.MapPath("db1.mdb")
' Recordset Object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from tabla1", connStr, 2, 4
%>
<html>
<head>
<title>Documento sin título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<table width="200" border="1" align="center">
<tr>
<th scope="col">
<% If Not rs.EOF Then
Response.BinaryWrite rs("Foto")
End If
%>
</th>
</tr>
</table>
</body>
<%
rs.Close
Set rs = Nothing;
%>
</html>

Muchas gracias por adelantado, salu2
