Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Adrifester

Objeto fechado

Por , em ASP Clássico

Recommended Posts

Adrifester    0

Adrifester
Postado

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" -->
<%	  
response.write "int_cod_mensagem		= " & request("int_cod_mensagem")	  
response.write "varc_titulo_mensagem	= " & request("varc_titulo_mensagem")
response.write "dt_data_inicio			= " & request("dt_data_inicio")	  
response.write "dt_data_fim				= " & request("dt_data_fim")
response.write "dt_cadastro				= " & request("dt_cadastro")	  
response.write "varc_url_cadastro		= " & request("varc_url_cadastro")
response.write "txt_mensagem			= " & request("txt_mensagem")	  
response.write "bit_visualizacao		= " & request("bit_visualizacao")

%>

    <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 += "&centro="      +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+"&centro=" + 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>

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ele gera algum número de erro ?

poste o número e a linha

Compartilhar este post

Link para o post
Compartilhar em outros sites

Vinicius Ianni    189

Vinicius Ianni
Postado

Veja se no seu código tem alguma linha antes dos comandos para manipulação do banco de dados parecida com estas:

set conn=server.createobject("adodb.connection")
conn.open strConexao
set rs=server.createobject("adodb.recordset")
sql = ....
Set rs = conn.execute(sql)

 

Note que o conn é a variavel usada para criar o objeto que fará a conexão com o banco de dados.

Quando dou o comando open, informo a ele para usar a strconexão que é um include que contém a string de conexão e demais informações necessárias para a conexão ao bd.

 

A variavel rs será a que usaremos a partir de então para manipular os registros do banco de dados, com as informações pedidas na sql.

 

Como está faltando abrir o banco de dados, está gerando esse erro.

 

PS: Por favor, nos posts subsequentes ou nos proximos topicos que criar, coloque apenas o que for relevante ao codigo/duvida em questão, pois ao colocar o código de tudo que está na página, incluindo css e javascript, a informação fica espalhada e confusa de achar para saber se está correto ou não, além de nos tomar um tempo que nem sempre temos.

Se puder colocar o código dentro das tags do BBCode, também facilitará nosso trabalho, pois ao colorizar automaticamente, fica mais fácil de procurarmos o que pode estar causando o erro e/ou a duvida.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito