[Resolvido] Listar subcategorias

[Inside 2]

Caros amigos,

 

preciso de uma ajuda. Tenho esse código, ele lista as Subcategorias de acordo com as Categorias, agrupa corretamente da forma que eu preciso.

 

dim rsds, sqlds

SQLds = "SELECT id,catid,subcategoria FROM subcategorias where catid = " & rsdc("id") & " order by subcategoria"

set rsds = conn_de.execute(sqlds)

if rsds.eof and rsds.bof then
	response.write ""
else
do while not rsds.eof

response.write "<li><a href=""boutique_subcat_mostra.asp?c=" & rsds("id") & "&cc=" & rsds("catid") & """ class=""bmb""><b style=""color:#000000;"">" & rsds("subcategoria") & "</b></a></font></li>" %><% response.write "" & vbCrLf

rsds.movenext
loop
end if

set rsds = nothing

Mas preciso de uma coisa: é possível listar as subcategorias desta forma:

 

<ul>
<li></li>
<li></li>
<li></li>
</ul>

Isto é, criando e fechando com <ul> a cada grupo de subcategorias?

 

 

Obrigado pela atenção de todos.

[Gutoffline 1]

Cara, coloca o <ul> antes de iniciar o do while e termina o </ul> depois do loop, da um olhada abaixo e veja se ajuda:

 

dim rsds, sqlds

SQLds = "SELECT id,catid,subcategoria FROM subcategorias where catid = " & rsdc("id") & " order by subcategoria"

set rsds = conn_de.execute(sqlds)

if rsds.eof and rsds.bof then
    response.write ""
else
	response.write "<ul>"
	do while not rsds.eof
		response.write "<li><a href=""boutique_subcat_mostra.asp?c=" & rsds("id") & "&cc=" & rsds("catid") & """ class=""bmb"">	<b style=""color:#000000;"">" & rsds("subcategoria") & "</b></a></font></li>" %><% response.write "" & vbCrLf

		rsds.movenext
	loop
	response.write "</ul>"
end if

set rsds = nothing

[Inside 2]

Obrigado Gutoffline, muito simples e eficiente.