<% Dim adoCon Dim rs Dim strSQL dim albumname dim albumindex dim albumcount 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 rs.movefirst do while not rs.eof if rs("albumindex") = "latest" then totalalbums = rs("albumcount") end if totalpics = rs("photocount") + totalpics rs.movenext loop %>

spfreak.net is hosting <%= totalpics %> photos in <%= totalalbums %> albums

<% rs.movefirst do while not rs.eof if column <> 5 then %> <%= "Album: " & rs("albumtitle") & "
Photos: " & rs("photocount") & "
Date: " & rs("albumdate") & "
"%> <% column = column + 1 elseif column = 5 then %> <%= "Album: " & rs("albumtitle") & "
Photos: " & rs("photocount") & "
Date: " & rs("albumdate") & "

"%> <% column = 1 end if %> <% rs.movenext loop %> <% rs.close %>