Ir para conteúdo
Fórum Script Brasil
  • 0

O Comando De Texto Não Foi Definido Para O Objeto De Comando


frnd

Pergunta

Coloquei a página inteira para ver se é necessário visualizar a resolução do erro..

as duas linhas de comando abaixo mostram o erro... "o comando de texto não foi definido para o objeto de comando"

escrito assim:

if conn.errors.count>0 then

response.write err.description

<!-- #include file="unilinsvirtual_lib.asp" --> 
<%    response.buffer = true
    response.expires = 0 %>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
&lt;script language="JavaScript" src="mascaras.js"></script>
<link href="menu/estilo_menu.css" rel="stylesheet" type="text/css">
<%    if session ("admin") <> "" then
            response.Write("&lt;script language=""javascript"" src=""menu/administrador.js""></script>")
        elseif session("aluno") <> "" then 
            response.Write("&lt;script language=""javascript"" src=""menu/aluno.js""></script>")
        elseif session("professor") <> "" then
            response.Write("&lt;script language=""javascript"" src=""menu/professor.js""></script>")
        end if
     %>
</head>
<body onClick="hideall()" background="imagens/Recortes/Gif/fundo_pagina.gif" bgproperties="fixed"> 
<!-- #include file="conexao.asp" --> 
<!-- FUNÇÃO PARA EXCLUIR OU NÃO UMA ATIVIDADE--> 
&lt;script language="JavaScript">
function confirmaExclusao() {
    if(confirm("Aviso"))
        document.form_exclui.submit();
    else
        eval("parent.frames[\'main\'].location='fcadatividade.asp'"); <!-- RECAREGA A PÁGINA -->
}
</script> 
<!--VARIÁVEIS QUE ESTÃO PEGANDO O CONTEÚDO QUE FOI SELECIONADO NA LISTA (MÓDULO E ATIVIDADE) --> 
<%    

sub LimpaCampos
        VarIdAtividade = 0
        VarIdModulo = ""
        VarNome = ""
        VarEnunciado = ""
        VarDataDisp = ""
        VarDataEntrega = ""
        VarRadioTipo = ""
        VarSalaPre = ""
        VarDataPre = ""
        VarHoraInicialPre = ""
        VarTempoDuracaoPre = ""
        VarTempoEstimado = ""
        VarDataChat = ""
        VarHoraInicialChat = ""
        VarHoraFinalChat = ""
        VarDataInicioForum = ""
        VarDataFinalForum = ""
end sub

    sub CriaPasta_AtividadeChat(VarIdAtividade)
        'CRIANDO DIRETORIO DE CHAT DENTRO DA TURMA CRIADA
        set objFSO = createobject("Scripting.FileSystemObject")
        caminho = "\turmas\"&session("turma")
        Var_Caminho = Server.MapPath("scripts")&caminho        
        Var_Caminho = Var_Caminho & "\chat"
        Var_Caminho = Var_Caminho & "\"&VarIdAtividade&""
'        response.write Var_Caminho
        objFSO.CreateFolder Var_Caminho
        set objFSO = nothing
    end sub
    
      if session("professor") = "" and session("admin") = "" then
        response.redirect "session_abandon.asp"
      end if

    erro = false    'Inicializando variável erro...
%> 
<!-- VARIÁVEIS QUE PEGAM O CONTEÚDO DOS COMPONENTES --> 
<%    
    VarIdModulo = replace(request.form("LBModulo"),"'","\'")
    VarIdAtividade = replace(request.form("ListaAtividade"),"'","\'")
    if VarIdAtividade = "" then
        VarIdAtividade = request.QueryString("IdAtividade")
        if VarIdAtividade <> "" then
            sql = "select idunidade from atividade where atividade.idatividade="&VarIdAtividade&""
             set RS = conn.execute(sql)
            if not RS.EOF then
                VarIdModulo = RS("IdUnidade")
            end if
        end if
    end if

    'OBS: PARA PEGAR O IDATIVIDADE E O IDMODULO DOS COMPONENTES, USO AS VARIÁVEIS ACIMA
    VarModulo        = replace(request("LBModulo"),"'","\'")
    VarNome            = replace(request("nome"),"'","\'")
    VarEnunciado    = replace(request("enunciado"),"'","\'")
    VarDataDisp    = replace(request.form("datadisp"),"'","\'")
    VarDataEntrega    = replace(request.form("dataentrega"),"'","\'")
    'SEGUNDA ETAPA DA IMPLEMENTAÇÃO, HERANÇA DE ATIVIDADE (atributos de presencial e chat)
    VarSalaPre = replace(request.form("salapre"),"'","\'")    
    VarDataPre = replace(request.form("datapre"),"'","\'")
    VarHoraInicialPre = replace(request.form("horainicialpre"),"'","\'")
    VarTempoDuracaoPre = replace(request.form("tempoduracaopre"),"'","\'")
    VarTempoEstimado = replace(request.form("tempoestimado"),"'","\'")
    VarDataChat = replace(request.form("datachat"),"'","\'")    
    VarHoraInicialChat = replace(request.form("horainicialchat"),"'","\'")
    VarHoraFinalChat = replace(request.form("horafinalchat"),"'","\'")        
    VarRadioTipo = replace(request.form("opctipo"),"'","\'") 
    if VarRadioTipo <> "" then
        sql = "select tipo from tipoatividade where idtipoatividade = "&VarRadioTipo&""
        set RS = conn.execute(sql)
        VarRadioTipo = RS("Tipo")
    end if
'    VarDataInicioForum = request.form("datainicioforum")
'    VarDataFinalForum = request.form("datafinalforum")
    VarIdTopico = request.form("ListTopico")
    
    if request.Form("Limpar") = "Limpar" then
        LimpaCampos
    end if

    if VarIdModulo <> "" then
        VarIdModulo = CLng(VarIdModulo)
    else
        LimpaCampos
    end if

    if VarIdAtividade <> "" then
        VarIdAtividade = CLng(VarIdAtividade)
    end if

    if VarDataDisp <> "" then
        VarDataDisp = CDate(VarDataDisp)
    end if

    if VarDataEntrega <> "" then
        VarDataEntrega = CDate(VarDataEntrega)
    end if    

    if VarDataPre <> "" then
        VarDataPre = CDate(VarDataPre)
    end if
    
    if VarHoraInicialPre <> "" then
        VarHoraInicialPre = TimeValue(VarHoraInicialPre)
    end if
    
    if VarTempoDuracaoPre <> "" then
        VarTempoDuracaoPre = TimeValue(VarTempoDuracaoPre)
    end if
    'if VarTempoEstimado <> "" then
        'VarTempoEstimado = TimeValue(VarTempoEstimado)
    'end if

    if VarDataChat <> "" then
        VarDataChat = CDate(VarDataChat)
    end if
        
    if VarHoraInicialChat <> "" then
        VarHoraInicialChat = TimeValue(VarHoraInicialChat)
    end if

    if VarHoraFinalChat <> "" then
       VarHoraFinalChat = TimeValue(VarHoraFinalChat)
    end if
%> 
<!--FUNÇÃO PARA INSERIR ATIVIDADE --> 
<% function Inserir_Atividade  
        if VarDataEntrega < VarDataDisp then %> 
&lt;script>
            alert("A data da disponibilização tem que anteceder a data da entrega!")
            </script> 
<%            Inserir_Atividade = false
        elseif VarRadioTipo = "presencial" then  'presencial
            if VarSalaPre = "" or VarDataPre = "" or VarHoraInicialPre = "" or VarTempoDuracaoPre = "" then %> 
&lt;script>
                alert("Você precisa preencher os campos destacados com asterísco!")
                </script> 
