[Resolvido] Select Top 16

[Inside 2]

Caros amigos

 

Em alguns sites uso o Top (Valor) para mostrar os recordsets que eu desejo. Preciso de uma ajuda, pois preciso listar 16 ou 20 itens do banco porém precisa que a cada quatro itens os resultados estivessem dentro de uma <li></li>

 

Isso é possível?

 

<li>

resultado 1

resultado 2

resultado 3

resultado 4

</li> (Fecha aqui)

<li>

resultado 5

resultado 6

resultado 7

resultado 8

</li> (Fecha aqui)

 

Asssim por diante...

 

 

dim conn_de

Set conn_de = Server.CreateObject("ADODB.Connection")

conn_de.Open dsn_departamentos

dim rsde, sqlde

SQLde = "SELECT Top 16 imagem FROM fotos where status = 1 order by subcategoria"

set rsde = conn_de.execute(sqlde)

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

	response.write "<li>" & rsde("imagem") & "</li>"

rsde.movenext
loop
end if

set rsde = nothing

conn_de.close
set conn_de = nothing

 

Obrigado pela atenção de todos.

[augustoclaro 2]

dim conn_de

 

Set conn_de = Server.CreateObject("ADODB.Connection")

 

conn_de.Open dsn_departamentos

 

dim rsde, sqlde

 

SQLde = "SELECT Top 16 imagem FROM fotos where status = 1 order by subcategoria"

 

set rsde = conn_de.execute(sqlde)

 

if rsde.eof and rsde.bof then

response.write ""

else

rsde.movefirst

for i=1 to 4

response.write "<li>"

response.write rsde("imagem")&"<br>"

rsde.movenext

response.write rsde("imagem")&"<br>"

rsde.movenext

response.write rsde("imagem")&"<br>"

rsde.movenext

response.write rsde("imagem")&"<br>"

rsde.movenext

response.write "</li>"

next

end if

 

set rsde = nothing

 

conn_de.close

set conn_de = nothing

[Inside 2]

Caro augustoclaro

 

Maravilha! Muito obrigado pela ajuda.