Ir para conteúdo
Fórum Script Brasil

Carlos Munhoz

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    1

  • Registro em

  • Última visita

Sobre Carlos Munhoz

Carlos Munhoz's Achievements

0

Reputação

  1. Carlos Munhoz

    Error 800a000d

    pergunta respondeu ao Coxinha de Carlos Munhoz em ASP

    Ola pessoal, direto do tunel do tempo... sou meio leigo neste assunto, porem preciso resolver isso... Estou com este problema e não consigo resolvel, alguém pode me ajudar? Está me retornando este erro: Erro de tempo de execução do Microsoft VBScript erro '800a000d' Tipos incompatíveis: 'abre_conexao' /painelCtrl/ADM_check_usuario.asp, line 20 ______________________ Meu código está assim: <% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# %> <!--#INCLUDE FILE="funcoes/ADM_funcoes_pedidos.asp"--> <!--#INCLUDE FILE="../funcoes/funcoes_mail.asp"--> <!--#INCLUDE FILE="../funcoes/funcoes.asp" --> <!--#INCLUDE FILE="../funcoes/funcoes_valida.asp" --> <% 'Carrega a configuração dos caminhos a serem usuados na Loja Call identifica_caminhos() Call Valida_Request() varLang = Application("varLang") varSkin = "default" 'Abre o banco de dados linha 20 Call abre_conexao(conexao) If request("alterar") <> "" And Session("StatusSenha") = "inicial" Then Conexao.execute "UPDATE Usuarios_admin SET chave_admin ='"& Request.Form("senha") &"', status='0' WHERE user_id_admin = '" & request("usuario") & "'" Session("StatusSenha") = "" End If If Request.Form("senha") <> "" or Request("usuario") <> "" Then senha = Request.Form("senha") Set RS_pass = Server.CreateObject("ADODB.Recordset") SQL = " SELECT user_id_admin, nome_usuario, email_usuario, ddd_usuario, fone_usuario, chave_admin, perfil_usuario, status FROM Usuarios_admin WHERE user_id_admin='"&Request("usuario")&"' and status <> 1 " RS_pass.Open SQL,Conexao,3,3 If RS_pass.Eof Then RS_pass.Close Conexao.Close set RS_pass = nothing set Conexao = nothing msgLogin = "?msgLogin=" & Server.URLEncode("USUÁRIO NÃO CADASTRADO.") Response.Redirect "default.asp" & msgLogin Else acao = request("acao") If (acao = "esquecisenha") Then envia_senha = Envia_mail_senha(Request("usuario"),"admin",adicional) msgLogin = "?msgLogin=" & Server.URLEncode("SENHA ENVIADA COM SUCESSO PARA O E-MAIL CADASTRADO.") If request("url_redirect") <> "" Then Response.Redirect request("url_redirect") Else Response.Redirect "default.asp" & msgLogin End if response.end End If End If If Request("usuario") = RS_pass("user_id_admin") and senha = RS_pass("chave_admin") then session("nome_usuario") = RS_pass("nome_usuario") session("perfil_usuario") = RS_pass("perfil_usuario") session("LogadoAdmin") = "LogadoAdmin" session("usuario_admin") = RS_pass("user_id_admin") 'Verifica se a senha do usuário é inicial If RS_pass("status") = "2" Then Session("StatusSenha") = "inicial" End if Else msgLogin = "?msgLogin=" & Server.URLEncode("DADOS INVÁLIDOS.") Response.Redirect "default.asp" & msgLogin End if RS_pass.Close set RS_pass = nothing End If 'Destroi objeto Set oEncryptor = Nothing 'Fecha o banco de dados Call Fecha_conexao If Session("StatusSenha") = "inicial" Then %> <HTML> <HEAD> <TITLE> <%=Application("NomeLoja")%> </TITLE> </HEAD> <body bgcolor="#EFEFEF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <table width="778" height="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF"> <tr> <td width="1" bgcolor="#CCCCCC"><img src="images/regua1x1.gif" height="1"></td> <td valign="top"> <!--##################################################################################--> <table width="778" height="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="45"><!--#INCLUDE FILE="ADM_layout_inicio.asp"--></td> </tr> <tr> <td height="1" bgcolor="#CCCCCC"><img src="images/regua1x1.gif" height="1"></td> </tr> <tr> <td width="100%" bgcolor="#FFFFFF" valign="top" style="padding:10px;" align="center"> <!--##################################################################################--> <table width="100%" border="0" cellpadding="4" cellspacing="0" bgcolor="#f9f9f9"> <tr> <td colspan="2"><font color="#666666"> &lt;script type="text/javascript"> var d=new Date() var weekday=new Array("Domingo","Segunda","Terça","Quarta","Quinta","Sexta","Sábado") var monthname=new Array("Janeiro","Fevereiro","Março","Abril","Março","Junho","Julho","Agosto","Setembro","Outubro","Novembro","Dezembro") document.write(weekday[d.getDay()] + ", ") document.write(d.getDate() + " de ") document.write(monthname[d.getMonth()] + " de ") document.write(d.getFullYear()) </script></font></td> <td width="32%"><font color="#666666"><b>IP de acesso: </b><%= Request.ServerVariables("REMOTE_ADDR")%></font></td> </tr> <tr> <td width="6%"><img src="images/locked.gif"></td> <td colspan="2" vAlign="bottom"><span class="TituloLoja"><font color="#333333">Prezado Administrador, seja bem vindo!</font></span></td> </tr> </table> <br> <table width="70%" border="0" cellPadding="4" cellSpacing="1" class="BordaTabela"> <form name="AlteraSenha" onSubmit="return valida_senha(this)" method="post"> <tr class="Linha2Tabela"> <td colspan="2" height="60"><div align="justify">Para ter acesso às funcionalidades de seu usuário será necessário cadastrar uma nova senha, para isso utlize o formulário abaixo.</div></td> </tr> <tr class="Linha2Tabela"> <td align="right">Usuário:</td> <input type="hidden" name="usuario" value="<%=session("usuario_admin")%>"> <input type="hidden" name="alterar" value="sim"> <td align="left"><B><%=session("usuario_admin")%></td> </tr> <tr class="Linha2Tabela"> <td align="right">Nova senha:</td> <td align="left"><input type="PASSWORD" name="senha" class="FORMbox"></td> </tr> <tr class="Linha2Tabela"> <td align="right">Redigite senha:</td> <td align="left"><input type="PASSWORD" name="senha2" class="FORMbox"></td> </tr> <tr class="Linha3Tabela"> <td colspan="2" align="center"><input type="submit" name="Submit" value="Enviar" class="bttn1"></td> </tr> </form> </table> <!--##################################################################################--> </td> </tr> <tr> <td height="1" bgcolor="#CCCCCC"><img src="images/regua1x1.gif" height="1"></td> </tr> <tr> <td align="center" height="20" bgcolor="#F2F2F2"><!--#INCLUDE FILE="ADM_layout_termino.asp"--></td> </tr> </table> <!--##################################################################################--> </td> <td width="1" bgcolor="#CCCCCC"><img src="images/regua1x1.gif" height="1"></td> </tr> </table> </BODY> </HTML> <% Else 'Registra log de acesso do usuario Call RegistraLog() Response.redirect "adm_home.asp" End if %> ____________________________________________ Seria aqui o erro mesmo?
×
×
  • Criar Novo...