Jump to content

Martinsrj

Members
  • Content count

    527
  • Joined

  • Last visited

Community Reputation

0 Comum

2 Followers

About Martinsrj

  • Rank
    Servo de Cristo
  • Birthday 01/18/1980

Informações Pessoais

  • Sexo
    Masculino
  1. Olá Alexandre, boa noite! Realizei o procedimento que você mencionou. Segue o código: conexaopontoweb.asp <% '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 ' 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 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 %> logar.asp: <% 'Call gpAbreConexao var_Login = TRIM(Request.Form("txt_login")) var_Senha = TRIM(Request.Form("txt_senha")) Response.Write(var_Login) Response.Write(var_Senha) Response.End() '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 & "<br>" ' 'Response.write var_Senha ' 'Call gpFechaConexao() ' 'End If %> Continua dando esse 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: ADODB.Connection (0x800A0E78) Operação não permitida quando o objeto está fechado. /wapReembolso/logar.asp, line 17 Tipo de navegador: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; GTB6.4; InfoPath.2; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729; OfficeLiveConnector.1.4; OfficeLivePatch.1.3; AskTB5.6) Acredito que seja o problema so meu IIS, pois no meu trabalho funciona corretamente. A questão é, como resolver o problema do IIS? Abraços.
  2. Vou fazer o teste quando chegar em casa. Acredito que o problema pode ser até mesmo o IIS, pois comentei todas as linhas e dei um response.write nas variaveis do campo login e senha, da o mesmo erro. Olá Hargon, boa noite! Coloquei agora a noite as duas paginas no site do pastebin, segue o link da pagina da conexao com o banco: http://pastebin.com/EQSPkrG3 Abaixo segue verificar a situação do login: http://pastebin.com/BQ9u2LGJ Obs.: o segundo link está praticamento todo comentado e aparece o mesmo erro: Vejo com isso que o erro não está no SQL Server. Alguem como posso reparar o IIS? :(
  3. Olá pessoal, boa noite! Desinstalei o SQLServer 2005 e instalei o 2008 e continua dando o mesmo erro. Abaixo segue o sumario da instalação que fiz do SQL Server 2008: Overall summary: Final result: Passed Exit code (Decimal): 0 Exit message: Passed Start time: 2010-05-09 16:37:16 End time: 2010-05-09 17:01:13 Requested action: Install Machine Properties: Machine name: JESUS-2FAB328AB Machine processor count: 1 OS version: Windows XP OS service pack: Service Pack 3 OS region: United States OS language: Português (Brasil) OS architecture: x86 Process architecture: 32 Bit OS clustered: No Product features discovered: Product Instance Instance ID Feature Language Edition Version Clustered Package properties: Description: SQL Server Database Services 2008 R2 ProductName: SQL Server 2008 R2 Type: RTM Version: 10 SPLevel: 0 Installation location: d:\d7fae86ad07c07bb5bcd96ae6ce251f0\x86\setup\ Installation edition: EXPRESS_ADVANCED User Input Settings: ACTION: Install ADDCURRENTUSERASSQLADMIN: True AGTSVCACCOUNT: AUTORIDADE NT\NETWORK SERVICE AGTSVCPASSWORD: ***** AGTSVCSTARTUPTYPE: Disabled ASBACKUPDIR: Backup ASCOLLATION: Latin1_General_CI_AS ASCONFIGDIR: Config ASDATADIR: Data ASDOMAINGROUP: <empty> ASLOGDIR: Log ASPROVIDERMSOLAP: 1 ASSVCACCOUNT: <empty> ASSVCPASSWORD: ***** ASSVCSTARTUPTYPE: Automatic ASSYSADMINACCOUNTS: <empty> ASTEMPDIR: Temp BROWSERSVCSTARTUPTYPE: Disabled CONFIGURATIONFILE: CUSOURCE: ENABLERANU: True ENU: True ERRORREPORTING: False FARMACCOUNT: <empty> FARMADMINPORT: 0 FARMPASSWORD: ***** FEATURES: SQLENGINE,REPLICATION,SSMS,SNAC_SDK FILESTREAMLEVEL: 0 FILESTREAMSHARENAME: <empty> FTSVCACCOUNT: <empty> FTSVCPASSWORD: ***** HELP: False IACCEPTSQLSERVERLICENSETERMS: False INDICATEPROGRESS: False INSTALLSHAREDDIR: C:\Arquivos de programas\Microsoft SQL Server\ INSTALLSHAREDWOWDIR: C:\Arquivos de programas\Microsoft SQL Server\ INSTALLSQLDATADIR: <empty> INSTANCEDIR: C:\Arquivos de programas\Microsoft SQL Server\ INSTANCEID: SQLServer2008 INSTANCENAME: SQLSERVER2008 ISSVCACCOUNT: NT AUTHORITY\NetworkService ISSVCPASSWORD: ***** ISSVCSTARTUPTYPE: Automatic NPENABLED: 0 PASSPHRASE: ***** PCUSOURCE: PID: ***** QUIET: False QUIETSIMPLE: False ROLE: AllFeatures_WithDefaults RSINSTALLMODE: FilesOnlyMode RSSVCACCOUNT: <empty> RSSVCPASSWORD: ***** RSSVCSTARTUPTYPE: Automatic SAPWD: ***** SECURITYMODE: SQL SQLBACKUPDIR: <empty> SQLCOLLATION: Latin1_General_CI_AS SQLSVCACCOUNT: AUTORIDADE NT\SYSTEM SQLSVCPASSWORD: ***** SQLSVCSTARTUPTYPE: Automatic SQLSYSADMINACCOUNTS: JESUS-2FAB328AB\Paulo Martins SQLTEMPDBDIR: <empty> SQLTEMPDBLOGDIR: <empty> SQLUSERDBDIR: <empty> SQLUSERDBLOGDIR: <empty> SQMREPORTING: True TCPENABLED: 0 UIMODE: AutoAdvance X86: False Configuration file: C:\Arquivos de programas\Microsoft SQL Server\100\Setup Bootstrap\Log\20100509_163421\ConfigurationFile.ini Detailed results: Feature: Database Engine Services Status: Passed MSI status: Passed Configuration status: Passed Feature: SQL Client Connectivity SDK Status: Passed MSI status: Passed Configuration status: Passed Feature: SQL Server Replication Status: Passed MSI status: Passed Configuration status: Passed Feature: Management Tools - Basic Status: Passed MSI status: Passed Configuration status: Passed Rules with failures: Global rules: Scenario specific rules: Rules report file: C:\Arquivos de programas\Microsoft SQL Server\100\Setup Bootstrap\Log\20100509_163421\SystemConfigurationCheck_Report.htm
  4. Olá xanburzum, boa tarde! Tentei instalar essa versão: Microsoft Data Access Components (MDAC) 2.8, mas não consegui instalar dando a seguinte mensagem de erro: http://uploaddeimagens.com.br/imagem/index/mdac.JPG Cliquei em detalhes da imagem acima e aparece isso: http://uploaddeimagens.com.br/imagem/ver/detalhemdac.JPG Abaixo eu coloquei sobre o sql server instalado na minha maquina: Microsoft SQL Server Management Studio Express: 9.00.2047.00 Microsoft Data Access Components (MDAC): 2000.085.1132.00 (xpsp.080413-0852) Microsoft MSXML: 2.6 3.0 5.0 6.0 Microsoft Internet Explorer: 8.0.6001.18702 Microsoft .NET Framework: 2.0.50727.3603 Operating System: 5.1.2600 Abraços.
  5. Olá pessoal, bom dia! Tinha uma aplicação funcionando no meu micro normalmente, após a formatação do micro deixou de funcionar. Agora quando tento logar no sistema da esse erro: Tipo de erro: ADODB.Connection (0x800A0E78) Operação não permitida quando o objeto está fechado. /wapReembolso/logar.asp, line 17 Porem no proprio sql server fiz um teste de consulta incluido a clausula where está funcionando dessa forma conforme a imagem abaixo: http://uploaddeimagens.com.br/imagem/ver/sqlserver.JPG Abaixo segue o meu código: logar.asp <% '-- Retirar do internet explorer o cache!!! Response.Expiresabsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" %> <!--#Include file="conexaopontoweb.asp"--> <% Call gpAbreConexao var_Login = TRIM(Request.Form("txt_login")) var_Senha = TRIM(Request.Form("txt_senha")) strSQL = "SELECT * FROM BD_atChamado.dbo.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 & "<br>" 'Response.write var_Senha Call gpFechaConexao() End If %> Aqui segue a pagina da conexao com o banco: <% Const gpVersaoSistema = "Versão: 1.0" Const userName_imp="paulo" Const passWord_imp="alfaω!@#" Const dataBaseName_imp="BD_atChamado" Const serverName_imp = "JESUS-2FAB328AB\SQLEXPRESS" 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 BD Ponto Web : </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 %>
×

Important Information

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