<%                Inserir_Atividade = false
             else
                On error resume next
                sql = "INSERT INTO Atividade(IdUnidade,Nome,Enunciado,DataDisponibilizacao,DataEntrega, Tipo)" & _
                 "VALUES("&VarIdModulo&",'"&VarNome&"','"&VarEnunciado&"','"&VarDataDisp&"','"&VarDataEntrega&"', 5)"
                Set RS = conn.execute(sql)
                sql2 = "SELECT IdAtividade FROM Atividade order by IdAtividade Desc"
                Set RS2 = conn.execute(sql2)
                VarIdAtividade = RS2("IdAtividade")    
                sqlpre = "INSERT INTO Presencial (IdAtividade, Local, Data, Hora, TempoDuracao)" & _
                 "VALUES ("&VarIdAtividade&", '"&VarSalaPre&"', '"&VarDataPre&"', '1899-12-30 "&VarHoraInicialPre&"', '1899-12-30 "&VarTempoDuracaoPre&"')" 
                set RSPre = conn.execute (sqlpre)
                sqlpreup = "UPDATE  Atividade set Tempo="&tempoduracao(VarTempoDuracaoPre)&" where idAtividade="&VarIdAtividade
                set RSPreup = conn.execute (sqlpreup)
                '1
                if err.number>0 or conn.errors.count>0 then
                response.write err.description
                %> 
                &lt;script> 
                    alert("Não foi possível efetuar seu cadastro. Tente novamente mais tarde!")
                </script> 
                <%
                    Inserir_Atividade = false
                end if
                Inserir_Atividade = true
            end if 
        elseif VarRadioTipo = "chat" then 'chat
            if VarDataChat = "" or VarHoraInicialChat = "" or VarHoraFinalChat = "" then %> 
&lt;script>
                alert("Você precisa preencher os campos destacados com asterísco!")
                </script> 
<%                Inserir_Atividade = false
            else
                On error resume next
                sql = "INSERT INTO Atividade(IdUnidade,Nome,Enunciado,DataDisponibilizacao,DataEntrega, Tipo)" & _
                 "VALUES("&VarIdModulo&",'"&VarNome&"','"&VarEnunciado&"', '"&VarDataDisp&"','"&VarDataEntrega&"', 2)"

                Set RS = conn.execute(sql)
                sql2 = "SELECT IdAtividade FROM Atividade order by IdAtividade Desc"
                Set RS2 = conn.execute(sql2)
                VarIdAtividade = RS2("IdAtividade")    
                sqlnpre = "INSERT INTO Chat (IdAtividade, Data, HoraInicio, HoraFim)" & _
                 "VALUES ("&VarIdAtividade&", '"&VarDataChat&"' ,'1899-12-30 "&VarHoraInicialChat&"', '1899-12-30 "&VarHoraFinalChat&"')"
                sqlchatup = "UPDATE  Atividade set Tempo="&intervalotempo(VarHoraInicialChat,VarHoraFinalChat)&" where idAtividade="&VarIdAtividade
                set RSChatUp = conn.execute (sqlchatup)
                 CriaPasta_AtividadeChat(VarIdAtividade)
                set RSNpre = conn.execute (sqlnpre)
                '2
                if err.number>0 or conn.errors.count>0 then 
                    response.write err.description%> 
&lt;script> 
                    alert("Não foi possível efetuar seu cadastro. Tente novamente mais tarde!")
                    </script> 
<%                    Inserir_Atividade = false
                end if
                Inserir_Atividade = true
            end if 
        elseif VarRadioTipo = "forum" then ' fórum
            if VarIdTopico = "" then %> 
&lt;script>
                alert("Você precisa preencher os campos destacados com asterísco!")
                </script> 
<%                Inserir_Atividade = false
            else
                On error resume next
                sql = "INSERT INTO Atividade(IdUnidade,Nome,Enunciado,DataDisponibilizacao,DataEntrega, Tipo)" & _
                 "VALUES("&VarIdModulo&",'"&VarNome&"', '"&VarEnunciado&"', '"&VarDataDisp&"','"&VarDataEntrega&"', 4)"
                Set RS = conn.execute(sql)
                sql2 = "SELECT IdAtividade FROM Atividade order by IdAtividade Desc"
                Set RS2 = conn.execute(sql2)
                VarIdAtividade = RS2("IdAtividade")    
                sqlforum = "INSERT INTO Discussao (IdAtividade, IdTopico)" & _
                 "VALUES ("&VarIdAtividade&", "&VarIdTopico&")"
                set RSforum = conn.execute (sqlforum)
                sqlforup = "UPDATE  Atividade set Tempo="&tempoduracao(VarTempoEstimado)&" where idAtividade="&VarIdAtividade
                set RSForUp = conn.execute (sqlforup)
                '3
                if err.number>0 or conn.errors.count>0 then 
                    response.write err.description%> 
&lt;script> 
                    alert("Não foi possível efetuar seu cadastro. Tente novamente mais tarde!")
                    </script> 
<%                    Inserir_Atividade = false
                end if
                Inserir_Atividade = true
            end if
        else ' trabalho e provinha
            if VarRadioTipo = "questoes" then
                VarRadioTipo = 3
            elseif VarRadioTipo = "trabalho" then
                VarRadioTipo = 1
            end if
            On error resume next
            sql3 = "INSERT INTO Atividade(IdUnidade,Nome,Enunciado, DataDisponibilizacao,DataEntrega, Tipo, Tempo)" & _
             "VALUES("&VarIdModulo&",'"&VarNome&"','"&VarEnunciado&"','"&VarDataDisp&"','"&VarDataEntrega&"', '"&VarRadioTipo&"', "&tempoduracao(VarTempoEstimado)&")"
            Set RS = conn.execute(sql3)
            Inserir_Atividade = true
            'AQUI EXIBE O ERRO
            [b]if conn.errors.count>0  then 
            response.write err.description[b]
            response.end%> 
&lt;script> 
                alert("Não foi possível efetuar seu cadastro. Tente novamente mais tarde!")
                </script> 
<%                Inserir_Atividade = false
            end if
        end if  'else (trabalho e provinha)
end function%> 
<!-- MAIS ABAIXO O CONTEÚDO DO BANCO ESTÁ SENDO MANIPULADO ATRAVÉS DAS SQLS E ASSOCIADOS AS VARIÁVEIS --> 
<!-- INCLUIR ATIVIDADE--> 
<% if request.Form("Incluir") = "Incluir" then 
    if VarAproveitMin = "" then 
        VarAproveitMin = 0
    end if
    if VarDataEntrega = "" then
        VarDataEntrega = #31/12/9999# 'Data máxima permitida pelo ASP
    end if
    
    'Validacao do Modulo...
    if VarModulo = "" then
        erro = true
        mens_modulo = "Unidade da atividade precisa ser selecionado."
    else
        mens_modulo = ""
    end if 'VarModulo
    
    'Validacao do Nome Atividade...
    if VarNome = "" then
        erro = true
        mens_nome = "Nome da atividade precisa ser informado."
    else
        mens_nome = ""
    end if
    
    'Validacao do Enunciado Atividade...
    if VarEnunciado = "" then
        erro = true
        mens_enunciado = "Enunciado da atividade precisa ser informado."
    else
        mens_enunciado = ""
    end if
    
    'Validacao da Data Disponibilizacao...
    if VarDataDisp = "" then
        erro = true
        mens_datadisp = "Data de disponibilização deve ser informada."
    else        
        VarDataDisp = CDate(VarDataDisp)
        val_datadisp = isDate(VarDataDisp)
            if (val_datadisp <> true) then
                erro = true
                mens_datadisp = "Tipo de data inválida no campo data de disponibilização."
            else
                mens_datadisp = ""
            end if 'val_datadisp    
    end if    'VarDataDisp
    
    'Validacao da Data de Entrega...
    if VarDataEntrega <> "" then
        VarDataEntrega = CDate(VarDataEntrega)
        val_dataentrega = isDate(VarDataEntrega)
            if (val_dataentrega <> true) then
                erro = true
                mens_dataentrega = "Tipo de data inválida no campo data de entrega."
            else
                mens_dataentrega = ""            
            end if    'val_dataentrega
    end if    'VarDataEntrega

    'Validacao do tempo de desenvolvimento da atividade...
    if VarTempo <> "" then
        VarDataEntrega = CDate(VarDataEntrega)
        val_dataentrega = isDate(VarDataEntrega)
            if (val_dataentrega <> true) then
                erro = true
                mens_dataentrega = "Tipo de data inválida no campo data de entrega."
            else
                mens_dataentrega = ""            
            end if    'val_dataentrega
    end if    'VarDataEntrega


        
