Today's Orders
<%
Set Conn = Server.CreateObject("ADODB.Connection")
myDSN="DRIVER={Microsoft Access Driver (*.mdb)};"
myDSN=myDSN & "DBQ=" & server.mappath("db1.html")
conn.open mydsn
Set RS = Conn.Execute("SELECT * FROM tbl")
%>
<% For i = 0 to RS.Fields.Count - 1 %>
| <% = RS(i).Name %> |
<% Next %>
<% Do While Not RS.EOF %>
<% For i = 0 to RS.Fields.Count - 1 %>
| <% = RS(i) %> |
<% Next %>
<%
RS.MoveNext
Loop
RS.Close
Conn.Close
%>