<% Set Conn = Server.CreateObject("ADODB.Connection") BdConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Domains\antonioautopecas.com.br\db\conteudo.mdb;" conn.Open BdConn %> Escolha uma categoria --------- <% Set RSNOME = Server.CreateObject("ADODB.Recordset") DIM SQL2 SQL2 = "Select * from produtos_categorias order by nome" RSNOME.Open SQL2, Conn, 1, 3 Do While Not RSNOME.eof %> "><%=RSNOME("NOME")%> <% RSNOME.movenext Loop RSNOME.close set RSNOME = nothing %> <% Conn.Close %>