<% ' Setup db and variables dim sql sql = "Select * from Album where Viewable=1 order by DateCreated Desc" set rsAlbums = con.Execute(sql) ' MSSQL %>

<% if rsAlbums.eof then Response.write("No albums") else response.write("") response.write("") response.write("") Do While Not(rsAlbums.EOF) response.write("") rsAlbums.MoveNext() Loop response.write(" Chamber Albums Title Description Date Created "&rsAlbums("Title")&" "&rsAlbums("Description")&" "&rsAlbums("DateCreated")&" ") end if %>