<% Set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/banco/okey.mdb") & ";Persist Security Info=False" SQL = "SELECT distinct FAMILIA FROM tabela_preco ORDER BY FAMILIA" Set RS=OBJdbConnection.Execute(SQL) vcontador = 1 vcolor = "#F4F4FF" %> <% do while not RS.eof %> <% rs.movenext %> <% if vcontador MOD 2 = 0 then %> <% vcolor = "#F4F4FF" %> <% else %> <% vcolor = "#FFFFFF" %> <% end if %> <% vcontador = vcontador + 1 %> <% loop %> <% OBJdbConnection.close %>

>	height="2">" target="mainFrame"><%=LCASE(RS("familia"))%>