listar dados em um menu suspenso

[formalivre 0]

olá pessoal.

tenho nomes de categorias em um banco de dados.

gostaria de listar esses valores em um menu de lista onde a categoria escolhida o levará para outra página.

preciso deste menu por motivo de espaço pois a lista recebida do banco de dados está dificultando a abertura da página. se alguém puder me ajudar. obrigado.

esse é o código como está no momento:

 

<!--#Include file="conexao.asp"--><%Response.Expires = 0Dim conexao, strCat, rsCat, numCat, Cat, strNRegistros, rsNRegistrosstrCat = "SELECT * "strCat = strCat & "FROM categorias "strCat = strCat & "ORDER BY categoria asc"Set rsCat = conexao.Execute(strCat)Do While Not rsCat.EofnumCat = rsCat.Fields("idcat")Cat = rsCat.Fields("Categoria")strNRegistros = "SELECT COUNT(idcat) AS numclassific FROM noticias "strNRegistros = strNRegistros & "WHERE noticias.idcat=" & numCat & " "Set rsNRegistros = conexao.Execute(strNRegistros)%><p class="style2"><a href="teste.asp?Categoria=<% = numCat %>">  <% = Cat %>  (  <% = rsNRegistros("numclassific") %>)</a></p><span class="style1"><p>  <%rsCat.MoveNextLoop%></span>

[jrcardozo 4]

olá pessoal.tenho nomes de categorias em um banco de dados.gostaria de listar esses valores em um menu de lista onde a categoria escolhida o levará para outra página.preciso deste menu por motivo de espaço pois a lista recebida do banco de dados está dificultando a abertura da página. se alguém puder me ajudar. obrigado.esse é o código como está no momento:

<!--#Include file="conexao.asp"--><%Response.Expires = 0Dim conexao, strCat, rsCat, numCat, Cat, strNRegistros, rsNRegistrosstrCat = "SELECT * "strCat = strCat & "FROM categorias "strCat = strCat & "ORDER BY categoria asc"Set rsCat = conexao.Execute(strCat)Do While Not rsCat.EofnumCat = rsCat.Fields("idcat")Cat = rsCat.Fields("Categoria")strNRegistros = "SELECT COUNT(idcat) AS numclassific FROM noticias "strNRegistros = strNRegistros & "WHERE noticias.idcat=" & numCat & " "Set rsNRegistros = conexao.Execute(strNRegistros)%><p class="style2"><a href="teste.asp?Categoria=<% = numCat %>">  <% = Cat %>  (  <% = rsNRegistros("numclassific") %>)</a></p><span class="style1"><p>  <%rsCat.MoveNextLoop%></span>

Tenta isso:

<option selected value="1">Selecione:</option><%rsCat.movefirstDo While not rsCat.eof response.Write "<option value='" & rsCat("idcat") & "'>" & rsCat("categoria") & "</option>"rsCat.movenextlooprsCat.close%></select>