I want to search my web site database and display the result and images but I am having errors.

<%@Language = "vbscript" %>
<%
Dim strSearch
Dim rsSearch
Dim conn
strSarch = Request.QueryString("txtSearch")
dim strconn
strconn="DRIVER=Microsoft Access Driver (*.mdb);DBQ="
strconn = strconn & Server.MapPath("property_users1.mdb")
set rsSearch = Server.CreateObject("ADODB.Recordset")
strSearch = "SELECT  Brief,Area,City,Country,Telephone " & "FROM [registration] " & "WHERE City LIKE  '" & Replace(strSarch, "'", "''") & "%' "

rsSearch.open strSearch, strconn, 2,2
<%
<table>
<%
while Not rsSearch.eof
<%<tr>rsSearch("Brief")</tr> %>
<%<tr>rsSearch("Area")</tr>%>
<%<tr>rsSearch("City")</tr>%>
<%<tr>rsSearch("Country")</tr>%>
<%<tr>rsSearch("Telephone")</tr>%>
rsSearch.Movenext
<%
<% </table> %>
Wend
%>