Operation is not allowed when the object is closed.

[falcolandrao 0]

http://forum.imasters.com.br/public/style_emoticons/default/excl.gif Pessoal minha duvida é neste codigo, eu abri um connection, é necessario abrir um recordset tb...

 

ADODB.Connection error '800a0e78'

 

Operation is not allowed when the object is closed.

 

/cozinha/menu_cat.asp, line 5

-----------------------------------------------------------------------------------------

 

<!--#include virtual="/funcoes/abre_arq.asp"-->

<%

'Set Conn = Server.CreateObject("ADODB.Connection")

sql = "select * from coz_cat ORDER BY Nome_categoria"

Set RS = Conn.Execute(sql)

%>

<SELECT NAME="categoria">

<OPTION selected value=0>Selecione Aqui ---------->

<% If NOT RS.EOF Then %>

<%Do While Not RS.EOF %>

<OPTION value=<%=RS("Cod_categoria")%>><%=RS("Nome_categoria")%>

<%RS.MoveNext%>

<%Loop%>

<%End If%>

<%

RS.Close

Set RS=Nothing

Conn.Close

Set Conn=Nothing

%>

</SELECT>

 

O erro esta aqui Set RS = Conn.Execute(sql), eu imagino o seguinte, o recordset esta fechado mas não abri nenhum, aguardo algum comentário de vcs enquanto irei testar isto, obrigado... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[crucifier 0]

nao sei nao..mas tenta por assim:

 

<!--#include virtual="/funcoes/abre_arq.asp"--><%'Set Conn = Server.CreateObject("ADODB.Connection")sql = "select * from coz_cat ORDER BY Nome_categoria"Set RS = Conn.Execute(sql)%><SELECT NAME="categoria"><OPTION selected value=0>Selecione Aqui ----------><% If NOT RS.EOF Then %><%Do While Not RS.EOF %><OPTION value=<%=RS("Cod_categoria")%>><%=RS("Nome_categoria")%><%RS.MoveNext%><%Loop%><%End If%></SELECT><%RS.CloseSet RS=NothingConn.CloseSet Conn=Nothing%>

[falcolandrao 0]

Pessoal vejam como deixei, aquele esquema que me mandaram não deu certo, agradeço até o momento: <!--#include virtual="/funcoes/abre_arq.asp"--><% Set RS = Server.CreateObject("ADODB.Connection") RS.Open nautinetstring ' string de conexao Set Conn = Server.CreateObject("ADODB.RECORDSET") sql = "select * from coz_cat ORDER BY Nome_categoria" Conn.Open sql, RS%><SELECT NAME="categoria"><OPTION selected value=0>Selecione Aqui ----------> <% If not RS.EOF Then %> <%Do While Not RS.EOF %> <OPTION value=<%=RS("Cod_categoria")%>><%=RS("Nome_categoria")%> <%RS.MoveNext%> <%Loop%> <%End If%></SELECT><%RS.CloseSet RS=NothingConn.CloseSet Conn=Nothing%>agora o erro é este -> ADODB.Connection erro '800a0bb9' O aplicativo está usando argumentos que são do tipo errado, estão fora do intervalo aceito ou estão em conflito entre si.Estou analisando ainda, eu vi dizer coisa de IIS ou global.asa que nao dispara, linha 11 <% If not RS.EOF Then %> já tentei tirar o not mas não deu certo, aguardo novos coments de vcs e obrigado