Erro ASP

AceJustino · Fevereiro 5, 2010

Iae pessoal boa tarde

Estou com um grande problema...tenho uma pagina na intranet onde o funcionario coloca o ligin e senha, e é redireciona para uma outra pagina (venda.asp)

Dentro da equipe de Telemarketing tenho 5 definiçoes de equipes que de 1 á 5 com nomes diferentes.

As equipes de 1 á 4 apos colocarem Login e Senha apresenta o seguinte erro:

" Microsoft OLE DB Provider for ODBC Drivers erro '80040e21'

O driver ODBC não oferece suporte para as propriedades solicitadas.

/venda.asp, line 44 "

Só que acontece uma coisa muito bizarra, a unica equipe q se loga com o MESMO codigo de redirecionamento é a equipe 5!

ja tentei de tudo....ateh onde vão meus conhecimentos. agora estou implorando(rs), para alguem me dar uma força e ajudar a salvar meu trampo.

segue o codigo...(me desculpem se existe uma maneira adequada de inserir o codigo aki)

venda.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% 'Página de formulário e validação para alteração de meta das equipes %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">

	<head>
	
		<title>Sales :: Intranet</title>
		<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
		
		<link rel="stylesheet" type="text/css" href="css/guj.css" />
		
		<script language="javascript" type="text/javascript" src="js/formata_valor.js"></script>
		<script language="javascript" type="text/javascript" src="js/valida_cadastraVenda.js"></script>
		<script type="text/javascript" language="javascript" src="js/menu.js"></script>
		
	</head>

	<body>
	
		<!--#include file="pontua.asp"-->
		<%
		'Verifica se o usuário está logado, se estiver verifica se tem permisão de acesso à pagina
		if (Request.Cookies("logado") = "true") then
			codigo = Request.Cookies("cod_venda")
		else
			Response.Redirect("form_login.asp")
		end if
		
		'Cria a conexão com o banco de dados
		Set cnn = Server.CreateObject("ADODB.Connection")
		cnn.Open "Driver={MySQL ODBC 5.1 Driver}; Server=127.0.0.1; Uid=intranet; Pwd=123456; Database=Intranet"
		Set rs = Server.CreateObject("ADODB.Recordset")
		
		'Pega o nome e a equipe do usuário logado
		nome = Request.Cookies("nome")
		cod_equipe = Request.Cookies("equipe")
		
		'Monta a string sql para acesso as informações de meta, total vendido, dias uteis restantes, meta diária
		sql = "select meta_equipe, meta_dia, (select sum(val_venda) + (select val_vendas from deletados where mes_vendas = Month(Now()) and ano_vendas = Year(Now()) and cod_equipe = " & cod_equipe & ") from venda inner join funcionarios on venda.cod_func = funcionarios.cod_func inner join equipe on funcionarios.cod_equipe = equipe.cod_equipe where Month(venda.data_venda) = Month(Now()) and Year(venda.data_venda) = Year(Now()) and equipe.cod_equipe = " & cod_equipe & ") as vendas, (select sum(val_venda) from venda inner join funcionarios on venda.cod_func = funcionarios.cod_func inner join equipe on funcionarios.cod_equipe = equipe.cod_equipe where data_venda = Date(Now()) and equipe.cod_equipe = " & cod_equipe & ") as total_dia from venda inner join funcionarios on venda.cod_func=funcionarios.cod_func inner join equipe on funcionarios.cod_equipe = equipe.cod_equipe where equipe.cod_equipe = " & cod_equipe & " limit 1"

		'Abre o banco de dados
		rs.Open sql, cnn, 3, 3		
		%>
	
		<!--#include file="menup.asp"-->
		<div id="local">Você está aqui: <a href="index.asp">Principal</a> >> Cadastro de vendas</div><br />
	
	<center>
	
		<%
		'Verifica se algum registro foi encontrado
		if (not rs.EOF) then
		%>
			Meta da equipe: <b>R$<% =pontua(rs("meta_equipe")) %></b>    
			<%
			'Verifica se alguma venda foi realizada esse mês
			if (rs("vendas") > 0) then
			%>
				Total vendido (mês): <b>R$<% =pontua(rs("vendas")) %></b>
			<%
			else
			%>
				Nenhuma venda realizada hoje.<br />
			<%
			end if
			%>
			<br />
			Meta diária: <b>R$<% =pontua(rs("meta_dia")) %></b>    
			<%
			'Verifica se alguma coisa foi vendida no dia
			if (rs("total_dia") > 0) then
			%>
				Total do dia:  <b>R$<% =pontua(rs("total_dia")) %></b>    
			<%
			else
			%>
				Nenhuma venda realizada hoje.    
			<%
			end if
			restante = rs("meta_dia") - rs("total_dia")
			'Verifica se a meta diaria foi alcançada
			if (restante < 0) then
			%>
				R$<b><% =pontua(restante * -1) %></b> de vendas além da meta
			<%
			elseif (restante = 0) then
			%>
				Meta diária alcançada
			<%
			elseif (restante > 0) then
			%>
				Valor restante do dia: <b>R$<% =pontua(restante) %></b>
			<%
			end if
			%>
			
		<%
		else
		%>
			Nenhum venda realisada pela sua equipe até o momento
		<%
		end if
		%>
			
		</b>
		
		<br />
		<a href="venda.asp?cod=<% =codigo %>"><img src="img/reload.png" border="0">Atualizar</a>    
		
		<a href=# onClick="javascript:window.open('altera_senha.asp?cod=<% =codigo %>&cod2=<% =codigo2 %>','','width=800,height=600,top=100,left=100,scrollbars=no,status=no,toolbar=no,location=no,directories=no,menubar=no,resizable=no,fullscreen=no');"><img src="img/gedit-icon.png" width="16" height="16" border="0">ALterar senha</a>    
		
		<a href="altera_cliente.asp"><img src="img/email.png" width="16" height="16" border="0">Alteração de cliente</a>    
		
		<a href="logoff.asp"><img src="img/system-log-out.png" border="0">Sair do sistema</a>
		
		<form method="post" action="cadastra_venda.asp?codigo=<% =Request.Cookies("codigo") %>" name="frm">
		
		    <table width="40%" height="120" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000">
				
				<tr>
					<td bgcolor="#C8D0D4" align="center">
					
						Olá <% =nome %>
		
						<div id="aviso" style="color:#FF0000; font-size:13px">
							
							<%
							'COnfirmações de cadastro de venda, alteração de senha e solicitação de alteração de cliente
							if Session("id") = 2 then
							%>
								Venda cadastrada com sucesso
							<%
								Session.Contents.Remove("id")
							elseif Session("id") = 1 then
							%>
								Senha alterada com sucesso
							<%
								Session.Contents.Remove("id")
							elseif Request.Cookies("aviso") = "01" then
							%>
								Solicitação enviada com sucesso
							<%
								Response.Cookies("aviso") = "00"
								Response.Cookies("aviso").Expires = now()
							end if
							%>
										
						</div>
					
						<table>
							<tr>
								<td>Valor:</td>
								<td><input type="text" name="valor" id="valor" onKeyPress="v_caracter(event, document.getElementById('valor'), 2, document.getElementById('aviso'), document.getElementById('valor'), 10)" maxlength="13" /></td>
							</tr>
							<tr>
								<td>Data:</td>
								<td><input type="text" name="data" id="data" onKeyPress="v_caracter(event, document.getElementById('data'), 1, document.getElementById('aviso'), document.getElementById('valor'), 10)" maxlength="10" value="<% =Date() %>" /></td>
							</tr>
							<tr>
								<td colspan="2" align="center"><input type="button" value="Cadastrar" onClick="valida(document.getElementById('aviso'))" /></td>
							</tr>
						</table>
						
					</td>
				</tr>
			</table>
		
		</form>

	</body>
	
