ASP Source Code:
<%Option Explicit%>
<%
DIM ADOcn,ADOrs
set ADOcn=Server.CreateObject("ADODB.Connection")
ADOcn.Open "dsnPixMatrix" ' *** Update line as required ***
set ADOrs = Server.CreateObject("ADODB.recordset")
%>
<HTML>
<HEAD>
<%
DIM strSearch,strSort,strSQL,file
strSearch = Request.QueryString("ID")
strSQL = "Select * from tblCollection "
IF (strSearch <> "") THEN
strSQL = strSQL & " WHERE fldID = " & strSearch
END IF
ADOrs.Open strSQL, ADOcn
' *** Added following two line ***
Dim strPixFile
strPixFile = "\images\" & ADOrs.Fields("fldPixFile").Value
%>
</HEAD>
<BODY>
<H2>Search Results</H2>
Date: <%=(ADOrs.Fields("fldTitle").Value)%><BR>
<% ' *** Changed following three lines *** %>
Description: <%=(ADOrs.Fields("fldComment").Value)%><BR>
<img border="0"
src='<%=strPixFile%>'><BR><HR>
<%
ADOrs.close
Set ADOrs = Nothing
ADOcn.close
Set ADOcn = Nothing
%>
</BODY>
</HTML>