<%
Response.Contenttype="image/jpeg"
Response.Expires=60
Dim oConn, oRs, nRecs, LImage, LFound
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.ConnectionString = Application("ConnectionString")
oConn.Open
Set oRS = oConn.Execute("SELECT File FROM conferencedetails WHERE ID = '" & Request.QueryString("id") & "'", nRecs, &H0001)
LFound = Not oRS.Eof
If LFound Then LImage = oRS("File")
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
If LFound Then Response.BinaryWrite LImage
Response.End
%>