</html>

form_login.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% 'Página com o formulário para o login do usuário %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">

	<head>
	
		<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
		<title>Sales :: Intranet</title>
		
		<script language="javascript" type="text/javascript" src="js/valida_login.js"></script>
		<link rel="stylesheet" type="text/css" href="css/guj.css" />
		
		<script type="text/javascript" language="javascript" src="js/menu.js"></script>

	</head>

	<body>
	
		<%
		'Verifica se o usuário já está logado, se sim redireciona para a página adequada de acorto com o departamento
		if (Request.Cookies("logado") = "true") then
	
			select case Request.Cookies("departamento")
				case "GER"
					Response.Redirect("listagem_venda.asp?cod=" & Request.Cookies("codigo") & "&tip=0&nom=0&mes=0&dia=" & Date() & "&equipe=0")
				case "DIR"
					Response.Redirect("listagem_venda.asp?cod=" & Request.Cookies("codigo") & "&tip=0&nom=0&mes=0&dia=" & Date() & "&equipe=0")
				case "TMKT"
					Response.Redirect("venda.asp")
				case "SUP"
					Response.Redirect("listagem_venda.asp?cod=" & Request.Cookies("codigo") & "&tip=0&nom=0&mes=0&dia=" & Date())
				case "CPD"
					Response.Redirect("menu.asp")
			end select
			
		end if
		%>
		
		<% 'Inclui o menu principal na página %>
		<!--#include file="menup.asp"-->
		<div id="local">Você está aqui: <a href="index.asp">Principal</a> >> Login de usuário</div>
		
		<center>
	
			<form method="post" action="logar.asp" name="frm">
			
				<div style="width:300px; border:solid 1px #000000; background-color:#c8d0d4; padding:15px">
	
					<div id="aviso" style="color:#FF0000; font-size:13px">
					
						<%
						'Verifica possíveis erros ocorridos durante o login
						if (Request.QueryString("erro") = 1) then
						%>
							Usuário e/ou senha inválidos.<br />A partir de agora o usuário é seu ramal.
						<%
						elseif (Request.QueryString("erro") = 2) then
						%>
							Acesso negado. Contate o administrador do sistema para maiores informações.
						<%
						elseif (Request.QueryString("erro") = 3) then
						%>
							Efetuar o login novamente.
						<%
						end if
						%>
						
					</div>
			
					<table>
						<tr>
							<td rowspan="2" valign="top"><img src="img/key.png"></td>
							<td>Usuário:</td>
							<td><input type="text" name="usuario" onKeyPress="valida(event, this, document.getElementById('aviso'))" maxlength="4" /></td>
						</tr>
						<tr>
							<td>Senha:</td>
							<td><input type="password" name="senha" onKeyPress="valida(event, this, document.getElementById('aviso'))" /></td>
						</tr>
						<tr>
						  <td colspan="3" align="center"><input type="submit" value="Logar" /></td>
						</tr>
					</table>
						
				</div>
				
			</form>
			
		</center>

	</body>
	
