Ajuda Erro Urgente

[Flavio Diniz]

QUE ERRO E ESSE

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'strConexao'

/blog/admin/conexao.asp, line 9

VALEU

FLAVIO DINIZ

[-#Alea#-]

coloca o código aí meu.

[Flavio Diniz]

ok so um minuto

[Flavio Diniz]

<%

'Declaração de Variavel de conexão

Dim ConnDB

Sub AbreBanco ()

Dim strConexao

'Recebe String de Conexão

strConexao"DBQ=/dados/blog.mdb;Driver={Microsoft Access Driver (*.mdb)};"

'strConexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& _

'Server.MapPath ("/banco/blog.mdb")&";Persist Security Info=False"

'Cria Objeto de Conexão

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

'Abre Banco

ConnDB.Open (strConexao)

End Sub

[-#Alea#-]

tenta assim

<%

Sub AbreBanco()

dim Strconexao

dim ConnBD

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

strconexao ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("banco/blog.mdb") & "; uid=sa; pwd=;"

ConnBD.opem strconexao

end sub

%>

[Flavio Diniz]

vou tentar aguarde

um pouco

[Flavio Diniz]

ADODB.Connection error '800a0e78'

Operation is not allowed when the object is closed.

/blog/admin/conexao.asp, line 10deu esse erro

[-#Alea#-]

coloca seu codigo aí......

[Flavio Diniz]

<%
'Declaração de Variavel de conexão
Dim ConnDB

Sub AbreBanco ()
    Dim strConexao
    'Recebe String de Conexão
    strConexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& _ 
       Server.MapPath ("/banco/blog.mdb")&";Persist Security Info=False"
    'Cria Objeto de Conexão
    Set ConnDB = Server.CreateObject ("ADODB.Connection")
    'Abre Banco
    ConnDB.Open (strConexao)
End Sub

Sub FechaBanco ()
    'Verifica Se o Banco está aberto
    if ConnDB.State = 1 then
  'Fecha o banco de dados
  ConnDB.Close
  'Destroi o Objeto
  Set ConnDB = Nothing

[Flavio Diniz]

ESSE É O CODOGO ORIGINAL