<% ' 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 %> <% LOOP %>

Preços sujeitos à alteração sem aviso prévio.

<% BancoDados.Close Conexao.Close %>