Jump to content

Alexandre.Itba

Members
  • Content count

    53
  • Joined

  • Last visited

Community Reputation

0 Comum

4 Followers

About Alexandre.Itba

  • Birthday 10/30/1987

Informações Pessoais

  • Sexo
    Masculino
  • Localização
    Ituiutaba - MG
  • Interesses
    Asp
    Asp.Net
    SQLServer
    Redes
    Programação em Geral

Contato

  • Site Pessoal
    http://www.dotcomsolucoes.com
  1. Alexandre.Itba

    Erro de sintaxe

    Vá até a linha 53 do arquivo "gerencia-registro.asp", cole o código abaixo, execute novamente e em seguida, copie o que aparece na tela do seu navegador e cole aqui no fórum. Response.Write "Query = " & sql
  2. Alexandre.Itba

    Operação não permitida quando o objeto está fechado

    Não nao... você inverteu as explicações, é exatamente o contrario. Os codigos ficarão assim: <% 'CONEXÃO SQL Server Const gpVersaoSistema = "Versão: 1.0" Const userName_imp="paulo" Const passWord_imp="alfa30" Const dataBaseName_imp="BD_atChamado" Const serverName_imp = "JESUS-2FAB328AB" Sub gpAbreConexao() Dim strConn Set session("ObjConn") = Server.CreateObject("ADODB.Connection") strConn = "Provider=SQLOLEDB;Persist Security Info=False;User ID="&userName_imp&";Password="&passWord_imp&";Initial Catalog="&dataBaseName_imp&";Data Source="&serverName_imp session("ObjConn").ConnectionString = strConn 'On Error Resume Next session("ObjConn").Open session("ObjConn").CommandTimeout=3600 if Err <> 0 Then response.write "<font face=arial size=2 color=#000055>Ocorreu o seguinte Erro ao abrir o banco de dados : </font>" & "<font face=arial size=2 color=#FF0000>" & Err.Description & "</font>" ELSE 'response.write "<font face=arial size=2 color=#000055>conexão efetuado com sucesso : </font>" & "<font face=arial size=2 color=#FF0000>" & Err.Description & "</font>" End if On Error goto 0 Session("ConexaoAberta") = "Sim" End Sub Sub gpFechaConexao() session("ObjConn").close Set session("ObjConn") = Nothing session("ObjConn")="" Session("ConexaoAberta")="Não" End sub %> e: <% Call gpAbreConexao ' Verifica se a conexao foi aberta, caso nao, exibe mensagem e finaliza. If (Session("ConexaoAberta") <> "Sim") or isEmpty(Session("ConexaoAberta")) Then Response.Write "Conexao ainda nao foi aberta." Response.End() End If var_Login = TRIM(Request.Form("txt_login")) var_Senha = TRIM(Request.Form("txt_senha")) 'Response.Write(var_Login) 'Response.Write(var_Senha) strSQL = "SELECT * FROM usuarios WHERE login='" & var_Login & "' AND senha='" & var_Senha & "'" Set rsLogin = session("ObjConn").Execute(strSQL) ' ' If rsLogin.EOF Then Response.Write "Login ou Senha inválida!" 'Response.write "<script>alert('Atenção, login ou senha inválidos!')<script>" Response.AddHeader "Refresh", "1;URL=http://localhost/wapReembolso/wapReembolso/login.asp" Else gpSQL = "SELECT * FROM tbChamado" Session("login") = rsLogin("login") Session("senha") = rsLogin("senha") Session("nome") = rsLogin("nome") Session("temAcesso") = 1 Session("gpSQL") = gpSQL Response.Redirect "http://localhost/wapReembolso/wapReembolso/index2.asp" 'página restrita 'Response.write var_Login & " " 'Response.write var_Senha Call gpFechaConexao() End If %>
  3. Alexandre.Itba

    Operação não permitida quando o objeto está fechado

    Para testar o código e saber onde encontra-se o erro, faça o seguinte: No arquivo Logar.asp, logo abaixo da linha 10, onde tem: Call gpAbreConexao Insira o código: ' Verifica se a conexao foi aberta, caso nao, exibe mensagem e finaliza. If (Session("ConexaoAberta") <> "Sim") or isEmpty(Session("ConexaoAberta")) Then Response.Write "Conexao ainda nao foi aberta." Response.End() End If O arquivo conexaopontoweb.asp é o segundo que você postou, correto? Caso sim, vá até a linha 14 e comente-a ou remova. Depois execute novamente seu sistema e vê qual erro aparece. Posta ae pra gente dar uma olhada depois.
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.