<%Option Explicit%>
<!--#include file="ADOsetup.inc"-->
<%

   DIM byName,byCity,byCo
   DIM strLike,strSQL,strSQL1,strSQL2,strSQL3,strSQL4 
   strLike = Request.QueryString("txtLike")

   strSQL1 = "Select * FROM Customers"
   strSQL2 = " WHERE ContactName Like '%" & strLike & "%'"
   strSQL3 = " OR CompanyName Like '%" & strLike & "%'"
   strSQL4 = " OR City Like '%" & strLike & "%'"
   strSQL = strSQL1 & strSQL2 & strSQL3 & strSQL4 
   ADOrs.Open strSQL, ADOcn
%>
   <H2>Search Results (Version 7)</H2>
   <ul>
      <li><%=strSQL1%></li>
      <li><%=strSQL2%></li>
      <li><%=strSQL3%></li>
      <li><%=strSQL4%></li>
   </ul>
   
<%IF ADOrs.EOF THEN%>
   <%="No records found "%>
   <%="<A HREF='StartSearch7.asp'>Try Again</A><BR><BR>"%>
<%ELSE%>
   <A HREF='StartSearch7.asp'>Modify Search</A><BR><BR>
   <table border="1" width="80%">
      <tr>
         <th>Name</th>
         <th>Company</th>
         <th>City</th>
      </tr>

      <%do until ADOrs.EOF%>
          <tr>
            <td><%=(ADOrs.Fields("ContactName").Value)%>
            <td><%=(ADOrs.Fields("CompanyName").Value)%>
            <td><%=(ADOrs.Fields("City").Value)%>
            <%ADOrs.MoveNext%>
         </tr>
      <%loop%>
   </table>
<%END IF%>

<!--#include file="ADOclose.inc"-->