'    VarRadioTipo = request.form("opctipo") 
    'Validacao do tipo de atividade...
    if VarRadioTipo = "" then
        erro = true
        mens_radiotipo = "Tipo de atividade não foi selecionada."
    else
        if VarRadioTipo = "presencial" then
            VarTipo = "presencial"
        
                'Validacao Sala Aula Presencial...
                if VarSalaPre = "" then
                    erro = true
                    mens_salapre = "A sala de aula(s) presencial(is) deve ser informada."
                else
                    mens_salapre = ""
                end if    'VarSalaPre
    
            'Validacao Data Aula Presencial...
            if VarDataPre = "" then
                erro = true
                mens_datapre = "Data da aula presencial deve ser informada."
            else
                mens_datapre = ""
                VarDataPre = CDate(VarDataPre)
                val_datapre = isDate(VarDataPre)
                    if (val_datapre <> true) then
                        erro = true
                        mens_datapre = "Tipo de data inválida no campo data para aula(s) presencial(is)"
                    else
                        mens_datapre = ""
                    end if    'val_datapre
            end if    'VarDataPre
    
            VarHoraInicialPre = request.form("horainicialpre")
            'Validacao Hora Aula Inicial Presencial...
            if VarHoraInicialPre = "" then
                erro = true
                mens_horainicialpre = "Horario inicial da aula presencial deve ser informada."
            else
                VarHoraInicialPre = TimeValue(VarHoraInicialPre)
            end if    'VarHoraInicialPre
    
            VarTempoDuracaoPre = request.form("tempoduracaopre")
            'Validacao Tempo Duracao Aula Presencial...
            if VarTempoDuracaoPre = "" then
                erro = true
                mens_tempoduracaopre = "Tempo de duração da aula presencial deve ser informada."
            else
                mens_tempoduracaopre = ""
            end if    'VarTempoDuracaoPre
        
'            VarTipo = "npresencial"
        elseif VarRadioTipo = "chat" then
            VarDataChat = request.form("datachat")
            'Validacao Data Chat...
            if VarDataChat = "" then
                erro = true
                mens_datachat = "Data da atividade chat deve ser informada."
            else
                mens_datachat = ""
                VarDataChat = CDate(VarDataChat)
                val_datachat = isDate(VarDataChat)
                if (val_datachat <> true) then
                    erro = true
                    mens_datachat = "Tipo de data inválida para a data do chat."
                else
                    mens_datachat = ""
                end if    'val_datachat
            end if    'VarDataChat

            VarHoraInicialChat = request.form("horainicialchat")
            'Validacao Hora Inicial Chat...
            if VarHoraInicialChat = "" then
                erro = true
                mens_horainicialchat = "Horario inicial da aula chat deve ser informado."
            else
                mes_horainicialchat = ""
                VarHoraInicialChat = TimeValue(VarHoraInicialChat)
            end if    'VarHoraInicialChat
            
            VarHoraFinalChat = request.form("horafinalchat")
            'Validacao Hora Final Chat...
            if VarHoraFinalChat = "" then
                erro = true
                mens_horafinalchat = "Horario de termino da aula chat deve ser informado."
            else
                mens_horafinalchat = ""
                VarHoraFinalChat = TimeValue(VarHoraFinalChat)
            end if    'VarHoraFinalChat
        elseif ((VarRadioTipo = "forum") or (VarRadioTipo = "trabalho") or (VarRadioTipo = "questoes")) then
            mens_tempoestimado = ""
            VarTempoEstimado = request.form("tempoestimado")
            'Validacao Tempo estimado de fórum, trabalho e questões...
            if VarTempoEstimado = "" then
                erro = true
                mens_tempoestimado = "Tempo estimado para conclusão da atividade deve ser informado."
            else
                mens_tempoestimado = ""
                VarTempoEstimado = TimeValue(VarTempoEstimado)
            end if    'VarTempoEstimado
        end if    'VarRadioTipo = "presencial"
    end if    'VarRadioTipo = ""
        
    if (erro <> true) then 'Para chamar Funcao de insercao...
        'FUNÇÃO
        if Inserir_Atividade then%> 
&lt;script language="JavaScript">
                alert("Atividade inserida com sucesso!");
            </script> 
<%end if
        LimpaCampos
    end if
end if %> 
<!-- QUESTIONARIO DA ATIVIDADE--> 
<%if request.form("Questionario.x") <> "" then 
    if VarAproveitMin = "" then 
        VarAproveitMin = 0
    end if
    if VarDataEntrega = "" then
        VarDataEntrega = #31/12/9999# 'Data máxima permitida pelo ASP
    end if
    'SE NÃO HOUVER ATIVIDADE SELECIONADA NA LISTA, OU SEJA SE NÃO FOR UMA CONSULTA
    if VarIdAtividade = 0 then
        'FUNÇÃO
        if Inserir_Atividade = true then 'INSERE E COMPARA SE É VERDADEIRA A INSERÇÃO
            ' PEGANDO O VALOR DO IDATIVIDADE QUE ACABOU DE SER INSERIDO
            sql = "SELECT IdAtividade FROM Atividade order by IdAtividade desc"
            set RS = conn.execute(sql)
            if not RS.EOF then
                VarIdAtividade = RS("IdAtividade")
            end if
            'REDIRECIONA PARA O CADASTRO DE QUESTÕES PASSANDO O PARÂMETRO DA ATIVIDADE
            response.Redirect("fcadquestoes.asp?ParIdAtividade="&VarIdAtividade&"")
        else %> 
&lt;script>
                eval("parent.frames[\self\'].location='fcadatividade.asp'") <!-- RECARREGA A PÁGINA -->
            </script> 
<%        end if
    else
        'REDIRECIONA PARA O CADASTRO DE QUESTÕES PASSANDO O PARÂMETRO DA ATIVIDADE
        response.Redirect("fcadquestoes.asp?ParIdAtividade="&VarIdAtividade&"")
    end if
