Publicado em 17 de set.

Como faço para testar se tiver algo eu mostro ?

#asp classico

Boa Tarde...

Estou em criando uma página em asp que mostra o titulo e os links que esse titulo tem...

EX:

Um professor quando acessa sua página tem acesso alguns links da facu.

Apoio Acadêmico

• + Amigos

• Biblioteca

• Biblioteca Virtual

• Calendario Escolar

• Locais / Horários dos encontros

• Minha Turma

• Pautas

• Pautas Anteriores

• Relatório de controle de mensalidades

• Relatório de entrega de contratos

• Relatório dos Alunos que cursam mais de um período Novo!

só que tem alguns professores que não tem nenhum link naquele titulo e mesmo assim o titulo está mostrando .

Gostaria de saber como faço em asp para dizer ser tiver link mostre o titulo.

Se não entenderam entre em contanto comigo: camila.cunha@aiec.br

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%'If Session("MM_UserAuthorization_transfer") <> "" Then

'response.write("")

' *** Restrict Access To Page: Grant or deny access to this page

'MM_authorizedUsers=""

'MM_authFailedURL="http://www.aiec.br/default.asp" '"../alunos/alu_login.asp"

'MM_grantAccess=false

'If Session("MM_Username_Doc") <> "" Then

' If (true Or CStr(Session("MM_UserAuthorization_transfer"))="") Or _

' (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization_transfer"))>=1) Then

' MM_grantAccess = true

' End If

'End If

'If Not MM_grantAccess Then

' MM_qsChar = "?"

' If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"

' MM_referrer = Request.ServerVariables("URL")

' if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()

' MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)

' Response.Redirect(MM_authFailedURL)

'End If

<%'Else

response.write("")

' *** Restrict Access To Page: Grant or deny access to this page

MM_authorizedUsers=""

MM_authFailedURL="http://www.aiec.br/" '"../alunos/alu_login.asp"

MM_grantAccess=false

If Session("MM_Username_Doc") <> "" Then

If (true Or CStr(Session("MM_UserAuthorization"))="") Or _

(InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then

MM_grantAccess = true

End If

If Not MM_grantAccess Then

MM_qsChar = "?"

If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"

MM_referrer = Request.ServerVariables("URL")

if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()

MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)

Response.Redirect(MM_authFailedURL)

End If

<%'End if

Dim rsDocente__qyLogin

rsDocente__qyLogin = "0"

if (Session("MM_Username_Doc") <> "") then rsDocente__qyLogin = Session("MM_Username_Doc")

If Session("MM_Username") <> Session("MM_Username_Doc") then

Session("MM_Username") = Session("MM_Username_Doc")

End if

Set rsDocente = Server.CreateObject("ADODB.Recordset")

Set cmdDocente = Server.CreateObject("ADODB.Command")

cmdDocente.ActiveConnection = BancoAIEC_WEB

cmdDocente.CommandText = "dbo.procTutorDocente"

cmdDocente.CommandType = 4 ' 4 = stored procedure

'*** Carregando os parametros

cmdDocente("@docente_str_login") = ClearParamStr(ClearParamInt(rsDocente__qyLogin))

set rsDocente = cmdDocente.Execute

session("MM_USERNAME_DOCENTE") = rsDocente("docente_int_codigo")

Dim rec_nomeDocente

rec_nomeDocente=(rsDocente.Fields.Item("docente_str_nome").Value)

'Verifica se existe a imagem correspondente, caso não haja busca imagem padrao

Dim Img_Foto_Tutor

If FUN_FileExists ("/sistemas/bibliotecas/midia/fotos/docentes/" & (rsDocente.Fields.Item("docente_int_codigo").Value) & ".jpg") then

Img_Foto_Tutor = ("/sistemas/bibliotecas/midia/fotos/docentes/" & (rsDocente.Fields.Item("docente_int_codigo").Value) & ".jpg")

Else

Img_Foto_Tutor = ("/sistemas/bibliotecas/midia/fotos/docentes/img_filenotfound_p.jpg")

End If

Set rsprocPautasAnterioresVerificaLiberacao = Server.CreateObject("ADODB.Recordset")

Set cmdprocPautasAnterioresVerificaLiberacao = Server.CreateObject("ADODB.Command")

cmdprocPautasAnterioresVerificaLiberacao.ActiveConnection = BancoAIEC_WEB

cmdprocPautasAnterioresVerificaLiberacao.CommandText = "dbo.procPautasAnterioresVerificaLiberacao"

cmdprocPautasAnterioresVerificaLiberacao.CommandType = 4 ' 4 = stored procedure

'*** Carregando os parametros

' cmdprocPautasAnterioresVerificaLiberacao("@docente_int_codigo") = ClearParamStr( ClearParamInt(rsDocente.fields.item("docente_int_codigo").value) )

set rsprocPautasAnterioresVerificaLiberacao = cmdprocPautasAnterioresVerificaLiberacao.Execute

Set rsVerificacao_cursos_tutor = Server.CreateObject("ADODB.Recordset")

Set cmdVerificacao_cursos_tutor = Server.CreateObject("ADODB.Command")

