<%
modo = request("modo")
select case modo
case "abrir"
id_livro = request("id_livro")
%>
<%
case else
%>
<%
set consulta = conexao.execute("select id_livro,nome from tbl_livro order by nome")
cont=0
do while not consulta.eof
cont=cont+1
set consulta2 = conexao.execute("select figura from tbl_pageflip where cod_livro = "&consulta("id_livro")&" order by ordem")
if not consulta2.eof then
if cor= "#EEEEEE" then
cor = "#FFFFFF"
else
cor = "#EEEEEE"
end if
if cont=5 then
cont=1
response.write "
