My Record collection

Home   Search    Wanted   Sale   About   Contact

 

<% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("record2.mdb")) set rst = Server.CreateObject("ADODB.recordset") sql="SELECT Artist, Title, Year FROM Records ORDER BY Artist" rst.Open sql, conn %>

Please allow some time for my collection data to load


<%for each x in rst.Fields%> <% response.write("") next%> <%do until rst.EOF%> <%for each x in rst.Fields%> <%next rst.MoveNext%> <%loop rst.close conn.close %>
" & x.name & "
<%Response.Write(x.value)%>