<% Dim adoCon Dim rs Dim strSQL dim albumname dim albumindex dim albumcount dim count dim title dim column column = 1 Set adoCon = Server.CreateObject("ADODB.Connection") adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../spfreaknet.mdb") strSQL = "SELECT * FROM visualmemories ORDER BY albumcount DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open strSQL, adoCon count=1 rs.movefirst %> <% do while count < 4 response.write "" rs.movenext count = count + 1 loop %>
" & rs("albumtitle") & "
" & rs("albumdate") & "
" & rs("photocount") & " Photos

...more Photo Albums <% rs.close %>