cmdVerificacao_cursos_tutor.ActiveConnection = BancoAIEC_ACAD

cmdVerificacao_cursos_tutor.CommandText = "dbo.procGetUsuarioCurcod"

cmdVerificacao_cursos_tutor.CommandType = 4 ' 4 = stored procedure

'*** Carregando os parametros

cmdVerificacao_cursos_tutor("@usuario_int_codigo") = ClearParamStr(ClearParamInt(rsDocente.fields.item("docente_int_codigo").value))

cmdVerificacao_cursos_tutor("@usu_chr_tipo") = Session("MM_UserAuthorization")

set rsVerificacao_cursos_tutor = cmdVerificacao_cursos_tutor.Execute

QTD_Curcod = 0

If Not(Rsverificacao_cursos_tutor.Eof) Then

While Not (Rsverificacao_cursos_tutor.Eof)

Qtd_curcod = Qtd_curcod+1

Rsverificacao_cursos_tutor.Movenext

Wend

Rsverificacao_cursos_tutor.Requery

End If

Set rsESTAGIO_Verificacao_tutor = Server.CreateObject("ADODB.Recordset")

Set cmdESTAGIO_Verificacao_tutor = Server.CreateObject("ADODB.Command")

cmdESTAGIO_Verificacao_tutor.ActiveConnection = BancoAIEC_WEB

cmdESTAGIO_Verificacao_tutor.CommandText = "dbo.procTutorVerificaEstagio"

cmdESTAGIO_Verificacao_tutor.CommandType = 4 ' 4 = stored procedure

'*** Carregando os parametros

cmdESTAGIO_Verificacao_tutor("@docente_int_codigo") = ClearParamStr( ClearParamInt(rsDocente.fields.item("docente_int_codigo").value) )

set rsESTAGIO_Verificacao_tutor = cmdESTAGIO_Verificacao_tutor.Execute

Set rstutor_tap = Server.CreateObject("ADODB.Recordset")

Set cmdtutor_tap = Server.CreateObject("ADODB.Command")

cmdtutor_tap.ActiveConnection = BancoAIEC_ACAD

cmdtutor_tap.CommandText = "dbo.PRC_VERIFICA_TUTOR_TAP_MENU"

cmdtutor_tap.CommandType = 4 ' 4 = stored procedure

'*** Carregando os parametros

cmdtutor_tap("@docente") = ClearParamStr( ClearParamInt(rsDocente.fields.item("docente_int_codigo").value) )

set rstutor_tap = cmdtutor_tap.Execute

'Verificação de Links Bloqueados

function VerificarSistemasBloqueados (sistema, tipo, configLink)

'Sistemas

'1 Plataforma

'3 Area do aluno

'4 Area do tutor

'Tipos

'2 E-mail

'1 Fórum

'3 Histórico

'4 Pautas

Set rsVerificaBloqueios = Server.CreateObject("ADODB.Recordset")

Set cmdVerificaBloqueios = Server.CreateObject("ADODB.Command")

cmdVerificaBloqueios.ActiveConnection = BancoAIEC_Site

cmdVerificaBloqueios.CommandText = "dbo.PRC_BLOQUEIO_VERIFICAR_BLOQUEIO_USUARIO"

cmdVerificaBloqueios.CommandType = 4 ' 4 = stored procedure

'*** Carregando os parametros

cmdVerificaBloqueios("@tipo") = ClearParamStr( ClearParamInt(tipo) )

cmdVerificaBloqueios("@sistema") = ClearParamStr( ClearParamInt(sistema) )

cmdVerificaBloqueios("@usuario_int_codigo") = ClearParamStr( ClearParamInt(CInt(rsDocente.Fields.Item("docente_int_codigo").Value)) )

set rsVerificaBloqueios = cmdVerificaBloqueios.Execute

if rsVerificaBloqueios.EOF or rsVerificaBloqueios("status") = "LIBERADO" then

VerificarSistemasBloqueados = ""

elseif configLink = "a" then

VerificarSistemasBloqueados = 0

else

VerificarSistemasBloqueados = 0

Tipo = rsVerificaBloqueios("chr_estilo_bloqueio")

URLBlock = rsVerificaBloqueios("varc_estilo_bloqueio_link")

if (trim(Tipo) = "J") then

 VerificarSistemasBloqueados = replace(configLink, "alert()", "alert('"&URLBlock&"'); return false;")

	else

 Set objRegExpr = New regexp

 objRegExpr.Pattern = "href="&chr(34)&"[^"&chr(34)&"]+"&chr(34)

 objRegExpr.Global = True

 objRegExpr.IgnoreCase = True

 VerificarSistemasBloqueados = objRegExpr.replace(configLink, "href="&chr(34)&URLBlock&chr(34))

 VerificarSistemasBloqueados = Replace(VerificarSistemasBloqueados, "alert()", "")

 

	end if

end if

end function

'Procedure que verifica se o tutor possui ção respondida

Set rsVerificaAval = Server.CreateObject("ADODB.Recordset")

Set cmdVerificaAval = Server.CreateObject("ADODB.Command")

cmdVerificaAval.ActiveConnection = BancoAIEC_ACAD

