<%@ Language=VBScript %>
<HTML>
<HEAD>
<TITLE>Retrieving a Recordset</TITLE>
</HEAD>
<BODY>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & _
      "C:\Learn_ASP_Classic\Northwind.mdb"
Set rst = conn.Execute("SELECT CompanyName FROM Customers")
   Do While Not rst.EOF
      Response.Write rst("CompanyName") & "<BR>"
      rst.MoveNext
   Loop
%>
</BODY>
</HTML>
