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>'E'"
<table border="1" width="100%">
<%for each x in rs.Fields
response.write("<th>" & x.name & "</th>")
<%for each x in rs.Fields%>
<td><%Response.Write(x.value)%> </td>