<!DOCTYPE HTML>
<HTML>
<BODY>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/db/northwind.mdb"))
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT Companyname, Contactname FROM Customers WHERE CompanyName LIKE 'A%'"
rs.Open sql, conn
%>
<TABLE BORDER="1" WIDTH="100%">
<TR>
<%FOR EACH x IN rs.Fields
RESPONSE.WRITE("<TH>" & X.NAME & "</TH>")
NEXT>
</TR>
<%DO UNTIL RS.EOF>
<TR>
<%FOR EACH x IN rs.Fields>
<TD><%RESPONSE.WRITE(x.VALUE)%></TD>
<%NEXT
RS.MOVENEXT>
</TR>
<%LOOP
rs.CLOSE
conn.CLOSE
%>
</TABLE>
</BODY>
</HTML>