<%
' Declare our variables
Dim cnnSimple ' ADO connection
Dim rstSimple ' ADO recordset
Dim strDBPath ' path to our Access database (*.mdb) file
strDBPath = Server.MapPath("music_collection.mdb")
Set cnnSimple = Server.CreateObject("ADODB.Connection")
cnnSimple.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"
Set rstSimple = cnnSimple.Execute("SELECT * FROM Albums_per_Year ORDER BY Year")
%>
My Collection of Albums Per Year
YEAR
(Number)
<% Do While Not rstSimple.EOF %>
<%= rstSimple.Fields("Year").Value %>
(<%=rstSimple.Fields("Titles_per_Year").Value %>)
">
<%
rstSimple.MoveNext
Loop
%>
<%
' Close our recordset and connection and dispose of the objects
rstSimple.Close
Set rstSimple = Nothing
cnnSimple.Close
Set cnnSimple = Nothing
%>