</html>

Gilberto Jr · Fevereiro 5, 2010

ja tentou mudar a linha 44 para

rs.Open sql, cnn

AceJustino · Fevereiro 5, 2010

ja tentou mudar a linha 44 para
rs.Open sql, cnn

Já tentei cara...sem sucesso!

Gilberto Jr · Fevereiro 5, 2010

Outra coisa, voce ja tentou fazer um arquivo de conexao seperado e dai fazer o include? se quiser eu te mando o codigo.

AceJustino · Fevereiro 5, 2010

Hum pode ser uma boa opção...não tentei isso ainda..!

pode me mandar o codigo pra gente analizar brother...

vlw fico no aguardo.!

Gilberto Jr · Fevereiro 5, 2010

vamo la entao,

cria um arquivo novo e apaga todo o codigo html dele e cola esse la

<%
dim con, caminho
caminho = "E:\home\dominio\dados\nomebancodado.mdb"
sub connect
		set con = server.CreateObject("ADODB.Connection")
		con.connectionstring="driver={Microsoft Access Driver (*.mdb)};Dbq="&caminho
		con.open
end sub
sub disconnect	
	
	set con = nothing
end sub
%>

Salva esse arquivo com um nome tipo config.asp, conexao.asp dai fica o seu critério.

em seguida na sua pagina venda.asp voce faz a inclusão do arquivo.

Observacoes:

1º fiz o include do arquivo config.asp

2º Onde você fazia a conexao com o banco de dados eu uso o call connect que foi definido no arquivo config.asp para abrir o banco.

