<% set rsusera = Server.CreateObject("ADODB.Recordset") rsusera.ActiveConnection = connStr rsusera.Source = "SELECT * FROM tb_portifolio Order by prioridade asc " rsusera.Open() %>
<%c = 0 while not rsusera.eof c = c + 1%> <%if c <> 3 then%> <%else %> <% c = 0 end if rsusera.movenext wend%>