erro na cocexão

[ale.leleco 0]

Ola! galera ja procurei em varios topicos e não tenho idéia do que acontece...

olha estou fazendo uma conexão com sql server 2000 e quando faço da seguinte maneira da tudo certo.

CODE

usuario=request.Form("nome")

senha=request.form("senha")

 

sql="SELECT codjog, jognome, jogsobre, jogsenha, joglog, codcidade, jogbairro, jogusuario"

sql = sql & " FROM PESGolShow.dbo.jogador"

sql = sql & " WHERE jogusuario = '"&usuario&"' and jogsenha = '"&senha&"'"

 

 

Set Bco= server.createObject("ADODB.Connection")

Bco.open "File Name=" & server.MapPath("strconecta.udl")

 

set rs=Bco.execute(sql)

 

response.Write(rs("codjog"))

%>

este codigo da tudo certo mas quando tento fazer com include tipo:

 

CODE

Arquivo strconecta.asp

<%

Dim Bco

 

Sub AbreBco()

 

Set Bco = server.createObject("ADODB.Connection")

Bco.open "File Name=" & server.MapPath("strconecta.udl")

 

End Sub

 

Sub fechaBco()

Bco.close

Set Bco = nothing

End sub

%>

fim do arquivo Strconecta.asp

 

arquivo que chamo o strconecta

<!--#include file="strconecta.asp" -->

 

 

usuario=request.Form("nome")

senha=request.form("senha")

 

sql="SELECT codjog, jognome, jogsobre, jogsenha, joglog, codcidade, jogbairro, jogusuario"

sql = sql & " FROM PESGolShow.dbo.jogador"

sql = sql & " WHERE jogusuario = '"&usuario&"' and jogsenha = '"&senha&"'"

 

call AbreBco()

 

set rs=Bco.execute(sql)

 

response.Write(rs("codjog"))

%>

fim do arquivo

 

bom com o include gera o seguinte erro.

CODE

Tipo de erro:

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

Tipos incompatíveis: 'AbreBco'

/PES/confereacesso.asp, line 24

Sei lá o que acontece, fazia a mesma conexão com access e da tudo ok, não sei se está visualizando o AbreBco como uma variavel, o que não é, ja tentei colocar o Option Expliciti e da o mesmo erro...

[Mário Monteiro 179]

qual a linah do erro?

[ale.leleco 0]

qual a linah do erro?

Na linha

call AbreBco()

[Jow Xavier 0]

Então veja q você está abrindo a conexão duas vezes

 

tenta isso:

%><!--#include file="strconecta.asp" -->
usuario=request.Form("nome")
senha=request.form("senha")
call AbreBco()
sql="SELECT codjog, jognome, jogsobre, jogsenha, joglog, codcidade, jogbairro, jogusuario" sql = sql & " FROM PESGolShow.dbo.jogador"sql = sql & " WHERE jogusuario = '"&usuario&"' and jogsenha = '"&senha&"'"
set rs=Bco.execute(sql)
response.Write(rs("codjog"))
call fechaBco() 
Bco.close 
Set rs = nothing %>