3º Depois do fechamento da tag </html> no final do arquivo eu usei o call disconnect para desconectar do banco

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% 'Página de formulário e validação para alteração de meta das equipes %>

<!--#include file="config.asp" -->

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">

        <head>
        
                <title>Sales :: Intranet</title>
                <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
                
                <link rel="stylesheet" type="text/css" href="css/guj.css" />
                
                <script language="javascript" type="text/javascript" src="js/formata_valor.js"></script>
                <script language="javascript" type="text/javascript" src="js/valida_cadastraVenda.js"></script>
                <script type="text/javascript" language="javascript" src="js/menu.js"></script>
                
        </head>

        <body>
        
                <!--#include file="pontua.asp"-->
                <%
                'Verifica se o usuário está logado, se estiver verifica se tem permisão de acesso à pagina
                if (Request.Cookies("logado") = "true") then
                        codigo = Request.Cookies("cod_venda")
                else
                        Response.Redirect("form_login.asp")
                end if
                
  				'Abre conexao
				call connect
                
                'Pega o nome e a equipe do usuário logado
                nome = Request.Cookies("nome")
                cod_equipe = Request.Cookies("equipe")
                
                'Monta a string sql para acesso as informações de meta, total vendido, dias uteis restantes, meta diária
                sql = "select meta_equipe, meta_dia, (select sum(val_venda) + (select val_vendas from deletados where mes_vendas = Month(Now()) and ano_vendas = Year(Now()) and cod_equipe = " & cod_equipe & ") from venda inner join funcionarios on venda.cod_func = funcionarios.cod_func inner join equipe on funcionarios.cod_equipe = equipe.cod_equipe where Month(venda.data_venda) = Month(Now()) and Year(venda.data_venda) = Year(Now()) and equipe.cod_equipe = " & cod_equipe & ") as vendas, (select sum(val_venda) from venda inner join funcionarios on venda.cod_func = funcionarios.cod_func inner join equipe on funcionarios.cod_equipe = equipe.cod_equipe where data_venda = Date(Now()) and equipe.cod_equipe = " & cod_equipe & ") as total_dia from venda inner join funcionarios on venda.cod_func=funcionarios.cod_func inner join equipe on funcionarios.cod_equipe = equipe.cod_equipe where equipe.cod_equipe = " & cod_equipe & " limit 1"

                %>
        
                <!--#include file="menup.asp"-->
                <div id="local">Você está aqui: <a href="index.asp">Principal</a> >> Cadastro de vendas</div><br />
        
        <center>
        
                <%
                'Verifica se algum registro foi encontrado
                if (not rs.EOF) then
                %>
                        Meta da equipe: <b>R$<% =pontua(rs("meta_equipe")) %></b>    
                        <%
                        'Verifica se alguma venda foi realizada esse mês
                        if (rs("vendas") > 0) then
                        %>
                                Total vendido (mês): <b>R$<% =pontua(rs("vendas")) %></b>
                        <%
                        else
                        %>
                                Nenhuma venda realizada hoje.<br />
                        <%
                        end if
                        %>
                        <br />
                        Meta diária: <b>R$<% =pontua(rs("meta_dia")) %></b>    
                        <%
                        'Verifica se alguma coisa foi vendida no dia
                        if (rs("total_dia") > 0) then
                        %>
                                Total do dia:  <b>R$<% =pontua(rs("total_dia")) %></b>    
                        <%
                        else
                        %>
                                Nenhuma venda realizada hoje.    
                        <%
                        end if
                        restante = rs("meta_dia") - rs("total_dia")
                        'Verifica se a meta diaria foi alcançada
                        if (restante < 0) then
                        %>
                                R$<b><% =pontua(restante * -1) %></b> de vendas além da meta
                        <%
                        elseif (restante = 0) then
                        %>
                                Meta diária alcançada
                        <%
                        elseif (restante > 0) then
                        %>
                                Valor restante do dia: <b>R$<% =pontua(restante) %></b>
                        <%
                        end if
                        %>
                        
                <%
                else
                %>
                        Nenhum venda realisada pela sua equipe até o momento
                <%
                end if
                %>
                        
                </b>
                
                <br />
                <a href="venda.asp?cod=<% =codigo %>"><img src="img/reload.png" border="0">Atualizar</a>    
                
                <a href=# onclick="javascript:window.open('altera_senha.asp?cod=<% =codigo %>&cod2=<% =codigo2 %>','','width=800,height=600,top=100,left=100,scrollbars=no,status=no,toolbar=no,location=no,directories=no,menubar=no,resizable=no,fullscreen=no');"><img src="img/gedit-icon.png" width="16" height="16" border="0">ALterar senha</a>    
                
                <a href="altera_cliente.asp"><img src="img/email.png" width="16" height="16" border="0">Alteração de cliente</a>    
                
                <a href="logoff.asp"><img src="img/system-log-out.png" border="0">Sair do sistema</a>
                
                <form method="post" action="cadastra_venda.asp?codigo=<% =Request.Cookies("codigo") %>" name="frm">
                
                    <table width="40%" height="120" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000">
                                
                                <tr>
                                        <td bgcolor="#C8D0D4" align="center">
                                        
                                                Olá <% =nome %>
                
                                                <div id="aviso" style="color:#FF0000; font-size:13px">
                                                        
                                                        <%
                                                        'COnfirmações de cadastro de venda, alteração de senha e solicitação de alteração de cliente
                                                        if Session("id") = 2 then
                                                        %>
                                                                Venda cadastrada com sucesso
                                                        <%
                                                                Session.Contents.Remove("id")
                                                        elseif Session("id") = 1 then
                                                        %>
                                                                Senha alterada com sucesso
                                                        <%
                                                                Session.Contents.Remove("id")
                                                        elseif Request.Cookies("aviso") = "01" then
                                                        %>
                                                                Solicitação enviada com sucesso
                                                        <%
                                                                Response.Cookies("aviso") = "00"
                                                                Response.Cookies("aviso").Expires = now()
                                                        end if
                                                        %>
                                                                                
                                                </div>
                                        
                                                <table>
                                                        <tr>
                                                                <td>Valor:</td>
                                                                <td><input type="text" name="valor" id="valor" onkeypress="v_caracter(event, document.getElementById('valor'), 2, document.getElementById('aviso'), document.getElementById('valor'), 10)" maxlength="13" /></td>
                                                        </tr>
                                                        <tr>
                                                                <td>Data:</td>
                                                                <td><input type="text" name="data" id="data" onkeypress="v_caracter(event, document.getElementById('data'), 1, document.getElementById('aviso'), document.getElementById('valor'), 10)" maxlength="10" value="<% =Date() %>" /></td>
                                                        </tr>
                                                        <tr>
                                                                <td colspan="2" align="center"><input type="button" value="Cadastrar" onclick="valida(document.getElementById('aviso'))" /></td>
                                                        </tr>
                                                </table>
                                                
                                        </td>
                                </tr>
                        </table>
                
                </form>

        </body>
        
