Ir para conteúdo
Fórum Script Brasil

Andre Torres

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre Andre Torres

Andre Torres's Achievements

0

Reputação

  1. Olá Galera, Não sou programador e por isso estou aqui para suplicar ajuda de vocês. Possuo uma loja virtual em ASP + ACCESS e estou com dificuldade de bisbilhotar e implantar o PagSeguro nela. Vamos ao problema. Fui ao Banco e Criei a tabela para a forma de pagamento numero 7 (PagSeguro) e a habilitei. Fiz o arquivo PagSeguro.asp dentro da pasta pagamentos com o seguinte código: <table width="50%" border="0" align="center" cellpadding="1" cellspacing="2"> <form target="pagseguro" action="https://pagseguro.uol.com.br/security/webpagamentos/webpagto.aspx" method="post"> <tr> <td width="100%" height="46" class="TextTahoma11AzulBold"><div align="center"> <input type="hidden" name="email_cobranca" value="suporte@lojamodelo.com.br" /> <input type="hidden" name="tipo" value="CP" /> <input type="hidden" name="moeda" value="BRL" /> <input type="hidden" name="cliente_nome" value="<%=Clientes("Nome")%>"> <input type="hidden" name="cliente_end" value="<%=Clientes("Endereco")%>"> <input type="hidden" name="cliente_bairro" value="<%=Clientes("Bairro")%>"> <input type="hidden" name="cliente_cidade" value="<%=Clientes("Cidade")%>"> <input type="hidden" name="cliente_uf" value="<%=Clientes("Estado")%>"> <input type="hidden" name="cliente_cep" value="<%=Clientes("CEP")%>"> <input type="hidden" name="item_valor_1" value="<%=FormatCurrency(SomaTotal("SomaTotal") + SomaFrete("SomaFrete") + VarValorBase)%>"> <input type="hidden" name="item_descr_1" value="<%=Pedidos("Produto")%>" /> <input type="image" src="https://pagseguro.uol.com.br/Security/Imagens/btnfinalizaBR.jpg" name="submit" alt="Pague com PagSeguro - é rápido, grátis e seguro!" /> </div></td> </tr> </form> </table> Até aí beleza, a página que o cliente escolhe qual forma de pagamento é recibo.asp) que tem o código abaixo: <!--#include file="Includes/Config.asp"--> <link href="Includes/Styles.css" rel="stylesheet" type="text/css"> <% Dim Pedidos Dim Linha Dim VarCliente Dim SomaTotal Dim Frete Dim Regioes Dim Regiao Dim VarAct Dim VarFrete Dim VarMethod Dim Clientes Dim VarPagamento Dim objPagamento Dim objPedidosFinalizados Dim SomaFrete Dim VarValorTotalFinalizado Dim VarValorBase Dim Corpo Dim objPedidos VarAct = Request.QueryString("Act") VarCliente = Session.SessionID VarPagamento = Request.QueryString("Pagamento") VarFrete = 0 Call AbreBanco Set objPagamento = Banco.Execute("SELECT * FROM Pagamentos WHERE Cod = "& VarPagamento &"") Set Pedidos = Banco.Execute("SELECT * FROM Pedidos WHERE Secao = '"& VarCliente &"'") Set Clientes = Banco.Execute("Select * From Clientes Where Cod = "& Pedidos("CodCliente") &"") Set SomaTotal = Banco.Execute("Select SUM(PrecoTotal) AS SomaTotal FROM Pedidos WHERE Secao = '"& VarCliente &"'") Set SomaFrete = Banco.Execute("Select SUM(Frete) AS SomaFrete FROM Pedidos WHERE Secao = '"& VarCliente &"'") VarValorBase = Pedidos("ValorBase") VarValorTotalFinalizado = Replace(Replace(SomaTotal("SomaTotal") + SomaFrete("SomaFrete") + VarValorBase,".",""),",",".") Set objPedidosFinalizados = Banco.Execute("INSERT INTO PedidosFinalizados (Valor, CodCliente, FormaPagamento, CodSecao) VALUES ('"& VarValorTotalFinalizado &"', "& Clientes("Cod") &", "& VarPagamento &", "& VarCliente &")") Set objPedidos = Banco.Execute("SELECT * FROM PedidosFinalizados WHERE CodSecao = '"& VarCliente &"'") Set AltPedidos = Banco.Execute("UPDATE Pedidos SET CodFinalizado = "& objPedidos("Cod") &" WHERE Secao = '"& VarCliente &"'") Corpo = "<link href="& Chr(34) & Local & "Includes/Styles.css"& Chr(34) &" rel="& Chr(34) &"stylesheet"& Chr(34) &" type="& Chr(34) &"text/css"& Chr(34) &">" Corpo = Corpo & "<br><span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &"> Pedido feito no dia: </span><span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &">"& Date() &" </span><span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &">/ Nº do Pedido: </span><span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &"> "& objPedidos("Cod") &"</span><br><br>" Corpo = Corpo & "<span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &"> Dados do Cliente</span><br>" Corpo = Corpo & "<span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &"> Nome do Cliente: </span><span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &"> "& Clientes("Nome") &"<br></span>" Corpo = Corpo & "<span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &"> E-mail do Cliente: </span><span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &"> "& Clientes("Email") &"<br></span>" Corpo = Corpo & "<span class="& Chr(34) &"TextTahoma11Cinza"& Chr(34) &"> Telefone do Cliente: </span><span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &"> ("& Clientes("DDDTelefone") &") "& Clientes("Telefone") &" / ("& Clientes("DDDCelular") &") "& Clientes("Celular") &"</span>" If ComponenteEmail = 1 Then Dim Contato Set Contato = Server.CreateObject("CDONTS.NewMail") Contato.From = Clientes("Nome") & "<"& Clientes("Email") &">" Contato.To = EmailContato Contato.Subject = "Um novo pedido foi feito na - " & NomedaLoja Contato.BodyFormat = 0 Contato.MailFormat = 0 Contato.Body = Corpo Contato.Send Set Contato = Nothing Else Dim Mailer Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = ServerAddress Mailer.FromName = Clientes("Nome") Mailer.FromAddress = Clientes("Email") Mailer.AddRecipient EmailContato, NomedaLoja Mailer.Subject = "Um novo pedido foi feito na - " & NomedaLoja Mailer.BodyText = Corpo Mailer.SendMail Set Mailer = Nothing End If %> <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF"> <tr> <td><!--#include file="Includes/BarraCima.asp"--></td> </tr> <tr> <td> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="176" height="100%" valign="top"><!--#include file="Includes/BarraEsq.asp"--></td> <td width="0" valign="top"> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="9%" align="center"><img src="Imagens/SpacerCima.gif" width="1" height="9"></td> </tr> <%If VarAct = "" Then%> <tr> <td height="20" align="center" bgcolor="<%=FundoTitulo%>"><div align="left"> <span class="TextTahoma11AzulBold">Recibo do Pedido</span></div></td> </tr> <tr> <td height="9%" align="center"> </td> </tr> <tr> <td height="10%" align="center"><table width="64%" border="0" align="center" cellpadding="1" cellspacing="2"> <tr> <td width="100%" class="TextTahoma11AzulBold"><div align="center">Local da entrega </div></td> </tr> <tr> <td class="TextTahoma11Cinza"><div align="center" class="TextTahoma11Cinza"><%=Pedidos("Entrega")%></div></td> </tr> <tr> <td height="6" class="TextTahoma11Cinza"></td> </tr> <tr> <td height="1" bgcolor="e5e5e5" class="TextTahoma11Cinza"></td> </tr> </table></td> </tr> <tr> <td height="19%" align="center"> </td> </tr> <tr> <td height="0" align="center" valign="middle"> <% If Pedidos.EOF Then Response.Write "<center><span class="& Chr(34) &"TextTahoma11CinzaBold"& Chr(34) &"><br>Seu carrinho de compras está vazio.</span></center><br><br>" & Voltar Else %> <table border="0" bgcolor="#FFFFFF"> <tr bgcolor="<%=TabelaBarraEsq%>"> <td width="7%" height="20" align="center"><span class="TextTahoma11CinzaBold">Qtd</span></td> <td height="20"><div align="center"><span class="TextTahoma11CinzaBold">Nome</span></div></td> <td width="15%" height="20"><div align="center"><span class="TextTahoma11CinzaBold">Valor unit.</span></div></td> <td width="16%" height="20" align="center"><div align="center"><span class="TextTahoma11CinzaBold">Sub-Total</span></div></td> </tr> <% Dim VarSubTotal WHILE NOT Pedidos.EOF VarSubTotal = Pedidos("preço") * Pedidos("Quantidade") Dim Produtos Set Produtos = Banco.Execute("Select * From Produtos Where Cod="& Pedidos("CodProduto")) Banco.Execute("Update Produtos Set Estoque='"& Produtos("Estoque") - Pedidos("Quantidade") &"' Where Cod="& Produtos("Cod")) If Linha Then %> <tr bgcolor="<%=FundoCelula1%>"> <% End If : Linha = not Linha %> <td height="20" align="center" class="TextTahoma11Cinza"><a href="MaisProduto.asp?Produto=<%=Pedidos("CodProduto")%>" class="LinkTahoma11Cinza"><%=Pedidos("Quantidade")%></a></td> <td height="20"><span class="TextTahoma11Cinza"> </span><a href="MaisProduto.asp?Produto=<%=Pedidos("CodProduto")%>" class="LinkTahoma11Cinza"><%=Pedidos("Produto")%></a></td> <td height="20"><div align="center"><span class="TextTahoma11Cinza"><%=FormatCurrency(Pedidos("preço"))%></span></div></td> <td height="20" align="center"><div align="right"><span class="TextTahoma11Cinza"><%=FormatCurrency(VarSubTotal)%> </span></div></td> </tr> <% Pedidos.MOVENEXT : WEND %> <tr bgcolor="#FFFFFF"> <td height="6" colspan="4" class="TextTahoma11Cinza"></td> </tr> <tr bgcolor="#FFFFFF"> <td height="1" colspan="4" bgcolor="e5e5e5" class="TextTahoma11Cinza"></td> </tr> <tr bgcolor="#FFFFFF"> <td height="6" colspan="4" class="TextTahoma11Cinza"></td> </tr> <tr bgcolor="#FFFFFF"> <td height="20" colspan="2" class="TextTahoma11Cinza"><div align="right">Valor do frete: <span class="TextTahoma11CinzaBold"></span></div></td> <td height="20" colspan="2"><div align="right"><span class="TextTahoma11Cinza"><%=FormatCurrency(SomaFrete("SomaFrete") + VarValorBase)%></span></div></td> </tr> <tr bgcolor="#FFFFFF"> <td height="20" colspan="2"> <div align="right"><span class="TextTahoma11CinzaBold">Valor total</span></div></td> <td height="20" colspan="2"><div align="right"><span class="TextArial18CinzaBold"><%=FormatCurrency(SomaTotal("SomaTotal") + SomaFrete("SomaFrete") + VarValorBase)%></span></div></td> </tr> <tr bgcolor="#FFFFFF"> <td height="20" colspan="2"><div align="right" class="TextTahoma11Cinza">Forma de Pagamento: </div></td> <td height="20" colspan="2" class="TextTahoma11CinzaBold"><div align="right"><%=objPagamento("Forma")%></div></td> </tr> <tr> <td height="6" colspan="4" class="TextTahoma11Cinza"></td> </tr> <tr> <td height="1" colspan="4" bgcolor="e5e5e5" class="TextTahoma11Cinza"></td> </tr> <tr> <td height="6" colspan="4" class="TextTahoma11Cinza"></td> </tr> </table> <% End If %></td> </tr> <tr> <td height="0" align="center" valign="middle"> </td> </tr> <tr> <td height="0" align="center" valign="middle"> <%If VarPagamento = "1" Then%> <!--#include file="Pagamento/Deposito.asp" --> <%ElseIf VarPagamento = "2" Then%> <!--#include file="Pagamento/BoletoItau.asp" --> <%ElseIf VarPagamento = "3" Then%> <!--#include file="Pagamento/BoletoBradesco.asp" --> <%ElseIf VarPagamento = "4" Then%> <!--#include file="Pagamento/BoletoCaixa.asp" --> <%ElseIf VarPagamento = "5" Then%> <!--#include file="Pagamento/BoletoBB.asp" --> <%ElseIf VarPagamento = "6" Then%> <!--#include file="Pagamento/BoletoReal.asp" --> <%ElseIf VarPagamento = "7" Then%> <!--#include file="Pagamento/PagSeguro.asp" --> <%End If%> </td> </tr> <tr> <td> </td> </tr> <%=LinhaHorizontal%> <tr> <td height="25" align="center" valign="middle"><a href="<%=Local%>" class="LinkTahoma11CinzaBold">Sair e continuar navegando</a></td> </tr> <%=LinhaHorizontal%> <%End If%> </table> </td> <td width="148" height="100%" valign="top"><!--#include file="Includes/BarraDir.asp"--></td> </tr> </table> </td> </tr> <tr> <td><!--#include file="Includes/Rodape.asp"--></td> </tr> </table> <% Banco.Execute("Update Pedidos Set Secao=0 Where Secao = '"&VarCliente&"'") Session.Abandon() Set objPagamento = Nothing Set Pedidos = Nothing Set Clientes = Nothing Set SomaTotal = Nothing Set SomaFrete = Nothing Set objPedidosFinalizados = Nothing Set objPedidos = Nothing Set AltPedidos = Nothing Call FechaBanco %> Notem que o arquivo PagSeguro.asp está em include que se estiver habilitado ele irá aparecer, o que é o caso, porém onde deveria aparecer o botao do pagseguro para enviar via POST os dados, acontece isto: ADODB.Field erro '80020009' BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. /ganhetempo/Recibo.asp, line 0 Alguém pode me dar a solução URGENTEMENTE ??????
×
×
  • Criar Novo...