<%
Dim cabezal
cabezal = request.QueryString("industrias")
select case (cabezal)
case "Carga"
liga_cabezal = "http://www.cargainfo.com/RN_calendario_carga.htm"
barra = "carga"
case "Construcción"
liga_cabezal = "http://www.info-construccion.com/RN_calendario_construccion.htm"
barra = "construccion"
case "Educación"
liga_cabezal = "http://www.rhred.com/RN_calendario_educacion.htm"
barra = "educacion"
case "Finanzas"
liga_cabezal = "http://www.info-finanzas.com/RN_calendario_finanzas.htm"
barra = "finanzas"
case "Seguridad"
liga_cabezal = "http://www.info-seguridad.com/RN_calendario_seguridad.htm"
barra = "seguridad"
case "Tecnología"
liga_cabezal = "http://www.tecno-portal.com/RN_calendario_tecnologia.htm"
barra = "tecnologia"
case "Viaje"
liga_cabezal = "http://www.info-viaje.com/RN_calendario_viaje.htm"
barra = "viaje"
case ""
vista = "none"
barra = "todas"
End select
%>
.style.display='';">
