Selecione o Estado <% ' O cógigo ASP abaixo carrega a caixa de seleção de estado com o conteúdo ' da tabela Estado do banco de dados ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\fale\dados\paroquias\paroquias.mdb;" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open ConnString Conn.CursorLocation=3 'adUseClient SQL = "SELECT Nome, UF FROM Estado ORDER BY Nome ASC" Set RsQuery = Conn.Execute(SQL) If not RsQuery.EOF Then Do Until RsQuery.EOF Response.Write "" & RsQuery("Nome") & "" & vbcrlf RsQuery.MoveNext Loop End If RsQuery.Close Set RrQuery = Nothing Conn.Close Set Conn = Nothing %>