</html>
<%
	call disconnect
%>

AceJustino · Fevereiro 5, 2010

Ok brother!

Vou testar a opção...vamos ver se rola essa alteração...

logo posto o resultado ....

vlw

xanburzum · Fevereiro 5, 2010

Isso pode acontecer se você usar um objeto ADODB.Recordset adOpenStatic para abrir o Excel, ou usar um conjunto de registros adOpenKeyset para realizar paginação,

Basicamente, certifique-se os métodos / propriedades que você está usando é suportada pelo driver / provedor que você está usando para acessar seus dados.

Se você estiver executando um procedimento armazenado, certifique-se de fazê-lo através do Connection.Execute () método, ao invés de um objeto de comando, e adicionar o seguinte duas linhas de código para o início da procedure, caso esteja usando

SET ANSI_NULLS OFF

SET NOCOUNT ON

verifique também se os MySQL esta corretamente atualizado

Arquivado

Erro ASP

Recommended Posts

AceJustino 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Gilberto Jr 26

Compartilhar este post

Link para o post

Compartilhar em outros sites

AceJustino 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Gilberto Jr 26

Compartilhar este post

Link para o post

Compartilhar em outros sites

AceJustino 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Gilberto Jr 26

Compartilhar este post

Link para o post

Compartilhar em outros sites

AceJustino 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante