<%
set conntemp=server.createobject("adodb.connection")
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("ussf.mdb")
conntemp.Open DSNtemp
set rstemp=conntemp.execute("select * from Students")
howmanyfields=rstemp.fields.count -1
%>
<% 'Put Headings On The Table of Field Names
for i=0 to howmanyfields %>
| <%=rstemp(i).name %> |
<% next %>
<% ' Now lets grab all the records
do while not rstemp.eof %>
<% for i = 0 to howmanyfields%>
| <%=rstemp(i)%> |
<% next %>
<% rstemp.movenext
loop
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothing%>