Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Olá tudo bem pessoal? o que está acaontecendo! na hora que eu vou rodar este código ele da um erro chamado assim "Código Fechado" nesta linha:
"set rslistartab = cmdlistartab.Execute"
eu não entendi !
alguem pode me ajudar sobre codigo fechado?
<!--#include file="../include.administrativo" -->
<html>
<head>
<!--#include file="../template/head_adm.html" -->%>
<script type="text/javascript"> /* Scripts relacionados à apenas essa página deve ser escrito aqui */
function AlteraAlerta(){
var valuedivPeriodo = document.getElementById("periodo");
var valuedivCentros = document.getElementById("centro");
var valuedivDescricao = document.getElementById("descricao");
var valuedivSituacao = document.getElementById("situacao");
var txtMensagem = document.getElementById("txtMensagem");
var dados = "periodo=" +valuedivPeriodo.value;
dados += "¢ro=" +valuedivCentros.value;
dados += "&descricao=" +valuedivDescricao.value;
dados += "&situacao=" +valuedivSituacao.value;
dados += "&txtMensagem=" +txtMensagem.value;
lerURL("cadastro.asp",dados,false);
if(trim(document.getElementById("resultado").innerHTML)=="1" ){
alert("alteração feita com sucesso")
location.href="cadlistar.asp";
}
else{
alert("Erro")
location.href="cadlistar.asp";
}
document.getElementById("resultado").innerHTML="" ;
}
function chamadivPeriodo(){
var dados = "";
lerURL("periodo.asp",dados,false);
document.getElementById("divPeriodo").innerHTML = document.getElementById("resultado").innerHTML;
document.getElementById("resultado").innerHTML = "";
}
function chamadivCentro(){
var dados = "";
lerURL("centro.asp",dados,false);
document.getElementById("divCentros").innerHTML = document.getElementById("resultado").innerHTML;
document.getElementById("resultado").innerHTML = "";
}
function chamadivDescricao(){
var dados = "";
lerURL("descricao.asp",dados,false);
document.getElementById("divDescricao").innerHTML = document.getElementById("resultado").innerHTML;
document.getElementById("resultado").innerHTML = "";
}
function chamadivSituacao(){
var dados = "";
lerURL("situacao.asp",dados,false);
document.getElementById("divSituacao").innerHTML = document.getElementById("resultado").innerHTML;
document.getElementById("resultado").innerHTML = "";
}
function chamacadastro(){
var dados = "";
lerURL("cadlistar.asp",dados,false);
document.getElementById("cadlistar").innerHTML = document.getElementById("resultado").innerHTML;
document.getElementById("resultado").innerHTML = "";
}
function validar(){
var periodo = document.cadastro.periodo.value;
var centro = document.cadastro.centro.value;
var descricao = document.cadastro.descricao.value;
var situacao = document.cadastro.situacao.value;
var mensagem = document.cadastro.mensagem.value;
if(periodo == ""){
alert("escolha a opcao desejada");
document.cadastro.periodo.focus();
return false;
}
if(centro == ""){
alert("escolha a opcao desejada");
document.cadastro.centro.focus();
return false;
}
if(descricao == ""){
alert("escolha a opcao desejada");
document.cadastro.descricao.focus();
return false;
}
if(situacao== ""){
alert("escolha a opcao desejada");
document.cadastro.situacao.focus();
return false;
}
if(mensagem== ""){
alert("redija uma mensagem");
document.cadastro.mensagem.focus();
return false;
}
return true;
}
function butDeletar(codigo){
document.location.href="home_adm.asp?periodo=" + periodo;
}
function butAtualizar(periodo, centro, codigo, situacao, mensagem){
location.href="home_adm.asp?periodo=" + periodo+"¢ro=" + centro+"&situacao=" + situacao+"&descricao=" +descricao+"mensagem=" +mensagem;
}
window.onload = function(){
chamadivPeriodo();
chamadivCentro();
chamadivDescricao();
chamadivSituacao();
//chamadivMensagem();
//chamacadastro();
}
</script>
<style type="text/css"> /* Estilo relacionados à apenas essa página deve ser escrito aqui */
/*HTML*/
body{
font-size :12px;
line-height :15px;
text-align :left;
font-family :verdana;
color :#3A5573;
}
.quadrinho{
background-color:#EFF4F8;
border :1px solid #DDE7F3;
background :#F8FCFF;
margin-right :17px;
margin-left :1%;
padding-top :0px;
}
#divPeriodo{
width :700px;
height :250px;
margin-right :10%;
margin-center :25px;
position :absolute;
left :47px;
margin-top :10px;
bottom :
}
#divCentros{
margin-right :50px;
padding-bottom :10px;
position :absolute;
right :193px;
margin-top :330px;
bottom :420px;
}
#divDescricao{
margin-right :10%;
margin-center :25px;
position :absolute;
right :90px;
margin-top :10px
left :47px;
}
#divSituacao{
padding-bottom :10px;
position :absolute;
margin-right :20px;
left :11px;
bottom :-50px;
margin_top :320px;
position :relative;
}
#divMensagem{
margin-left :300px;
margin-right :20%;
padding-top :130px;
}
#cad_mensagem{
border :1px solid #DDE7F3;
background :#F8FCFF;
margin-right :15%;
margin-left :15px;
padding-bottom :30px;
}
#quadro_fundo{
border :1px solid #DDE7F3;
background :white;
padding-top :40px;
padding-bottom :100px;
margin-left :16px;
margin-right :15%;
}
#menu{
margin-right :0%;
margin-left :0x;
padding-top :5px;
background :#00417F;
text-align :center;
font-family :verdana;
font-size :14px;
font-weight :bold;
color :#ffffff;
}
#atualizar{
text-align :center;
padding-top :20px;
}
</style>
</head>
<body><!--#include file="../template/cabecalho_adm.html" -->
<div id="divEscopoPagina">
<!-- Início de parte editável - parte não removivel, apenas alterável -->
<img src="../imagem/esc_curriculo.gif" alt="Escolher Currículo"/> <!-- Trocar a imagem e o alt de acordo com o escopo da página -->
<!-- Fim de parte editável -->
</div><!-------------------------------------------------------------------------------------------------------------------------------------------------------------------------
<-- a partir desse ponto é o lugar onde a página deve ser desenvolvida -->
<%
Dim cmdlistartab
Dim rslistartab
Set cmdlistartab = Server.CreateObject("ADODB.Command")
Set rslistartab = Server.CreateObject("ADODB.RecordSet")
cmdlistartab.ActiveConnection = BancoAIEC_ACAD
cmdlistartab.CommandText = "PRC_SISTEMA_LISTAR"
cmdlistartab.CommandType = 4
cmdlistartab("@periodo") = request.form("periodo")
cmdlistartab("@centro") = request.form("centro")
cmdlistartab("@descricao") = request.form("descricao")
cmdlistartab("@situacao") = request.form("Situacao")
cmdlistartab("@mensagem") = request.form("mensagem")
If Not rslistartab.EOF Then
response.write rslistartab ("erro")
else
response.write rslistartab("listando")
End if
response.redirect "home_adm.asp"
%>
<div id= "cl_instrucaoCaixa"></div>
<div id="cad_mensagem">
LEGENDA
</div>
</br></br>
<div id="quadro_fundo">
<form name="cadastro" method="post" action="cadlistar.asp">
<div class="quadrinho">
<div id="menu">ATUALIZAR</div>
<div id="divPeriodo">periodo<option type="int" name="periodo" class="texto" value="<%=Rs("id_periodo")%>"><%=Rs("num_periodo")%></div>
</br></br>
<div id="divCentros">Centro<option type="int" name="centro" class="texto" value="<%=Rs("centro")%>"><%=Rs("centro_str_cidade")%></div>
</br></br>
<div id="divDescricao">Descrição<option type="int" name="descricao" class="texto" value="<%=Rs("curcod")%>"><%=Rs("descricao")%></div>
</br></br>
<div id="divSituacao">Situação<option type="int" name="situacao" class="texto" value="<%=Rs("alusituac")%>"><%=Rs("desc_sit")%></div>
</br></br>
<div id="divMensagem">
<textarea id="txtMensagem" name="mensagem" COLS=50 ROWS=5 value="<%=Rs("mensagem")%>"</textarea>
</div>
</br></br>
</div>
<%
if not rslistartab.eof then
while not rslistartab.eof
%>
<tr>
<td><%=rslistartab("periodo").value%></td>
<td><%=rslistartab("centro").value%></td>
<td><%=rslistartab("descricao").value%></td>
<td><%=rslistartab("situacao").value%></td>
<td><%=rslistartab("mensagem").value%></td>
<div id="alterar">
<input name="cad" type="button" value="Atualizar" class="botao" onClick="AlteraAlerta();">
</div>
</tr>
<%
rslistartab.movenext
wend
end if
%>
</br></br>
</div>
</br></br>
</form>Carregando comentários...