<% ' Declara Varaveis dim Conexao dim BancoDados dim torta set torta = request.QueryString("TORTA") ' Conecta o banco de dados Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DBQ=d:/empresas/silber/silber/lechefrouge/bd/tortas.mdb;Driver={Microsoft Access Driver (*.mdb)}", adOpenStatic Set BancoDados = Server.CreateObject("ADODB.Recordset") BancoDados.Open "select * from tortas order by TORTA", Conexao BancoDados.MoveFirst %>

<% Do While NOT BancoDados.EOF dim i i=1 %> <% Do While i<5 AND NOT BancoDados.EOF %> <% BancoDados.MoveNext i=i+1 LOOP %> <% LOOP %> Para que sua torta conserve o máximo de seu sabor, temos algumas dicas.

<% BancoDados.Close Conexao.Close %>