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">
<script language="JavaScript" src="mascaras.js"></script>
<link href="menu/estilo_menu.css" rel="stylesheet" type="text/css">
<% if session ("admin") <> "" then
response.Write("<script language=""javascript"" src=""menu/administrador.js""></script>")
elseif session("aluno") <> "" then
response.Write("<script language=""javascript"" src=""menu/aluno.js""></script>")
elseif session("professor") <> "" then
response.Write("<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-->
<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 %>
<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 %>
<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
%>
<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 %>
<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%>
<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 %>
<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%>
<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%>
<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%>
<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 %>
<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-->
<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> Obs:</strong> Campo(s) com <font color="#FF0000"> * <font color="#000000"> são de preenchimento obrigatório</font></font></font></td>
</tr>
<tr>
<td> </td>
<td > </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"> 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"> Nome: </font></td>
<td><input type="text" class = "form" name="nome" value="<%=VarNome%>" size="60" maxlength="80">
<font face="Verdana" size="2"> </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"> 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"> </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"> Data de disponibilizaçã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"> </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õ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ó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> 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"> </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> 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"> </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> 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"> </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> Tempo de duraçã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"> </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> 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"> </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> 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"> </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> 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"> </font><font face="Arial, Helvetica, sans-serif" size="1"><font color="#FF0000" size="1">(HH:MM)</font></font> </td>
</tr>
<tr>
<td > </td>
<td > </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ó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 > </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" >
<input name="Questionario" type="image" src="imagens/Recortes/Gif/Botoes/btn_sist_quest.gif">
</td>
<% end if %>
<% if nome = "" and VarIdAtividade = 0 and VarRadioTipo <> "questoes" then %>
<td valign="top" > <font face="Arial, Helvetica, sans-serif">
<!-- 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">
</font></td>
<% end if %>
<td valign="top">
<input name="Alterar" type="submit" value="Alterar" class="botao">
</td>
<td valign="top">
<input type="submit" name="Excluir" value="Excluir" class="botao">
</td>
<td valign="top">
<input type="submit" name="Limpar" value="Limpar" class="botao">
</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 %>
