Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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
%>
>
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
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?
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
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
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