cmdVerificaAval.CommandText = "dbo.PRC_AVALIACAO_VERIFICA_SE_TEM_AVALIACAO"

cmdVerificaAval.CommandType = 4 ' 4 = stored procedure

'*** Carregando os parametros

cmdVerificaAval("@ano") = 2007

cmdVerificaAval("@semestre") = 1

'response.write(session("MM_USERNAME_DOCENTE"))

'response.End()

cmdVerificaAval("@docente_int_codigo") = ClearParamStr( ClearParamInt(CInt(session("MM_USERNAME_DOCENTE"))) ) 'ClearParamStr( ClearParamInt(CInt(session("MM_USERNAME_DOCENTE"))) )

cmdVerificaAval("@AVAL_ID") = 17 'parametro existente na tabela aval_avaliacao

set rsVerificaAval = cmdVerificaAval.Execute

If Session("Registrar_log") = "" Then 'Se o login do tutor for efetuado pelo relatorio de acesso direto ele nãoo registra.

'Registra o Acesso ao portal

Set rsRegistraLog = Server.CreateObject("ADODB.Recordset")

Set cmdRegistraLog = Server.CreateObject("ADODB.Command")

cmdRegistraLog.ActiveConnection = BancoAIEC_SGEAD

cmdRegistraLog.CommandText = "dbo.PRC_SITE_REGISTRA_ACESSO"

cmdRegistraLog.CommandType = 4 ' 4 = stored procedure

' *** Carregando os parametros

cmdRegistraLog("@usr") = Session("MM_Username")

cmdRegistraLog("@tipoUsr") = Session("MM_UserAuthorization")

cmdRegistraLog("@url") = "/tutor/tutor_index.asp"

cmdRegistraLog("@ip") = Request.ServerVariables("remote_addr")

Set rsRegistraLog = cmdRegistraLog.Execute

End If

Dim locked

locked = False

<% 'RETIRADO "+AMIGOS" DO TUTOR por Nayara Alves(01/12/2010)

'verifica se o tutor deve ver o link do +Amigos! by Andréa Chiba em 19/11/2009

'Set rs_acessoMaisAmigos = Server.CreateObject("ADODB.Recordset")

'Set cmd_acessoMaisAmigos = Server.CreateObject("ADODB.Command")

'cmd_acessoMaisAmigos.ActiveConnection = BancoAiec

'cmd_acessoMaisAmigos.CommandText = "prcAmigosConviteTutorverificar"

'cmd_acessoMaisAmigos.CommandType = 4 ' 4 = stored procedure

'cmd_acessoMaisAmigos("@docente") = session("MM_USERNAME_DOCENTE")

'Set rs_acessoMaisAmigos = cmd_acessoMaisAmigos.Execute

'Dim acesso : acesso = 0

'If Not rs_acessoMaisAmigos.EOF Then

' acesso = 1

'Else

' acesso = 0

'End If

<html>

<head>

<title>AIEC - Faculdade de Administração de Brasília - Cursos de administração via Internet</title>

<script type="text/javascript" src="/sistemas/biblioteca_js/google_analytics_restritas.js"></script>

 

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<script language="VBScript" runat="server">

function data()

dia = day(now)

mes = month(now)

ano = year(now)

mes_nome = monthname(mes)

hora = hour(now)

min = minute(now)

sec = second(now)

if (min <= 9) then

min = "0"&min

end if

if (dia = 1) then

dia = " Hoje é dia 1º "

else

dia = " Hoje é dia "&dia

end if

if (hora >= 6 and hora < 12) then

saud = "Bom dia. "

elseif (hora >= 12 and hora < 18) then

saud = "Boa tarde. "

else

saud = "Boa noite. "

end if

'17:44 hs. Boa tarde. Hoje são 15 de março de 2005.

Response.Write(hora&"h"&min&"min."&saud&" "&dia&" de "&mes_nome&" de "&ano)

'return frase_completa

end function

</script>

<script>

function MM_findObj(n, d) { //v4.01

 var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {

 d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}

 if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms*[n];*

* for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers**.document);*

if(!x && d.getElementById) x=d.getElementById(n); return x;

}

*function MM_preloadImages() { //v3.0*

* var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();*

var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)

if (a.indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a;}}

}

function P7_autoLayers() { //v1.2 by PVII

var g,b,k,f,args=P7_autoLayers.arguments;

* var a = parseInt(args[0]);if(isNaN(a))a=0;*

* if(!document.p7setc) {p7c=new Array();document.p7setc=true;*

* for (var u=0;u<10;u++) {p7c** = new Array();}}*

for(k=0; k<p7c[a].length; k++) {

if((g=MM_findObj(p7c[a][k]))!=null) {

b=(document.layers)?g:g.style;b.visibility="hidden";}}

for(k=1; k<args.length; k++) {

if((g=MM_findObj(args[k])) != null) {

b=(document.layers)?g:g.style;b.visibility="visible";f=false;

for(j=0;j<p7c[a].length;j++) {

if(args[k]==p7c[a][j]) {f=true;}}

if(!f) {p7c[a][p7c[a].length++]=args[k];}}}

}

//-->

