Adodb.recordset

[Gnomo]

Seguinte galera..

to com fazendo um script mais ele esta dando erro

mais eu já olhei em tudo fiz todo o possivel procurei

em um monte de fórum e não achei nada parecido

com o meu caso.

O codigo é esse:

<!-- #include file="lib/DBAbre.asp" -->
Set rstEditar = Server.CreateObject("ADODB.Recordset")
intSecaoCodigo = 0

If Len(Request("cat")) > 0 And IsNumeric(Request("cat")) Then intSecaoCodigo = Request("cat")

If Request("aco") = "atu" Then
    rstEditar.Open "SELECT * FROM Secoes WHERE Secoes.Codigo = " & intSecaoCodigo & ";", conn, adOpenKeyset, adLockOptimistic, adCmdText
    If Not rstEditar.EOF Then

O código continua só postei a parte do erro.. está dando o seguinte erro:

ADODB.Recordset (0x800A0E7D) A conexão não pode ser usada para realizar esta operação. Ela está fechada ou é inválida neste contexto. Editar.asp, line 14

a linha 14 é essa:

rstEditar.Open "SELECT * FROM Secoes WHERE Secoes.Codigo = " & intSecaoCodigo & ";", conn, adOpenKeyset, adLockOptimistic, adCmdText

Me ajuda galera.. não to conseguindo de jeito nenhum..

vlw..

Desde já agradeço.

[bareta]

teste ai

<!-- #include file="lib/DBAbre.asp" -->

intSecaoCodigo = 0

If Len(Request("cat")) > 0 And IsNumeric(Request("cat")) Then intSecaoCodigo = Request("cat")

If Request("aco") = "atu" Then

sql="SELECT * FROM Secoes WHERE Codigo = " & intSecaoCodigo

set rstEditar=conn.execute(sql)

If Not rstEditar.EOF Then

[Gnomo]

E aí bareta.. vlw pela resposta..

fiz o que pediu mais deu o seguinte

erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

Objeto necessário: 'conn'

[kuroi]

você fez a conexao com o banco?? tipo o conn esta aberto e conectado com o banco??

[bareta]

posta o conteudo do arquivo

<!-- #include file="lib/DBAbre.asp" -->

[Gnomo]

está aí xD

<%
' ADO command types
adCmdText       = 1
adCmdTable      = 2
adCmdStoredProc = 4
adCmdUnknown    = 8

' ADO cursor types
adOpenForwardOnly = 0 '# (Default)
adOpenKeyset      = 1
adOpenDynamic     = 2
adOpenStatic      = 3

' ADO lock types
adLockReadOnly        = 1
adLockPessimistic     = 2
adLockOptimistic      = 3
adLockBatchOptimistic = 4

' ADO cursor location types
adUseServer = 2
adUseClient = 3

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Sites\Admin3\dados\dados.mdb;"

outra coisa pesquisei aqui no forum ai vi um tópico dizendo pra usar

call abre_conexao so que eu não sei como usar..

desde já agradeço.

[bareta]

verifique se o endereço do bd esta correto

[Gnomo]

está sim.. pois eu uso esse DbAbre.asp em outras

páginas e funciona perfeitamente.. so nesta página

que não esta funcionando não sei porque... :(

vlw...

[bareta]

dim conn
set conn = createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("database.mdb")