<!-- Collection of code snippets by Arne Vajhøj -->
<!-- created to try various things (2003-now) -->
<%
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\arne\My Documents\Picture.mdb;User Id=admin;Password=;"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT P FROM Test WHERE K=" & Request("k"),con
Response.Clear
Response.ContentType = "image/gif"
Response.BinaryWrite rs("P")
Response.End
Set rs = Nothing
Set con = Nothing
%>