function mostrarJanela(id){

if(document.getElementById(id).style.display == "block"){

document.getElementById(id).style.display = "none";

}else{

document.getElementById(id).style.display = "block";

}

</script>

*<link href="/sistemas/biblioteca_css/titulo1.css" rel="stylesheet" type="text/css">*

*<link href="/sistemas/biblioteca_css/formatacao_de_textos.css" rel="stylesheet" type="text/css">*

*<link href="/sistemas/biblioteca_css/styles.css" rel="stylesheet" type="text/css">*

*<script language="JavaScript" src="/sistemas/biblioteca_js/flash2.js"></script>*

<style>

img{

display: block;

}

.principal{

float: left;

padding: 20px;

}

.clearfix:after {

content: ".";

display: block;

clear: both;

visibility: hidden;

height: 0;

line-height: 0;

}

.titulo_aluno{

color: #990000;

font-size: 12px;

font-weight: bold;

}

.nome_aluno{

color: #990000;

font-size: 11px;

font-weight: bold;

}

.dest_titulo{

padding: 5px;

margin: 0px 0px 0px 14px;

font-family: verdana;

font-size: 10px;

color: #FFF;

font-weight: bold;

background: #990000;

}

.ld_esq{

width:152px;

font-family: verdana;

font-size: 10px;

color: #000;

float: left;

margin-right: 40px;

}

.cx_foto{

padding: 10px;

border: 1px solid #CCC;

background: #FFF;

}

.ft_aluno{

width: 38px;

height: 39px;

padding: 3px;

color: #CCC;

background: #FFF;

border: 1px solid #CCC;

}

.txt_ld_esq{

}

.ld_dir{

width:540px;

font-family: verdana;

font-size: 10px;

color: #000;

float: left;

}

.conteudo_ld_dir{

border: 1px solid #CCC;

background: #FFF;

float: left;

padding: 10px 20px 10px 20px;

}

.conteudo_ld_dir2{

padding-top: 10px;

}

.menu_esq{

width: 55%;

float: left

}

.cont_menu_esq{

padding-right: 10px;

}

.menu_dir{

width: 45%;

float: left;

}

.formcinza {

border: 1px #666666 solid;

font-family: Verdana, Arial, Helvetica, sans-serif;

font-size: 10px;

color: #666666;

text-decoration: none ;

clip: rect( );

filter: Gray;

}

.contMensagemInformacao{

padding: 20px 10px 10px 10px;

}

.contAtencao_float{

padding: 4px 0px 4px 10px;

text-align: left;

float: left;

}

#mensagemInformacao{

width: 470px;

text-align: left;

border: 1px #CCC solid;

display: none;

float: left;

background: #FEFEDB;

}

.floatLeft{

float: left;

}

</style>

<style>

/ Objetos HTML /

a img

{

border-width: 0px;

}

/ ID's /

#banner_sinal

{

position: relative;

top: 30px;

}

#atencao_float { background: #FEFEDB; margin-top: -15px; width:450px; font-size: 11px; font-family: trebuchet ms; padding: 4px 0px 4px 60px; border: 1px #D8D880 solid; color: #4A4A24; cursor: hand; }

#atencao_float2{

background: #FEFEDB;

font-size: 11px;

width: 470px;

font-family: trebuchet ms;

border: 1px #D8D880 solid;

color: #4A4A24;

cursor: pointer;

float: left;

}

#ico_atencao { position: absolute; margin-top: -20px; margin-left: -50px; }

#clique { margin-right: 10px; float: right; margin-top: -16px; font-size: 11px; color: #AFAF8B; font-weight: bold; }

#img2 { display: none;}

#mensagem { position: absolute; left: 351px; width: 450px; top: 252 px; display: none; background: #FEFEDB;}

#clique2{

margin: 10px 5px 0px 0px;

float: right;

}

</style>

<script language="JavaScript" type="text/JavaScript">

<!--

function MM_openBrWindow(theURL,winName,features) { //v2.0

window.open(theURL,winName,features);

}

function MM_popupMsg(msg) { //v1.0

alert(msg);

}

//-->

//funçao do aviso

function abre_mensagem(){

if(document.getElementById('mensagem').style.display == "none"){

document.getElementById('mensagem').style.display = "inline";

document.getElementById('img1').style.display = "none";

document.getElementById('img2').style.display = "inline";

}else{

document.getElementById('mensagem').style.display = "none";

document.getElementById('img1').style.display = "inline";

document.getElementById('img2').style.display = "none";

}

//estado == "inline" ? estado = "none" : estado = "inline";

}

</script>

</head>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" rightmargin="0">

* <table width="100%" border="0" cellspacing="0" cellpadding="0">*

* <tr>*

* <td align="center" valign="top">*

* <table width="778" border="0" cellpadding="0" cellspacing="0" bgcolor="#e7e8ea">*

* <tr> *

* <td valign="top"> <!--#include virtual="/sistemas/includes/inc_topo.asp" --> </td>*

* </tr>*

* <tr> *

* <td valign="top"> <!--#include virtual="/sistemas/includes/inc_menu_curso.asp" --></td>*

* </tr>*

* <tr> *

* <td>*

* <table width="100%" border="0" cellspacing="0" cellpadding="0">*

* <tr valign="top"> *

* <td width="100%"> *

* <div class="principal">*

<div class="ld_esq">

<%If Not rsPodeResponder.EOF Then%>

<%If Session("ss_curcod") = 101 Then%>

<div class="txt_ld_esq">

<%If rsaval.recordcount > 0 Then%>

* <a href="../../avaliacao/semestre/docente/avalInstrucaoDocentePrincipal.asp?aval_tipo=3" target="_blank">*

* <img src="imagens/banner_avaliacao_docente.gIf" alt="Avaliação do Curso" class="sem_borda"/>*

* </a>*

<%End If%>

</div>

<%End If%>

</div>

<div class="ld_dir">

* <br />*

* <br />*

<%If request("esc_curcod") = 101 Then%>

<span class="nome_aluno">Administração - Graduação </span>

<%End If%>

<%If request("esc_curcod") = 104 Then%>

<span class="nome_aluno">Administração - Seqüencial </span>

<%End If%>

<%If request("esc_curcod") = 103 Then%>

<span class="nome_aluno">Administração - Pós-Graduação </span>

<%End If%>

<div class="conteudo_ld_dir clearfix" >

<div class="conteudo_ld_dir2 clearfix">

* <div id="atencao_float2" class="clearfix" onClick="mostrarJanela('mensagemInformacao');">*

* <div class="contAtencao_float">*

* <img src="/sistemas/biblioteca_imagens/diversos/icones/ic_atencao.gif" class="floatLeft" /> *

* <strong>19/12/2011</strong> - <B>INFORMAÇÃO IMPORTANTE!</B>*

* </div>*

* <div id="clique2">*

* <img id="img1" src="/sistemas/biblioteca_imagens/diversos/icones/seta_down.gif" />*

* <img id="img2" src="/sistemas/biblioteca_imagens/diversos/icones/seta_down.gif" />*

* </div>*

* </div>*

* <div id="mensagemInformacao" class="clearfix">*

* <div class="contMensagemInformacao">*

* <b>Prezado(a) tutor(a)</b>,</br></br>*

* <b>Horário de funcionamento:</b></br>*

* Segunda a sexta-feira: 8h às 18h.</br>*

Sábados: 8h às 12h.

<br/>

* </div>*

* </div>*

</div></br>

<table width="500" border="0" cellpadding="0" cellspacing="0" background="/sistemas/imagens/background2.jpg">

Dim rsAreaTutorTitulo

Dim cmdAreaTutorTitulo

'Procedure que lista os titulos

Set rsAreaTutorTitulo = Server.CreateObject("ADODB.RecordSet")

Set cmdAreaTutorTitulo= Server.CreateObject("ADODB.Command")

cmdAreaTutorTitulo.ActiveConnection = BancoAIEC_ACAD

cmdAreaTutorTitulo.CommandText = "dbo.pcrAreaTutorTitulo"

cmdAreaTutorTitulo.CommandType = 4 ' 4 = stored procedure

* '*** CarregAndo os parâmetros *

Set rsAreaTutorTitulo = cmdAreaTutorTitulo.Execute

If Not rsAreaTutorTitulo.EOF Then

'se tem o titulo para mostrar

' se esse titulo tiver link

' mostra o titulo e os links

' senao

' nao mostra o titulo nem os links

<%While (Not rsAreaTutorTitulo.EOF)%>

* <br />*

* <div class="nome_aluno">*

<%=rsAreaTutorTitulo("nomeMenu") %>

* </div>*

* <br />*

'Procedure que lista os links

Set rsAreaTutorLinks = Server.CreateObject("ADODB.RecordSet")

Set cmdAreaTutorLinks = Server.CreateObject("ADODB.Command")

cmdAreaTutorLinks.ActiveConnection = BancoAIEC_ACAD

cmdAreaTutorLinks.CommandText = "dbo.pcrAreaTutorLinks"

cmdAreaTutorLinks.CommandType = 4 ' 4 = stored procedure

* '*** CarregAndo os parâmetros *

cmdAreaTutorLinks("@curcod") = Session("ss_curcod")

cmdAreaTutorLinks("@codAreaMenu")= rsAreaTutorTitulo("codAreaMenu")

Set rsAreaTutorLinks = cmdAreaTutorLinks.Execute

Dim imgNovo : imgNovo = ""

Dim textoAlerta : textoAlerta = "Sistema indisponivel no momento!"

While Not rsAreaTutorLinks.eof

imgNovo = ""

If rsAreaTutorLinks("verIficacao") = 0 Then

If rsAreaTutorLinks("novo") = true Then

imgNovo ="<font color='#FF0000'><b> Novo!</b></font>"

End If

If rsAreaTutorLinks("codStatus") = 1 Then

* <div>*

* •<a href="<%=rsAreaTutorLinks("link") %>" <%If rsAreaTutorLinks("blank") = true Then%> target="_blank"<%End If%>> <%=rsAreaTutorLinks("NomedoLink") %></a> <%=imgNovo%><%imagemAlerdaMensagemNaoLida%></br>	*

* </div>*

