Ves paso a paso. Recorre el primer recordset a ver que te devuelve:
while (!rstIntranet.eof){
Response.Write(rstIntranet.Fields.id_destacados.va lue);
rstIntranet.Movenext();
}
Tambien quita el Case de la sentencia
switch(Case intra3.Fields("tipo_nombre").Value){
En vez de eso, pon
switch(intra3.Fields("tipo_nombre").Value){
Sin el case
Un saludo