Ir para conteúdo

POWERED BY:

Arquivado

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

berkowitz

Erro CCCCCHHHHAAAATTOOOO

Por , em ASP Clássico

Recommended Posts

berkowitz    2

berkowitz
Postado

Pessoal, olá.

 

Eu não manjo muito de conexões à DBs, e manje menos ainda em como fechá-las.

Eu estou desenvolvendo uma aplicação, mas sempre que vou inserir algo na tabela, da um erro que fala que a conexão está fechada.

Alguém poderia dar uma olhadinha pra mim???

 

O código:::

 

ASP [/tr][tr]<!-- #include file="../includes/config.asp" -->

<!-- #include file="includes/connection.asp" -->

<!-- #include file="includes/log.asp" -->

<html>

<head>

<title>Untitled Document</title>

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

<link rel="stylesheet" type="text/css" href="<%= siteRoot%>includes/css/estilos.css">

<script language="JavaScript" src="<%= siteRoot%>includes/metodos/metodos.js"></script>

<script language="JavaScript">

<!--

function tamanho() {

parent.alterSize(document.all.size.offsetHeight);

}

//-->

</script>

</head>

 

<body onLoad="tamanho();">

<div id="size">

<table width="97%" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td width="55%" valign="top" id="conteudo"> <% If Request.QueryString("action") = "add" Then

'••• Abrindo o RecordSet

Set rsCons = adoDataConn.Execute("INSERT INTO noticias (preview,noticia,addhome,area) VALUES " &_

"('" & Request.Form("addNoticia_preview") & "','" & Request.Form("addNoticia_noticia") & "','" & Request.Form("addNoticia_ishome") & "'" &_

",'" & Request.Form("addNoticia_area") & "')")

Response.Write "<br><br>Item adicionado.<br><br><br>"

'••• Destruindo os objetos

rsCons.Close()

Set rsCons = Nothing

adoDataConn.Close()

Set adoDataConn = Nothing

Else

%> <form id="addNoticia" name="addNoticia" method="post" action="adicionar.asp?action=add">

<p>

<input type="radio" name="addNoticia_area" value="not" style='border: 0px;'>

<label onClick="verificaArea(0);">Notícia </label>

<input type="radio" name="addNoticia_area" value="info" style='border: 0px;'>

<label onClick="verificaArea(1);">Informativo</label><br>

<br>

<span id="area_0" style='display: none;'>

Chamada na Home:

<input name="addNoticia_preview" type="text" id="addNoticia_preview" size="101" maxlength="100">

<br>

<br>

</span>

<span id="area_1" style='display: none;'>

Título do Informativo:

<input name="addNoticia_tituloInfo" type="text" id="addNoticia_tituloInfo" size="99" maxlength="100" style='margin-left: 1px;'>

<br>

<br>

</span>

Texto na Íntegra:<br>

<textarea name="addNoticia_noticia" rows="10" id="noticia" style='width: 516; margin-left: 119; margin-top: -13;'></textarea>

<br>

<br>

<span style='margin-left: 115;'><input type="checkbox" name="addNoticia_ishome" style='border: 0px;'>Inserir link na Home do Site</span>

<br>

<br>

<span style='margin-left: 523;'><a href="java script:document.addNoticia.submit();" class="botao" style='background-color: #F2F2F2;'>Inserir</a>  

<a href="java script:document.addNoticia.reset();" class="botao" style='background-color: #F2F2F2;'>Cancelar</a></span>

</p><br><br>

</form></td>

</tr>

</table>

<% End If %>

</div>

</body>

</html>

[/tr]

 

VALEW!

 

BERKOWITZ http://forum.imasters.com.br/public/style_emoticons/default/devil.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

berkowitz    2

berkowitz
Postado

frmz...

 

ASP [/tr][tr]<%

Conn="DRIVER={MySQL};SERVER=localhost;UID=id;PWD=senha;DATABASE=db"

Set adoDataConn = Server.CreateObject("ADODB.Connection")

adoDataConn.open Conn

%>

[/tr]

 

O include de conexão é só isso....

 

VALEW!!

 

BERKOWITZ http://forum.imasters.com.br/public/style_emoticons/default/devil.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

manga    0

manga
Postado

Acho que você deve estar recebendo uma mensagem dizendo que o rsCons está fechado pois você não criou o Recordset só a conexão. E nem precisa. Tente isso:Para fazer o Insert:adoDataConn.Execute("INSERT INTO noticias (preview,noticia...Depois destrua só a conexão:adoDataConn.CloseSet adoDataConn = NothingÉ sempre uma boa idéia destruir os objetos só depois da última instrução ASP, que no seu caso é "End If".Veja se funciona, qq coisa posta aewT+ B)

Compartilhar este post

Link para o post
Compartilhar em outros sites

berkowitz    2

berkowitz
Postado

AAAAAAAAA!! FUNCIONOU!!! Entendi cara!!!

Tipo... eu tava fechando um recordset que nem tava aberto né?? É que eu pensei que criando o

ASP [/tr][tr]rsCons.Execute("SELECT...")[/tr]
eu tava criando automaticamente um recordset!

 

Mas valew carA! Funcionou direitinho!!!!!

 

ABRAÇOS!!

 

BERKOWITZ http://forum.imasters.com.br/public/style_emoticons/default/devil.gif

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