<%ElseIf rsAreaTutorLinks("codStatus") = 2 Then%>

<a href="###" onclick="alert('<%=textoAlerta%>');"><%=rsAreaTutorLinks("NomedoLink")%></a>

<%End If%>

<%Else

Dim permissao : permissao = 0

'------------------------

' APOIO ACADÊMICO

'------------------------

'PAUTAS ANTERIORES

If (rsAreaTutorLinks("codMenuSistema") = 152) or (rsAreaTutorLinks("codMenuSistema") = 153) Then

Set rsprocPautasAnterioresVerIficaLiberacao = Server.CreateObject("ADODB.RecordSet")

Set cmdprocPautasAnterioresVerIficaLiberacao = Server.CreateObject("ADODB.Command")

cmdprocPautasAnterioresVerIficaLiberacao.ActiveConnection = BancoAIEC_WEB

cmdprocPautasAnterioresVerIficaLiberacao.CommandText = "dbo.procPautasAnterioresVerIficaLiberacao"

cmdprocPautasAnterioresVerIficaLiberacao.CommandType = 4 ' 4 = stored procedure

* '*** CarregAndo os parametros*

' cmdprocPautasAnterioresVerIficaLiberacao("@docente_int_codigo") = ClearParamStr( ClearParamInt(rsDocente.fields.item("docente_int_codigo").value) )

Set rsprocPautasAnterioresVerIficaLiberacao = cmdprocPautasAnterioresVerIficaLiberacao.Execute

If Not rsprocPautasAnterioresVerIficaLiberacao.EOF Then

permissao = 1

End If

'GRUPOS

ElseIf (rsAreaTutorLinks("codMenuSistema") = 160) or (rsAreaTutorLinks("codMenuSistema") = 161) or (rsAreaTutorLinks("codMenuSistema") = 162) Then

Set rstutor_tap = Server.CreateObject("ADODB.RecordSet")

Set cmdtutor_tap = Server.CreateObject("ADODB.Command")

cmdtutor_tap.ActiveConnection = BancoAIEC_ACAD

cmdtutor_tap.CommandText = "dbo.PRC_VERIfICA_TUTor_TAP_MENU"

cmdtutor_tap.CommandType = 4 ' 4 = stored procedure

* '*** CarregAndo os parametros*

cmdtutor_tap("@docente") = ClearParamStr( ClearParamInt(rsDocente.fields.item("docente_int_codigo").value) )

Set rstutor_tap = cmdtutor_tap.Execute

If (rstutor_tap("result")) = 3 or (rstutor_tap("result")) = 1 or (rstutor_tap("result")) = 2 Then

permissao = 1

End If

'GRUPOS DE TCC

ElseIf (rsAreaTutorLinks("codMenuSistema") = 163) or (rsAreaTutorLinks("codMenuSistema") = 164) or (rsAreaTutorLinks("codMenuSistema") = 165) Then

If (rstutor_tap("result")) = 3 or (rstutor_tap("result")) = 1 or (rstutor_tap("result")) = 2 Then

If rsESTAGIO_VerIficacao_tutor("periodo") <> 0 Then

permissao = 1

End If

'REGISTRO ACADÊMICO e Lista dos tutores dos alunos

ElseIf (rsAreaTutorLinks("codMenuSistema") = 166) or (rsAreaTutorLinks("codMenuSistema") = 167) Then

'RECORDSet PARA LISTAGEM DE CENTROS

Set rs_selecionaCentro = Server.CreateObject("ADODB.RecordSet")

Set cmd_selecionaCentro = Server.CreateObject("ADODB.Command")

cmd_selecionaCentro.ActiveConnection = BancoAIEC_ACAD

cmd_selecionaCentro.CommandText = "Proc_lista_centro_tutores"

cmd_selecionaCentro.CommandType = 4

* ' *** CARREGAndO OS PARAMETROS*

cmd_selecionaCentro("@docente_int_codigo") = Session("MM_USERNAME_DOCENTE")

Set rs_selecionaCentro = cmd_selecionaCentro.Execute

Dim CONTADOR_x

CONTADOR_x = 0

Dim pais : pais = "país" 'variável que vai receber o pais do tutor.

While (Not rs_selecionaCentro.EOF)

centro = rs_selecionaCentro("CENTRO")

ano = rs_selecionaCentro("TURANO")

sem = rs_selecionaCentro("TURSEM")

pais = rs_selecionaCentro("centro_str_pais")

CONTADOR_x = CONTADOR_x + 1

rs_selecionaCentro.MoveNext()

Wend

If (rstutor_tap("result")) = 2 or (pais = "Japão")or (pais = "Angola") or (pais = "Moçambique") Then

permissao = 1

End If

'NOTAS DOS ALUNOS ABAIXO DA MÉDIA

ElseIf (rsAreaTutorLinks("codMenuSistema") = 168) Then

If (rstutor_tap("result")) = 1 or pais = "Japão" or pais = "Angola" or pais = "Moçambique" Then

permissao = 1

End If

'SISTEMA DE DESCONTO DE LÍDERES

ElseIf rsAreaTutorLinks("codMenuSistema") = 169 Then

If (rstutor_tap("result")) = 3 or (rstutor_tap("result")) = 1 Then