end if %> 
<!--ALTERAR ATIVIDADE --> 
<%if request.Form("Alterar") = "Alterar" then
    if VarAproveitMin = "" then 
        VarAproveitMin = 0
    end if
    
    if VarDataEntrega = "" then
        VarDataEntrega = #31/12/9999# 'Data máxima permitida pelo ASP
    end if

    if VarIdAtividade = 0 then
        erro = true
        mens_idatividade = "Atividade deve ser informada..."
    end if

    'Validacao do Modulo...
    if VarModulo = "" then
        erro = true
        mens_modulo = "Unidade da atividade precisa ser selecionado."
    else
        mens_modulo = ""
    end if 'VarModulo
    
    'Validacao do Nome Atividade...
    if VarNome = "" then
        erro = true
        mens_nome = "Nome da atividade precisa ser informado."
    else
        mens_nome = ""
    end if
    
    'Validacao do Enunciado Atividade...
    if VarEnunciado = "" then
        erro = true
        mens_enunciado = "Enunciado da atividade precisa ser informado."
    else
        mens_enunciado = ""
    end if
    
    'Validacao da Data Disponibilizacao...
    if VarDataDisp = "" then
        erro = true
        mens_datadisp = "Data de disponibilização deve ser informada."
    else        
        VarDataDisp = CDate(VarDataDisp)
        val_datadisp = isDate(VarDataDisp)
            if (val_datadisp <> true) then
                erro = true
                mens_datadisp = "Tipo de data inválida no campo data de disponibilização."
            else
                mens_datadisp = ""
            end if 'val_datadisp    
    end if    'VarDataDisp
    
    'Validacao da Data de Entrega...
    if VarDataEntrega <> "" then
        VarDataEntrega = CDate(VarDataEntrega)
        val_dataentrega = isDate(VarDataEntrega)
            if (val_dataentrega <> true) then
                erro = true
                mens_dataentrega = "Tipo de data inválida no campo data de entrega."
            else
                mens_dataentrega = ""            
            end if    'val_dataentrega
    end if    'VarDataEntrega
        
'    VarRadioTipo = request.form("opctipo") 
    'Validacao do tipo de atividade...
'    if VarRadioTipo = "" then
'        erro = true
'        mens_radiotipo = "Tipo de atividade não foi selecionada."
'    end if
            
    if VarDataEntrega < VarDataDisp then 
        erro = true
        mens_dataentrdisp = "A data da disponibilização tem que anteceder a data da entrega!"
    end if

    if (erro <> true) then 
    
        'VERIFICANDO NA TABELA CUMPRIMENTO SE A ATIVIDADE AINDA NÃO FOI SUBMETIDA
        'sqlcump = "SELECT IdAtividade FROM Cumprimento WHERE IdAtividade="&VarIdAtividade&""
        'Set RScump = conn.execute(sqlcump)
        'if NOT RScump.EOF then %> 
<!-- OU SEJA, SE EXISTIR ALGUMA ATIVIDADE JÁ NO CUMPRIMENTO--> 
&lt;script>
                //alert("Não foi possível efetuar sua alteração, uma vez que esta atividade já foi submetida.")
            </script> 
<%        'else
        if VarRadioTipo = "presencial" then
                'Validacao Sala Aula Presencial...
                if VarSalaPre = "" then
                    erro = true
                    mens_salapre = "A sala de aula presencial deve ser informada."
                else
                    mens_salapre = ""
                end if    'VarSalaPre
    
            'Validacao Data Aula Presencial...
            if VarDataPre = "" then
                erro = true
                mens_datapre = "Data da aula presencial deve ser informada."
            else
                mens_datapre = ""
                VarDataPre = CDate(VarDataPre)
                val_datapre = isDate(VarDataPre)
                    if (val_datapre <> true) then
                        erro = true
                        mens_datapre = "Tipo de data inválida no campo data para aula(s) presencial(is)"
                    else
                        mens_datapre = ""
                    end if    'val_datapre
            end if    'VarDataPre
    
            VarHoraInicialPre = request.form("horainicialpre")
            'Validacao Hora Aula Inicial Presencial...
            if VarHoraInicialPre = "" then
                erro = true
                mens_horainicialpre = "Horario inicial da aula presencial deve ser informada."
            else
                VarHoraInicialPre = TimeValue(VarHoraInicialPre)
            end if    'VarHoraInicialPre
    
            'VarTempoDuracaoPre = request.form("tempoduracaopre")
            'Validacao Tempo Duracao Aula Presencial...
            if VarTempoDuracaoPre = "" then
                erro = true
                mens_tempoduracaopre = "Tempo de duração da aula presencial deve ser informada."
            else
                mens_tempoduracaopre = ""
            end if    'VarTempoDuracaoPre
         
            if erro <> true then
                On error resume next
                'ResTempoDuracaoPre = tempoduracao(VarTempoDuracaoPre)
                sqlati = "UPDATE Atividade set IdUnidade="&VarIdModulo&",Nome='"&VarNome&"',Enunciado='"&VarEnunciado&"', DataDisponibilizacao='"&VarDataDisp&"',DataEntrega='"&VarDataEntrega&"', Tempo="&tempoduracao(VarTempoDuracaoPre)&"" & _
                " WHERE IdAtividade="&VarIdAtividade&""
                Set RS = conn.execute(sqlati)
                sqlpre = "UPDATE Presencial set Local='"&VarSalaPre&"', Data='"&VarDataPre&"', Hora='1899-12-30 "&VarHoraInicialPre&"', TempoDuracao='1899-12-30 "&VarTempoDuracaoPre&"'" & _
                " WHERE IdAtividade="&VarIdAtividade&""    
                Set RS = conn.execute(sqlpre)
            end if
        elseif VarRadioTipo = "chat" then 'chat
                VarDataChat = request.form("datachat")
                'Validacao Data Chat...
                if VarDataChat = "" then
                    erro = true
                    mens_datachat = "Data da atividade chat deve ser informada."
                else
                    mens_datachat = ""
                    VarDataChat = CDate(VarDataChat)
                    val_datachat = isDate(VarDataChat)
                        if (val_datachat <> true) then
                            erro = true
                            mens_datachat = "Tipo de data inválida para a data do chat."
                        else
                            mens_datachat = ""
                        end if    'val_datachat
                end if    'VarDataChat
    
                VarHoraInicialChat = request.form("horainicialchat")
                'Validacao Hora Inicial Chat...
                if VarHoraInicialChat = "" then
                    erro = true
                    mens_horainicialchat = "Horario inicial da aula chat deve ser informado."
                else
                    mes_horainicialchat = ""
                    VarHoraInicialChat = TimeValue(VarHoraInicialChat)
                end if    'VarHoraInicialChat
    
                VarHoraFinalChat = request.form("horafinalchat")
                'Validacao Hora Final Chat...
                if VarHoraFinalChat = "" then
                    erro = true
                    mens_horafinalchat = "Horario de termino da aula chat deve ser informado."
                else
                    mens_horafinalchat = ""
                    VarHoraFinalChat = TimeValue(VarHoraFinalChat)
                end if    'VarHoraFinalChat

             if erro <> true then
                On error resume next
                sqlati = "UPDATE Atividade set IdUnidade="&VarIdModulo&",Nome='"&VarNome&"',Enunciado='"&VarEnunciado&"', DataDisponibilizacao='"&VarDataDisp&"',DataEntrega='"&VarDataEntrega&"', Tempo="&intervalotempo(VarHoraInicialChat,VarHoraFinalChat)&"" & _
                " WHERE IdAtividade="&VarIdAtividade&""
                Set RS = conn.execute(sqlati)
                sqlnpre = "UPDATE Chat set Data='"&VarDataChat&"', HoraInicio='1899-12-30 "&VarHoraInicialChat&"', HoraFim='1899-12-30 "&VarHoraFinalChat&"'" & _
                " WHERE IdAtividade="&VarIdAtividade&""

                Set RS = conn.execute(sqlnpre)
            end if    'erro <> true
        elseif VarRadioTipo = "forum" then
            mens_tempoestimado = ""
            VarTempoEstimado = request.form("tempoestimado")
            'Validacao Tempo estimado
            if VarTempoEstimado = "" then
                erro = true
                mens_tempoestimado = "Tempo estimado para conclusão da atividade deve ser informado."
            else
                mens_tempoestimado = ""
                VarTempoEstimado = TimeValue(VarTempoEstimado)
            end if    'VarTempoEstimado
            if erro <> true then
                sqlati = "UPDATE Atividade set IdUnidade="&VarIdModulo&",Nome='"&VarNome&"',Enunciado='"&VarEnunciado&"', DataDisponibilizacao='"&VarDataDisp&"',DataEntrega='"&VarDataEntrega&"', Tempo="&tempoduracao(VarTempoEstimado)&"" & _
                " WHERE IdAtividade="&VarIdAtividade&""
                Set RS = conn.execute(sqlati)
                sqlnpre = "UPDATE Discussao set DataInicio='"&VarDataInicioForum&"', DataFim='"&VarDataFinalForum&"', IdTopico="&VarIdTopico&"" & _
                " WHERE IdAtividade="&VarIdAtividade&""
                Set RS = conn.execute(sqlnpre)
            else
                On error resume next
                sqlati = "UPDATE Atividade set IdUnidade="&VarIdModulo&",Nome='"&VarNome&"',Enunciado='"&VarEnunciado&"', DataDisponibilizacao='"&VarDataDisp&"',DataEntrega='"&VarDataEntrega&"', Tempo="&tempoduracao(VarTempoEstimado)&"" & _
                " WHERE IdAtividade="&VarIdAtividade&""
                Set RS = conn.execute(sqlati)
            end if    'erro <> true
        elseif VarRadioTipo = "trabalho" or VarRadioTipo = "questoes" then
            mens_tempoestimado = ""
            VarTempoEstimado = request.form("tempoestimado")
            'Validacao Tempo estimado
            if VarTempoEstimado = "" then
                erro = true
                mens_tempoestimado = "Tempo estimado para conclusão da atividade deve ser informado."
            else
                mens_tempoestimado = ""
                VarTempoEstimado = TimeValue(VarTempoEstimado)
            end if    'VarTempoEstimado
            if erro <> true then
                sqlati = "UPDATE Atividade set IdUnidade="&VarIdModulo&",Nome='"&VarNome&"',Enunciado='"&VarEnunciado&"', DataDisponibilizacao='"&VarDataDisp&"',DataEntrega='"&VarDataEntrega&"', Tempo="&tempoduracao(VarTempoEstimado)&"" & _
                " WHERE IdAtividade="&VarIdAtividade&""
                Set RS = conn.execute(sqlati)
            else
                On error resume next
                sqlati = "UPDATE Atividade set IdUnidade="&VarIdModulo&",Nome='"&VarNome&"',Enunciado='"&VarEnunciado&"', DataDisponibilizacao='"&VarDataDisp&"',DataEntrega='"&VarDataEntrega&"', Tempo="&tempoduracao(VarTempoEstimado)&"" & _
                " WHERE IdAtividade="&VarIdAtividade&""
                Set RS = conn.execute(sqlati)
            end if    'erro <> true
        end if
    end if
