Hi all,

I want to search images and display it with my search result.

Below is the code I use but it is not working it is giving me errors.

I will appreciate any help.

my search code is working but to display images from database is the problem.


set rsSearch = Server.CreateObject("ADODB.Recordset")
sql= "SELECT File_Data" & "FROM [registration] " & "WHERE City LIKE '" & Replace(request.Form("txtsearch"), "'", "''") & "%' "
strSearch = "SELECT Brief,Area,City,Country,Telephone" & "FROM [registration] " & "WHERE City LIKE '" & Replace(request.Form("txtsearch"), "'", "''") & "%' "
rsSearch.open strSearch,strSql,strconn,3,3

%>

<%
On error resume next
rsSearch.movefirst
while Not rsSearch.eof
%>
</p>
<table>
<tr>
<td height="20" colspan="4" class="fontbold"> <%=rsSearch("Brief")%> </td>
</tr>
<tr>
<td width="217" height="20" class="font"> <%=rsSearch("Area")%> </td>
<td width="99" class="font"> <%=rsSearch("City")%> </td>
<td width="94" class="font"> <%=rsSearch("Country")%> </td>
<td width="225" class="font"> <%=rsSearch("Telephone")%> </td>
<td width="200">
<%
if not (rsSearch.EOF and rsSearch.BOF) then
PicSize = rsSearch("File_Data").ActualSize
if PicSize > 0 then
Response.BinaryWrite rsSearch("File_Data").GetChunk(rsSearch("File_Data ").ActualSize)
End if
End If

response.End

if rsSearch.eof then
respond.end
else
Response.ContentType ="image/jpeg"
Response.BinaryWrite(rsSearch("File_Data"))
end if
%>
</td>

</tr>
<%

Two *BIG BIG* mistakes.

(1) In your queries:
sql= "SELECT File_Data" & "FROM [registration] " ...

You have NO SPACE between "File_Data" and "FROM". (and then between "Telephone" and "FROM" in the other query.)

*WHY* do you break up the string like that, in any case??? Keep it SIMPLE:
(2) The BIGGER error:
You can only use *ONE QUERY* per recordset!!! That code makes no sense at all. Trying to use two different queries at the same time.