permissao = 1

End If

'RELATÓRIO DE ALUNOS QUE SOLICITARAM 2ª CHAMADA

Elseif rsAreaTutorLinks("codMenuSistema") = 177 Then

Set Rs_proc_acad_tutor_presenca_periodo = Server.CreateObject("ADODB.RecordSet")

Set cmd_proc_acad_tutor_presenca_periodo = Server.CreateObject("ADODB.Command")

cmd_proc_acad_tutor_presenca_periodo.ActiveConnection = BancoAIEC_ACAD

cmd_proc_acad_tutor_presenca_periodo.CommandText = "dbo.Proc_Acad_Tutor_Presenca_Periodo"

cmd_proc_acad_tutor_presenca_periodo.CommandType = 4 ' 4 = stored procedure

* '*** CarregAndo os parâmetros *

cmd_proc_acad_tutor_presenca_periodo("@docente_int_codigo") = session("MM_USERNAME_DOCENTE")

cmd_proc_acad_tutor_presenca_periodo("@curcod") = session("ss_curcod")

Set Rs_proc_acad_tutor_presenca_periodo = cmd_proc_acad_tutor_presenca_periodo.Execute

Dim cont

cont = 0

while Not (Rs_proc_acad_tutor_presenca_periodo.EOF)

periodo = Rs_proc_acad_tutor_presenca_periodo("periodo")

cont = cont + 1

Rs_proc_acad_tutor_presenca_periodo.MoveNext()

Wend

If cont <> 0 Then

permissao = 1

End If

'BIBLIOTECA VIRTUAL

ElseIf rsAreaTutorLinks("codMenuSistema") = 179 Then

Set rsAutorizacao = Server.CreateObject("ADODB.RecordSet")

Set cmdAutorizacao = Server.CreateObject("ADODB.Command")

cmdAutorizacao.ActiveConnection = BancoAIEC_ACAD

cmdAutorizacao.CommandText = "dbo.PRC_BIBLIOTECA_VIRTUAL_ACESSO"

cmdAutorizacao.CommandType = 4 ' 4 = stored procedure

* '*** CarregAndo os parametros*

cmdAutorizacao("@matricula") = 0

cmdAutorizacao("@tipo_usuario") = Session("MM_UserAuthorization")

cmdAutorizacao("@docente_int_codigo") = session("MM_Usuario_Int_Codigo")

Set rsAutorizacao = cmdAutorizacao.Execute

If Not rsAutorizacao.EOF Then

If rsAutorizacao("id_aluno") = Session("MM_Username") Then

permissao = 1

End If

'RELATÓRIO DE DISCIPLINAS CURSADAS PELOS ALUNOS

ElseIf (rsAreaTutorLinks("codMenuSistema") = 180) Or (rsAreaTutorLinks("codMenuSistema") = 181) Or (rsAreaTutorLinks("codMenuSistema") = 182) Then

If cont<> 0 Then

permissao = 1

End If

'RELATÓRIO DOS ALUNOS QUER EFETUARAM O PAGAMENTO DE MATRICULA NOS ÚTLIMOS 5 DIAS

ElseIf (rsAreaTutorLinks("codMenuSistema") = 183) Then

If cont <> 0 Then

If rstutor_tap("result") <> 2 Then

permissao = 1

End If

'SITUAÇÃO DE DOCUMENTAÇÃO DOS ALUNOS

ElseIf rsAreaTutorLinks("codMenuSistema") = 184 or (rsAreaTutorLinks("codMenuSistema") = 185) or (rsAreaTutorLinks("codMenuSistema") = 186) Then

If centro = 601 Then

permissao = 1

End If

'------------------------

' PROCESSO SELETIVO

'------------------------

'VERIFICAR INSCRITOS

ElseIf (rsAreaTutorLinks("codMenuSistema") = 187) or (rsAreaTutorLinks("codMenuSistema") = 188) or (rsAreaTutorLinks("codMenuSistema") = 189) Then

If CONTADOR_x > 0 Then

permissao = 1

End If

'LISTA DE PRESENÇA NO VESTIBULAR

ElseIf (rsAreaTutorLinks("codMenuSistema") = 190) Then

If CONTADOR_x > 0 Then

If rstutor_tap("result") = 2 Then

permissao = 1

End If

'------------------------

' ENTRADA MEU CURSO

'------------------------

'CORREÇÃO ESTUDO DE CASO

ElseIf (rsAreaTutorLinks("codMenuSistema") = 191) Then

If pais = "Japão" Then

permissao = 1

End IF

'AGENDA

ElseIf (rsAreaTutorLinks("codMenuSistema") = 192) Or (rsAreaTutorLinks("codMenuSistema") = 193) Or (rsAreaTutorLinks("codMenuSistema") = 194) Then

If(rstutor_tap("result") = 2) Then

permissao = 1

End If

'FORUM

ElseIf rsAreaTutorLinks("codMenuSistema") = 195 Then

If (rsDocente("docente_int_codigo") <> 5) and (rstutor_tap("result") = 2) Then

permissao = 1

End If

'DISCIPLINAS EM CURSO

