do while not rs.eof select case rs("idtipo") case 1 'muestras la noticia tipo1 case 2 'muestras la noticia tipo2 end select rs.movenext loop