Listar tabelas do Banco de Dados

Pessoal estou com dificuldade em listar tabelas do banco de dados. Quero listá-las, e jogar seus valores em um select box:

 

<select name="competencia">

<%

set rst = conexao.execute("SHOW TABLES FROM media LIKE 'indice%'")

cont = 0

while not rst.eof

Tabela = rst(cont)

%>

<option><%=Tabela%></option>

<%

cont=cont+1

rst.movenext

wend

%>

</select>