ElseIf rsAreaTutorLinks("codMenuSistema") = 196 Then

If (rsDocente("docente_int_codigo") <> 5) and (rstutor_tap("result") <> 2) Then

permissao = 1

End If

'DISCIPLINAS EM CURSO

ElseIf rsAreaTutorLinks("codMenuSistema") = 196 Then

If (rsDocente("docente_int_codigo") = 5) and rstutor_tap("result") <> 2 Then

permissao = 1

End If

'TCC

ElseIf rsAreaTutorLinks("codMenuSistema") = 197 Then

Set rsESTAGIO_VerIficacao_tutor = Server.CreateObject("ADODB.RecordSet")

Set cmdESTAGIO_VerIficacao_tutor = Server.CreateObject("ADODB.Command")

cmdESTAGIO_VerIficacao_tutor.ActiveConnection = BancoAIEC_WEB

cmdESTAGIO_VerIficacao_tutor.CommandText = "dbo.procTutorVerIficaEstagio"

cmdESTAGIO_VerIficacao_tutor.CommandType = 4 ' 4 = stored procedure

* '*** CarregAndo os parametros*

cmdESTAGIO_VerIficacao_tutor("@docente_int_codigo") = ClearParamStr( ClearParamInt(rsDocente.fields.item("docente_int_codigo").value) )

Set rsESTAGIO_VerIficacao_tutor = cmdESTAGIO_VerIficacao_tutor.Execute

If (rsESTAGIO_Verificacao_tutor("periodo") = 7) Or (rsESTAGIO_Verificacao_tutor("periodo") = 78) Or (rsESTAGIO_Verificacao_tutor("periodo") = 8) then

If rstutor_tap("result") <> 2 Then

permissao = 1

End If

'DOCUMENTOS REFERENTE AO TCC

ElseIf rsAreaTutorLinks("codMenuSistema") = 198 Then

If (rsESTAGIO_Verificacao_tutor("periodo") = 7) Or (rsESTAGIO_Verificacao_tutor("periodo") = 78) Or (rsESTAGIO_Verificacao_tutor("periodo") = 8) then

permissao = 1

End If

'AVALIAÇÃO DO CURSO

ElseIf(rsAreaTutorLinks("codMenuSistema") = 205) Then

If Not rsPodeResponder.EOF Then

If rsaval.recordcount > 0 Then

permissao = 1

End If

'------------------------

' APOIO TUTOR

'------------------------

'SISTEMA DE ATENDIMENTO

ElseIf (rsAreaTutorLinks("codMenuSistema") = 211) Or (rsAreaTutorLinks("codMenuSistema") = 212) Or (rsAreaTutorLinks("codMenuSistema") = 213) Then

Dim imagemAlerdaMensagemNaoLida

Set RS_Atendimento_Categoria = Server.CreateObject("ADODB.Recordset")

Set CMD_Atendimento_Categoria = Server.CreateObject("ADODB.Command")

CMD_Atendimento_Categoria.ActiveConnection = BancoAiec

CMD_Atendimento_Categoria.CommandText = "dbo.PROC_ATENDIMENTO_OCORRENCIA_VERIFICA_RESPOSTA"

CMD_Atendimento_Categoria.CommandType = 4 ' 4 = stored procedure

CMD_Atendimento_Categoria("@matricula") = Session("MM_Usuario_Int_Codigo")

Set RS_Atendimento_Categoria = CMD_Atendimento_Categoria.Execute

If Not RS_AtEnDimento_Categoria.EOF Then

permissao = 1

End If

'TUTORIAL PARA REDIMENSIONAMENTO DE IMAGENS

ElseIf (rsAreaTutorLinks("codMenuSistema") = 227) or (rsAreaTutorLinks("codMenuSistema") = 228) or (rsAreaTutorLinks("codMenuSistema") = 229) Then

If rstutor_tap("result") <> 2 Then

permissao = 1

End If

'------------------------

' IMPORTANTE

'------------------------

'IMPRESSÃO - PAUTA DE PRESENÇAS

ElseIf (rsAreaTutorLinks("codMenuSistema") = 245) Then

Set rsTutorTapPautaEletronica = Server.CreateObject("ADODB.Recordset")

Set cmdTutorTapPautaEletronica = Server.CreateObject("ADODB.Command")

cmdTutorTapPautaEletronica.ActiveConnection = BancoAIEC_ACAD

cmdTutorTapPautaEletronica.CommandText = "dbo.PRC_VERIFICA_TUTOR_TAP_MENU"

cmdTutorTapPautaEletronica.CommandType = 4 ' 4 = stored procedure

* '*** Carregando os parametros*

cmdTutorTapPautaEletronica("@docente") = ClearParamStr( ClearParamInt(rsDocente.fields.item("docente_int_codigo").value) )

cmdTutorTapPautaEletronica("@tipo") = 1

set rsTutorTapPautaEletronica = cmdTutorTapPautaEletronica.Execute

If (rsTutorTapPautaEletronica("result") = 2 Or rsTutorTapPautaEletronica("result") = 3) Then

permissao = 1

End If

ElseIf (rsAreaTutorLinks("codMenuSistema") = 246) Then