Erro com conexão ao banco de dados!

[Elton2203 0]

Boa tarde, comecei a programar em asp a pouco tempo e venho seguindo alguns códigos como exemplo, devido ao mal funcionamento do meu windows tive q formatá-lo e agora não consigo escrever meus codigos em novos arquivos pois aparece o seguinte erro:

 

HTTP 500.100 - Servidor interno Erro - erro do ASP

Internet Information Services

 

Informações técnicas (para a equipe de suporte)

 

* Tipo de erro:

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

Objeto necessário: ''

/eltonassuncao/web/teste.asp, line 15

verifiquei a minha conexão através do código:

 

<%
if Conn = "" then
response.write "Conexão fechada!"
else
response.write "Conexão aberta!"
End if
%>

e aparece conexão fechada, porém eu nunca manipulei essa conexão e agora não sei como consertar, sei q estou precisando estudar mais sobre banco de dados, mas será q alguém pode me ajudar, não sei nem por onde começar...a minha programação possui 2 connectionstrings estou encaminhando elas para facilitar no entendimento.

Ps.: a conexão com o banco em admin q é o primeiro código funciona corretamente e eu até consigo manipular os dados normalmente, porém qdo eu kero exibir a função para o usuário não consigo pois o banco esta “deslogado”.

<%' connectionstrings para a area administrativa
dim con, caminho
caminho = server.MapPath("../../Dados/eltonassuncao.mdb")

' função que conecta ao banco
sub connectset con = server.CreateObject("ADODB.Connection")
con.connectionstring = "driver={Microsoft Access Driver (*.mdb)};Dbq="&caminho
con.open()
end sub

' função que desconecta do banco
sub desconnect        
con.close()
set con = nothing               
end sub                
sub logado()                
if session("acesso") <> true then                        
session("msgErro") = "Você deve logar primeiro"                        
response.Redirect("../Default.asp")                        
response.End()                
end if        
end sub
%>

<%        
' connectionstrings  para o restante do site                
dim con, caminho                
caminho = server.MapPath("dados/eltonassuncao.mdb")                

' função que conecta ao banco        
sub connect                
set con = server.CreateObject("ADODB.Connection")                        
con.connectionstring = "driver={Microsoft Access Driver (*.mdb)};Dbq="&caminho                                      
con.open()        
end sub                

' função que desconecta do banco        
sub desconnect                                  
con.close()                     
set con = nothing               
end sub        
%>

[thiagobellusse 0]

Boa noite Elton2203.

 

Você esta terminando o SCRIPT antes que algo ocorra.

Você pode usar o If e ELSE, tente assim:

 

' connectionstrings para a area administrativa

dim con, caminhocaminho = server.MapPath("../../Dados/eltonassuncao.mdb")

' função que conecta ao banco

sub connectset

con = server.CreateObject("ADODB.Connection")

con.connectionstring = "driver={Microsoft Access Driver (*.mdb)};Dbq="&caminhocon.open()

end sub

' função que desconecta do banco

sub desconnect

con.close() 'Com esta sub você esta fechando o banco, remova a sub desconnect e use somente no final dos blocos a seguir

set con = nothing

end sub

sub logado()

 

 

...

...

...

 

if session("acesso") <> true then

session("msgErro") = "Você deve logar primeiro"

response.Redirect("../Default.asp")

response.End()

 

else

 

' connectionstrings para o restante do site

dim con, caminho

...

...

...

...

end if

[Elton2203 0]

Boa noite Elton2203.

 

Você esta terminando o SCRIPT antes que algo ocorra.

Você pode usar o If e ELSE, tente assim:

 

' connectionstrings para a area administrativa

dim con, caminhocaminho = server.MapPath("../../Dados/eltonassuncao.mdb")

' função que conecta ao banco

sub connectset

con = server.CreateObject("ADODB.Connection")

con.connectionstring = "driver={Microsoft Access Driver (*.mdb)};Dbq="&caminhocon.open()

end sub

' função que desconecta do banco

sub desconnect

con.close() 'Com esta sub você esta fechando o banco, remova a sub desconnect e use somente no final dos blocos a seguir

set con = nothing

end sub

sub logado()

 

 

...

...

...

 

if session("acesso") <> true then

session("msgErro") = "Você deve logar primeiro"

response.Redirect("../Default.asp")

response.End()

 

else

 

' connectionstrings para o restante do site

dim con, caminho

...

...

...

...

end if

 

[Elton2203 0]

Bom Dia Thiago, desde já agradeço a sua atenção.

Fazendo uma pequena observação...Esse código q eu postei são 2 connectionstring diferente:

 

' connectionstrings para a area administrativa

 

' connectionstrings para o restante do site

 

e na sua dica eu entendi q você está unindo as duas, sendo assim ficou um pouco complicado para minha compreensão.

 

pois se você reparar a primeira connectionstrings, a da area administrativa exige q eu esteja logado, mas a segunda não, pois serve apenas para escrever o conteudo do banco no site.

 

Como vou usar sua dica então?

[thiagobellusse 0]

Boa noite Elton2203, você esta querendo fazer um sistema de login multinivel pelo que notei, se realmente for, o código que postei esta correto, de uma olhada neste link, ele esta bem detalhado http://imasters.com.br/artigo/1504/asp/sistema_de_login_mulltinivel/.

Caso não seja isso, diga novamente onde esta que poderemos ajudar.

Abraços e um ótimo final de semana

[xanburzum 169]

Olá amigo

você disse, que

devido ao mal funcionamento do meu windows tive q formatá-lo e agora não consigo escrever meus codigos em novos arquivos pois aparece o seguinte erro:

se for o woindows vista certifique-se de ter habilito para processar scripts de conexão.

 

e olha este tipo de arquivo para fazer sua conexão

 

<%

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
%>

depois você chama ele atreves de include , na outra página