<%@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 %>
<% Dim strSearch
<% %>
<%= %>
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)