<%Option Explicit%>
<!--#include file="ADOsetup.inc"-->
<%
   DIM byName,byCity,byCo
   DIM strSearch,strSort,strSQL,file

   strSearch = Request.QueryString("txtSearch")
   strSort = Request.QueryString("optSort")
   strSQL = "Select * from Customers"
   strSQL = strSQL & " WHERE Country = '" & strSearch & "'"
   strSQL = strSQL & " ORDER BY " & strSort
 
   ADOrs.Open strSQL, ADOcn

   file = "'Search5.asp" 
   byName = file & "?txtSearch=" & strSearch & "&optSort=ContactName'>Name"
   byCity = file & "?txtSearch=" & strSearch & "&optSort=City'>City"
   byCo = file & "?txtSearch=" & strSearch & "&optSort=CompanyName'>Company"
%>
   <H2>Search Results (Version 5)</H2><BR>
   <PRE>SQL string = [<%=strSQL%>]</PRE><BR>
   <table border="1" width="80%">
      <tr>
         <th><A HREF= <%=byName%></A></th>
         <th><A HREF= <%=byCo%></A></th>
         <th><A HREF= <%=byCity%></A></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>

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