<%=Ucase(cat)%> <% strSQL = "select * from propuestas_ventas where cat='"&cat&"' and (marca_ocultar <> 'on' or marca_ocultar is null) order by id desc" AbrirBD() objRS.Open strSQL, objConn, 1 cont = 0 Do While Not objRS.EOF cont = cont + 1 %> <% objRS.MoveNext() Loop CerrarBD() %>