Microsoft VBScript runtime error '800a000d'

[Daiane Barbosa 0]

Bom dia, Pessoal!!!

 

Estou com o seguinte problema:

 

 

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'AbreConexao'

/licitacao/default.asp, line 18

 

A linha 18 é essa: Call AbreConexao

 

Não sei como resolver...

[xanburzum 169]

provavelmente vc tem qu ter o include do arquivo onde esta o código de conexão para a função AbreConexao, que provavelmente é este, se estiver usando alguns de meus code.

 <% '----------------------
'    este arq. serve para estabelecer a conexao com o BD em Access
'    de nome quaddra.mdb - para o arquivo login_action.asp

sub abreconexao
constring="provider=microsoft.JET.OLEDB.4.0;Data Source=" & Server.MapPath("db/quaddra.mdb")
Set conexao=Server.CreateObject("ADODB.Connection")
conexao.open constring
end sub

sub fechaconexao
set conexao=nothing
end sub
%>