<!-- Collection of code snippets by Arne Vajhøj -->
<!-- posted to eksperten.dk, usenet and other places (2002-now) -->
<%
' CREATE TABLE demo (id INTEGER NOT NULL PRIMARY KEY, pic BLOB);
adInteger = 3
adParamInput = 1
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Option=16834;Database=Test;"
Set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = con
cmd.CommandText = "SELECT pic FROM demo Test WHERE id = ?"
cmd.Parameters.Append(cmd.CreateParameter("@id", adInteger, adParamInput))
cmd.Parameters("@id") = 1
Set rs = cmd.Execute
Response.Clear
Response.ContentType = "image/jpeg"
Response.BinaryWrite rs("pic")
Response.End
Set rs = Nothing
Set cmd = Nothing
Set con = Nothing
%>