<%Option Explicit%>
<!--#include file="ADOsetup.inc"-->
<%ADOrs.Open  "Select * from Customers", ADOcn%>
   <H2>Search Results (Version 1)</H2><BR>
   <table border="1" width="80%">
      <tr>
         <th>Contact Name</th>
         <th>Company Name</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>

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