end if %> 
<!-- EXCLUIR ATIVIDADE--> 
<% if request.Form("Excluir") = "Excluir" then
    response.redirect "pcadatividade.asp?ParIdAtividade="&VarIdAtividade&""
end if
%> 
<!-- ÁREA EDITÁVEL (FORMULÁRIO)--> 
<table width="100%" border="0" align="center"> 
  <tr> 
    <td>  
  <tr> 
    <td > <!-- #include file="lib_professor_manipulando.asp" --> </td> 
  </tr> 
  <form name="formcadatividade" method="post" action="fcadatividade.asp"> 
    <tr> 
      <td colspan="4" height="2"> <div align="center"> 
          <table border="0"> 
            <tr> 
              <td class="titulo">Gerenciar atividades </td> 
            </tr> 
          </table> 
        </div></td> 
    </tr> 
    <tr> 
      <td align="center"><font color="#0000FF" face="Arial, Helvetica, sans-serif" size="2"> 
        <% if erro = true then %> 
        <b>"Não foi possível cadastrar a atividade. Verifique o(s) erro(s) abaixo:"</b></font></td> 
    </tr> 
    <tr> 
      <td ><font color="#FF0000" size="2" face="Verdana"> 
        <%
            if mens_modulo <> "" then response.Write("* " & mens_modulo & "<br>") end if
            if mens_idatividade <> "" then response.Write("* " & mens_idatividade & "<br>") end if            
            if mens_nome <> "" then response.Write("* " & mens_nome & "<br>") end if            
            if mens_enunciado <> "" then response.Write("* " & mens_enunciado & "<br>") end if
            if mens_datadisp <> "" then response.Write("* " & mens_datadisp & "<br>") end if
            if mens_dataentrega <> "" then response.Write("* " & mens_dataentrega & "<br>") end if
            if mens_salapre <> "" then response.Write("* " & mens_salapre & "<br>") end if
            if mens_datapre <> "" then response.Write("* " & mens_datapre & "<br>") end if
            if mens_horainicialpre <> "" then response.Write("* " & mens_horainicialpre & "<br>") end if
            if mens_tempoduracaopre <> "" then response.Write("* " & mens_tempoduracaopre & "<br>") end if
            if mens_tempoestimado <> "" then response.Write("* " & mens_tempoestimado & "<br>") end if
            if mens_datachat <> "" then response.Write("* " & mens_datachat & "<br>") end if
            if mens_horainicialchat <> "" then response.Write("* " & mens_horainicialchat & "<br>") end if
            if mens_horafinalchat <> "" then response.Write("* " & mens_horafinalchat & "<br>") end if
            if mens_radiotipo <> "" then mudacor = true & response.Write("* " & mens_radiotipo & "<br>") end if
        %> 
        </font> </td> 
    </tr> 
    <% end if %> 
    <!-- --------------------------------------------------------------------  --> 
    <tr> 
      <td > <div align="left"> </div> 
        <table width="95%" border="0" align="center"> 
          <tr> 
            <td colspan="2"><font size="2" face="Arial, Helvetica, sans-serif"><strong>&nbsp;Obs:</strong> Campo(s) com <font color="#FF0000"> * <font color="#000000"> s&atilde;o de preenchimento obrigat&oacute;rio</font></font></font></td> 
          </tr> 
          <tr> 
            <td>&nbsp;</td> 
            <td >&nbsp;</td> 
          </tr> 
          <tr> 
            <td width="20%"> <font size="2" face="Arial, Helvetica, sans-serif"><font size="2" face="Arial, Helvetica, sans-serif"><font size="2" face="Arial, Helvetica, sans-serif"> 
              <%if mens_modulo <> "" then%> 
              <font face="Verdana" size="2" color="#FF0000"> 
              <%else%> 
              <%end if%> 
              <font color="#FF6666">*</font><font face="Arial, Helvetica, sans-serif" size="2">&nbsp; Unidade :</font></td> 
            <td width="80%" > <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center"> 
                <tr> 
                  <td> <% sql = "SELECT IdUnidade, Nome FROM Unidade WHERE Unidade.IdPlanejamento = "&session("planejamento")&" order by Ordem"
                    Set RSModulo = conn.execute (sql) %> 
                    <select name="LBModulo" onChange="document.formcadatividade.submit()"> 
                      <option value="" selected>[Selecione a Unidade]</option> 
                      <% DO While not RSModulo.EOF %> 
                      <option value="<%=RSModulo("IdUnidade")%>"<%if VarIdModulo=RSModulo("IdUnidade")then%>selected<%end if%>><%=RSModulo("Nome")%></option> 
                      <% RSModulo.MoveNext
                                         LOOP %> 
                    </select> </td> 
                </tr> 
              </table></td> 
          </tr> 
          <!-- <tr> 
                              <td width="28%" height="69"><font face="Arial, Helvetica, sans-serif" size="2"> 
                                <b>Atividades existentes</b><br>
                                </font></td>
                              <td width="72%" height="69"> --> 
          <% if VarIdModulo <> "" then
                                        sql = "select IdAtividade,Nome FROM Atividade" & _
                                                " where Atividade.IdUnidade="&VarIdModulo&""
                                        Set RSAtiMod = conn.execute (sql) %> 
          <tr> 
            <td ><font size="2" face="Arial, Helvetica, sans-serif"><b>Atividades existentes</b>:<br> 
              </font></td> 
            <td > <select name="ListaAtividade" onChange="document.formcadatividade.submit()" size="1"> 
                <option value="0">Selecione Atividade</option> 
                <% Do While not RSAtiMod.EOF %> 
                <option value="<%=RSAtiMod("IdAtividade")%>" <%if RSAtiMod("IdAtividade")=VarIdAtividade then%>selected<%end if%>><%=RSAtiMod("Nome")%></option> 
                <% RSAtiMod.MoveNext
                                            LOOP
                                            end if %> 
              </select> </td> 
          </tr> 
          <% if VarIdAtividade <> 0 and VarIdModulo <> "" then
                                    sql = "SELECT * FROM Atividade" & _
                                        " WHERE Atividade.IdAtividade="&VarIdAtividade&" and Atividade.IdUnidade="&VarIdModulo&""
                                    Set RSAti = conn.execute(sql)
                                    if not RSAti.EOF then
                                        VarRadioTipo = RSAti("Tipo") 'presencial/chat/questoes/trabalho/forum
                                        if VarRadioTipo <> "" then
                                            sql = "select tipo from tipoatividade where idtipoatividade = "&VarRadioTipo&""
                                            set RS = conn.execute(sql)
                                            VarRadioTipo = RS("Tipo")
                                        end if
                                    if VarRadioTipo = "presencial" then 'presencial
                                            sqlpre = "SELECT * FROM Presencial" & _
                                            " WHERE Presencial.IdAtividade = "&VarIdAtividade&""
                                            Set RSAtiPre = conn.execute(sqlpre)
                                    elseif VarRadioTipo = "forum" then 'chat
                                        sql = "select * from discussao where IdAtividade = "&VarIdAtividade&""
                                        set RS = conn.execute(sql)
                                        if not RS.EOF then
                                            VarDataInicioForum = RS("DataInicio")
                                            VarDataFinalForum = RS("DataFim")
                                            VarIdTopico = RS("IdTopico")
                                            if VarIdTopico <> "" then
                                                VarIdTopico = CInt(VarIdTopico)
                                            end if
                                        end if
                                    elseif VarRadioTipo = "chat" then' trabalho e provinha
                                        sqlnpre = "SELECT * FROM Chat" & _
                                        " WHERE Chat.IdAtividade = "&VarIdAtividade&""
                                        Set RSAtiNPre = conn.execute(sqlnpre)
                                    end if
                            end if
                            if RSAti.EOF then                                     
                                VarNome = ""
                                VarEnunciado = ""
                                VarDataDisp = ""
                                VarDataEntrega = ""
                                if VarRadioTipo = "presencial" then
                                    VarSalaPre = ""
                                    VarDataPre = ""
                                    VarHoraInicialPre = ""
                                    VarTempoDuracaoPre = ""
                                else 'npresencial
                                    VarDataChat = ""
                                    VarHoraInicialChat = ""
                                    VarHoraFinalChat = ""
                                end if
                            else
                                VarNome = RSAti("Nome")
                                VarEnunciado = RSAti("Enunciado")
                                VarDataDisp = RSAti("DataDisponibilizacao")
                                VarDataEntrega = RSAti("DataEntrega")
                                VarTempoEstimado = tempoduracaomin(RSAti("tempo"))
                                if VarDataEntrega = #31/12/9999# then
                                    VarDataEntrega = ""
                                end if
                                if VarRadioTipo = "presencial" then
                                    if not RSAtiPre.EOF then
                                        VarSalaPre = RSAtiPre("Local")
                                        VarDataPre = RSAtiPre("Data")
                                        if VarDataPre = #31/12/9999# then
                                            VarDataPre = ""
                                        end if
                                        VarHoraInicialPre = RSAtiPre("Hora")
                                        VarTempoDuracaoPre = RSAtiPre ("TempoDuracao")
                                    end if
                                else 'npresencial
                                    if VarRadioTipo = "chat" then
                                        if not RSAtiNPre.EOF then
                                            VarDataChat = RSAtiNPre("Data")
                                            if VarDataChat = #31/12/9999# then
                                                VarDataChat = ""
                                            end if
                                            VarHoraInicialChat = RSAtiNPre("HoraInicio")
                                            VarHoraFinalChat = RSAtiNPre("HoraFim")
                                        end if
                                    end if
                                end if
                            end if
                        end if     %> 
          <tr> 
            <td> <font size="2" face="Arial, Helvetica, sans-serif"><font size="2" face="Arial, Helvetica, sans-serif"> 
              <%if mens_nome <> "" then%> 
              <font face="Verdana" size="2" color="#FF0000"> 
              <%else%> 
              <%end if%> 
              <font color="#FF6666">*</font><font face="Arial, Helvetica, sans-serif" size="2">&nbsp;Nome: </font></td> 
            <td><input type="text" class = "form" name="nome" value="<%=VarNome%>" size="60" maxlength="80"> 
              <font face="Verdana" size="2">&nbsp;</font> </td> 
          </tr> 
          <tr> 
            <td valign="top"> <font size="2" face="Arial, Helvetica, sans-serif"><font size="2" face="Arial, Helvetica, sans-serif"><font size="2" face="Arial, Helvetica, sans-serif"> 
              <%if mens_enunciado <> "" then%> 
              <font face="Verdana" size="2" color="#FF0000"> 
              <%else%> 
              <%end if%> 
              <font color="#FF6666">*</font><font face="Arial, Helvetica, sans-serif" size="2">&nbsp;Enunciado:</font></td> 
            <td ><font size="2" face="Verdana"> 
              <textarea name="enunciado" cols="60" rows="7" class="form"><%=VarEnunciado%></textarea> 
              </font><font face="Verdana" size="2">&nbsp;</font></td> 
          </tr> 
          <tr> 
            <td> <font size="2" face="Arial, Helvetica, sans-serif"><font size="2" face="Arial, Helvetica, sans-serif"><font size="2" face="Arial, Helvetica, sans-serif"> 
              <%if mens_datadisp <> "" then%> 
              <font face="Verdana" size="2" color="#FF0000"> 
              <%else%> 
              <%end if%> 
              <font color="#FF6666">*</font><font face="Arial, Helvetica, sans-serif" size="2">&nbsp;Data de disponibiliza&ccedil;&atilde;o:</font></td> 
            <td ><font face="Verdana" size="2"> 
              <style type="text/css">
                                    .form  {font-family: Arial, Helvetica, sans-serif; font-size: 9pt; border: 1px black solid; color: black; background-color: #FFFFFF}
                                </style> 
              <input type="text" class = "form" name="datadisp" value="<%=VarDataDisp%>" OnKeyUp="mascara_data_disp(this.value)"> 
              </font><font face="Verdana" size="1"><font color="#FF0000" size="1">(DD/MM/AA)</font></font><font size="2">&nbsp;</font></td> 
          </tr> 
          <tr> 
            <td ><font face="Arial, Helvetica, sans-serif" size="2">Data de entrega:</font></td> 
            <td > <style type="text/css">
                                    .form  {font-family: Arial, Helvetica, sans-serif; font-size: 9pt; border: 1px black solid; color: black; background-color: #FFFFFF}
                                </style> 
              <input type="text" class = "form" name="dataentrega" value="<%=VarDataEntrega%>"  OnKeyUp="mascara_data_entrega(this.value)"> 
              <font face="Verdana" size="1"><font color="#FF0000" size="1">(DD/MM/AA)</font></font> </td> 
          </tr> 
          <!--<tr> 
            <td ><font face="Arial, Helvetica, sans-serif" size="2">Tempo Estimado:</font></td> 
            <td ><input type="text" class="form" name="tempoestimado" onKeyUp="mascara_tempo_estimado(this.value)" value="<%=VarTempoEstimado%>"> 
              <font face="Verdana" size="1"><font color="#FF0000" size="1">(HH:MM)</font></font></td> 
          </tr>--> 
        </table></td> 
    </tr> 
    <tr> 
      <td > <table width="95%" height="30" border="0" align="center"> 
          <tr> 
            <td height="18" colspan="5"> <font size="2" face="Arial, Helvetica, sans-serif"> 
              <%if mens_radiotipo <> "" then%> 
              <%else%> 
              <%end if%> 
              <font color="#FF0000">*</font> Tipo da atividade:</font></td> 
          </tr> 
          <tr> 
            <td ><font face="Verdana"><font size="2" face="Arial, Helvetica, sans-serif"> 
              <input name="opctipo" type="radio" onClick="document.formcadatividade.submit()" value="5" <%if VarRadioTipo="presencial" then%>checked<%end if%>> 
              <b>Presencial</b></font></font> </td> 
            <td ><font face="Arial, Helvetica, sans-serif"> <font size="2"> 
              <input name="opctipo" type="radio" onClick="document.formcadatividade.submit()" value="1" <%if VarRadioTipo="trabalho" then%>checked<%end if%>> 
              <b>Trabalho</b></font></font> </td> 
            <td><font face="Verdana"><font size="2" face="Arial, Helvetica, sans-serif"> 
              <input name="opctipo" type="radio" onClick="document.formcadatividade.submit()" value="2" <%if VarRadioTipo="chat" then%>checked<%end if%>> 
              <b>Chat</b></font></font> </td> 
            <td ><font face="Verdana"><font size="2" face="Arial, Helvetica, sans-serif"> 
              <input name="opctipo" type="radio" onClick="document.formcadatividade.submit()" value="3" <%if VarRadioTipo="questoes" then%>checked<%end if%>> 
              <b>Quest&otilde;es</b></font></font> </td> 
            <td ><font face="Verdana"><font size="2" face="Arial, Helvetica, sans-serif"> 
              <input name="opctipo" type="radio" onClick="document.formcadatividade.submit()" value="4" <%if VarRadioTipo="forum" then%>checked<%end if%>> 
              <b>F&oacute;rum</b></font></font></td> 
          </tr> 
        </table></td> 
    </tr> 
    <tr> 
      <td > <!-- QUANDO FOR SELECIONADO UM TIPO DE ATIVIDADE, OUTROS ATRIBUTOS SERÃO MOSTRADOS --> 
        <% if VarRadioTipo = "presencial" then %> 
        <table width="95%" border="0" align="center"> 
          <tr> 
            <td width="26%"> <%if mens_salapre <> "" then%> 
              <font size="2" face="Arial, Helvetica, sans-serif" color="#FF0000"> 
              <%else%> 
              <font size="2" face="Arial, Helvetica, sans-serif"> 
              <%end if%> 
              <font color="#FF6666" size="2" face="Arial, Helvetica, sans-serif">*</font>&nbsp;Sala/Local:</font></td> 
            <td width="74%" > <style type="text/css">
                                    .form  {font-family: Arial, Helvetica, sans-serif; font-size: 9pt; border: 1px black solid; color: black; background-color: #FFFFFF}
                                </style> 
              <input type="text" class = "form" name="salapre" value="<%=VarSalaPre%>"> 
              <font size="2">&nbsp;</font></td> 
          </tr> 
          <tr> 
            <td > <%if mens_datapre <> "" then%> 
              <font size="2" face="Arial, Helvetica, sans-serif" color="#FF0000"> 
              <%else%> 
              <font size="2" face="Arial, Helvetica, sans-serif"> 
              <%end if%> 
              <font color="#FF6666" size="2" face="Arial, Helvetica, sans-serif">*</font>&nbsp;Data:</font></td> 
            <td > <style type="text/css">
                                    .form  {font-family: Arial, Helvetica, sans-serif; font-size: 9pt; border: 1px black solid; color: black; background-color: #FFFFFF}
                                </style> 
              <input type="text" class = "form" name="datapre" value="<%=VarDataPre%>" OnKeyUp="mascara_data_pre(this.value)"> 
              <font size="2">&nbsp;</font><font face="Arial, Helvetica, sans-serif" size="1"><font color="#FF0000" size="1">(DD/MM/AAAA)</font></font> </td> 
          </tr> 
          <tr> 
            <td> <%if mens_horainicialpre <> "" then%> 
              <font size="2" face="Arial, Helvetica, sans-serif" color="#FF0000"> 
              <%else%> 
              <font size="2" face="Arial, Helvetica, sans-serif"> 
              <%end if%> 
              <font color="#FF6666" size="2" face="Arial, Helvetica, sans-serif">*</font>&nbsp;Hora Inicial:</font></td> 
            <td > <style type="text/css">
                                    .form  {font-family: Arial, Helvetica, sans-serif; font-size: 9pt; border: 1px black solid; color: black; background-color: #FFFFFF}
                                </style> 
              <input name="horainicialpre" type="text" class = "form" OnKeyUp="mascara_hora_inicial_pre(this.value)" value="<%=VarHoraInicialPre%>" maxlength="5"> 
              <font size="2">&nbsp;</font><font face="Arial, Helvetica, sans-serif" size="1"><font color="#FF0000" size="1">(HH:MM)</font></font> </td> 
          </tr> 
          <tr> 
            <td> <%if mens_tempoduracaopre <> "" then%> 
              <font size="2" face="Arial, Helvetica, sans-serif" color="#FF0000"> 
              <%else%> 
              <font size="2" face="Arial, Helvetica, sans-serif"> 
              <%end if%> 
              <font color="#FF6666" size="2" face="Arial, Helvetica, sans-serif">*</font>&nbsp;Tempo de dura&ccedil;&atilde;o: </font></td> 
            <td> <style type="text/css">
                                    .form  {font-family: Arial, Helvetica, sans-serif; font-size: 9pt; border: 1px black solid; color: black; background-color: #FFFFFF}
                                </style> 
              <input name="tempoduracaopre" type="text" class = "form" OnKeyUp="mascara_tempo_duracao_pre(this.value)" value="<%=VarTempoDuracaoPre%>" maxlength="5"> 
              <font size="2">&nbsp;</font><font face="Arial, Helvetica, sans-serif" size="1"><font color="#FF0000" size="1">(HH:MM)</font></font> </td> 
          </tr> 
        </table></td> 
    </tr> 
    <tr> 
      <td > <% elseif VarRadioTipo = "trabalho" then %> 
        <table width="95%" border="0" align="center"> 
          <tr> 
            <td width="20%"><font face="Arial, Helvetica, sans-serif" size="2">Tempo Estimado:</font></td> 
            <td width="80%"><input type="text" class="form" name="tempoestimado" onKeyUp="mascara_tempo_estimado(this.value)" value="<%=VarTempoEstimado%>"> 
              <font face="Verdana" size="1"><font color="#FF0000" size="1">(HH:MM)</font></font></td> 
          </tr> 
        </table></td> 
    </tr> 
    <tr> 
      <td > <% elseif VarRadioTipo = "chat" then %> 
        <table width="95%" height="80" border="0" align="center"> 
          <tr> 
            <td width="26%"> <%if mens_datachat <> "" then%> 
              <font size="2" face="Arial, Helvetica, sans-serif" color="#FF0000"> 
              <%else%> 
              <font size="2" face="Arial, Helvetica, sans-serif"> 
              <%end if%> 
              <font color="#FF6666" size="2" face="Arial, Helvetica, sans-serif">*</font>&nbsp;Data: </font> </td> 
            <td width="74%" > <style type="text/css">
                                    .form  {font-family: Arial, Helvetica, sans-serif; font-size: 9pt; border: 1px black solid; color: black; background-color: #FFFFFF}
                                </style> 
              <input type="text" class = "form" name="datachat" value="<%=VarDataChat%>" OnKeyUp="mascara_data_chat(this.value)"> 
              <font size="2">&nbsp;</font><font face="Arial, Helvetica, sans-serif" size="1"><font color="#FF0000" size="1">(DD/MM/AAAA)</font></font> </td> 
          </tr> 
          <tr> 
            <td> <%if mens_horainicialchat <> "" then%> 
              <font size="2" face="Arial, Helvetica, sans-serif" color="#FF0000"> 
              <%else%> 
              <font size="2" face="Arial, Helvetica, sans-serif"> 
              <%end if%> 
              <font color="#FF6666" size="2" face="Arial, Helvetica, sans-serif">*</font>&nbsp;Hora Inicial: </font></td> 
            <td > <style type="text/css">
                                    .form  {font-family: Arial, Helvetica, sans-serif; font-size: 9pt; border: 1px black solid; color: black; background-color: #FFFFFF}
                                </style> 
              <input name="horainicialchat" type="text" class = "form" OnKeyUp="mascara_inicial_chat(this.value)" value="<%=VarHoraInicialChat%>" maxlength="5"> 
              <font size="2">&nbsp;</font><font face="Arial, Helvetica, sans-serif" size="1"><font color="#FF0000" size="1">(HH:MM)</font></font> </td> 
          </tr> 
          <tr> 
            <td> <%if mens_horafinalchat <> "" then%> 
              <font size="2" face="Arial, Helvetica, sans-serif" color="#FF0000"> 
              <%else%> 
              <font size="2" face="Arial, Helvetica, sans-serif"> 
              <%end if%> 
              <font color="#FF6666" size="2" face="Arial, Helvetica, sans-serif">*</font>&nbsp;Hora Final: </font></td> 
            <td > <style type="text/css">
                                    .form  {font-family: Arial, Helvetica, sans-serif; font-size: 9pt; border: 1px black solid; color: black; background-color: #FFFFFF}
                                </style> 
              <input name="horafinalchat" type="text" class = "form" OnKeyUp="mascara_final_chat(this.value)" value="<%=VarHoraFinalChat%>" maxlength="5"> 
              <font size="2">&nbsp;</font><font face="Arial, Helvetica, sans-serif" size="1"><font color="#FF0000" size="1">(HH:MM)</font></font> </td> 
          </tr> 
          <tr> 
            <td >&nbsp;</td> 
            <td >&nbsp;</td> 
          </tr> 
        </table></td> 
    </tr> 
    <tr> 
      <td > <% elseif VarRadioTipo = "questoes" then %> 
        <table width="95%" border="0" align="center"> 
          <tr> 
            <td width="20%"><font face="Arial, Helvetica, sans-serif" size="2">Tempo Estimado:</font></td> 
            <td width="80%"><input type="text" class="form" name="tempoestimado" onKeyUp="mascara_tempo_estimado(this.value)" value="<%=VarTempoEstimado%>"> 
              <font face="Verdana" size="1"><font color="#FF0000" size="1">(HH:MM)</font></font></td> 
          </tr> 
        </table></td> 
    </tr> 
    <tr> 
      <td > <% elseif VarRadioTipo = "forum" then %> 
        <table width="95%" border="0" align="center"> 
          <tr> 
            <td width="20%"><font face="Arial, Helvetica, sans-serif" size="2">Tempo Estimado:</font></td> 
            <td width="80%"><input type="text" class="form" name="tempoestimado" onKeyUp="mascara_tempo_estimado(this.value)" value="<%=VarTempoEstimado%>"> 
              <font face="Verdana" size="1"><font color="#FF0000" size="1">(HH:MM)</font></font></td> 
          </tr> 
          <tr> 
            <td width="20%"><font face="Arial, Helvetica, sans-serif" size="2"><font color="#FF6666" size="2" face="Arial, Helvetica, sans-serif">*</font> Escolha o t&oacute;pico: </font></td> 
            <td width="80%"> <% sql = "select idtopico,titulo from tópico, forum where forum.idturma = "&session("turma")&" and forum.idforum=tópico.idforum"
          set RSTopico = conn.execute(sql)%> 
              <select name="ListTopico"> 
                <option value="" selected>[Selecione o tópico]</option> 
                <% DO While not RSTopico.EOF %> 
                <option value="<%=RSTopico("IdTopico")%>"<%if VarIdTopico=RSTopico("IdTopico")then%>selected<%end if%>><%=RSTopico("Titulo")%></option> 
                <% RSTopico.MoveNext
            LOOP %> 
              </select></td> 
          </tr> 
        </table> 
        <% end if %> </td> 
    </tr> 
    <tr> 
      <td >&nbsp;</td> 
    </tr> 
    <tr> 
      <td > <table width="511" border="0" cellspacing="0" cellpadding="0" align="center"> 
          <tr> 
            <% 
            if (VarRadioTipo = "questoes") or (VarIdAtividade <> 0) then %> 
            <td valign="top" > &nbsp; 
              <input name="Questionario" type="image" src="imagens/Recortes/Gif/Botoes/btn_sist_quest.gif"> 
&nbsp; </td> 
            <% end if %> 
            <% if nome = "" and VarIdAtividade = 0 and VarRadioTipo <> "questoes" then %> 
            <td valign="top" > <font face="Arial, Helvetica, sans-serif"> &nbsp; 
              <!-- O BOTÃO CRIAR ATIVIDADE SERÁ HABILITADO quando O NOME FOR VAZIO, 
                                  QUANDO NÃO HOUVER ATIVIDADE SELECIONADA NA LISTA E QUANDO O TIPO DA ATIVIDADE NÃO FOR PROVINHA--> 
              <input name="Incluir" type="submit" value="Incluir" class="botao"> 
&nbsp; &nbsp; </font></td> 
            <% end if %> 
            <td valign="top"> &nbsp; 
              <input name="Alterar" type="submit" value="Alterar" class="botao"> 
&nbsp; &nbsp; </td> 
            <td valign="top"> &nbsp; 
              <input type="submit" name="Excluir" value="Excluir" class="botao"> 
&nbsp; &nbsp; </td> 
            <td valign="top">&nbsp; 
              <input type="submit" name="Limpar" value="Limpar" class="botao"> 
&nbsp; </td> 
          </tr> 
        </table></td> 
    </tr> 
  </form> 
</table> 
<form name="form_exclui" method="post" action="<%="pcadatividade.asp?ParIdAtividade="&VarIdAtividade&""%>"> </form> 
</td> 
</tr> 
</table> 
<%
    RSAtiMod.Close
    RSAtiNpre.Close
    RSAtiPre.Close
    RSTopico.Close
    conn.close
    set RSatiMod = nothing
    set RSAtiNpre = nothing
    set RSAtiPre = nothing
    set RSTopico = nothing
    set conn = nothing
%> 
</body>
</html>
<% if session ("admin")<>""then
<!--#include file="divs_menu_administrador.asp" -->
elseif session("aluno")<>""then %>
<!--#include file="divs_menu_aluno.asp" -->
<% elseif session("professor") <> "" then %>
<!--#include file="divs_menu_professor.asp" -->
<% end if %>

Editado por andreia_sp
utilize tags para codigos, facilita a visualização.
Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...