ADODB.Field error '80020009'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/minhaloja/inicia_transacao.asp, line 128
por favor me ajudem
<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.3 ' Data: 12/09/06 ' Arquivo: inicia_transacao.asp ' Versão do arquivo: 0.0 ' Data da ultima atualização: 23/08/07 ' '----------------------------------------------------------------------------- ' Licença Código Livre: http://comercio.Locaweb.com.br/gpl/gpl.txt '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#- rodape = "no" navegacaocompra = "fim" page = "inicia_transacao" passo=3 %> <!--#INCLUDE FILE="funcoes/funcoes_grava_transacao.asp" --> <!--#INCLUDE FILE="funcoes/funcoes_cartao.asp" --> <!--#INCLUDE FILE="funcoes/funcoes_usuario.asp" --> <!--#INCLUDE FILE="funcoes/funcoes_endereco.asp" --> <!--#INCLUDE FILE="funcoes/funcoes_uteis.asp" --> <!--#INCLUDE FILE="funcoes/funcoes_mail.asp" --> <!--#INCLUDE FILE="funcoes/funcoes_md5.asp"--> <table height="100%" width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td colspan="3" valign="top" height="30"><!--#INCLUDE FILE="cabecalho.asp" --></td> </tr> <tr> <%If navegacaocompra = "fim" Then%> <td valign="top" height="10%" width="10%" class="TBLlatesquerda"><!--#INCLUDE FILE="menu_poscarrinho.asp" --></td> <%Else%> <td valign="top" height="10%" width="10%" class="TBLlatesquerda"><!--#INCLUDE FILE="menu.asp" --></td> <%End if%> <td valign="top" height="95%"> <% permissao="read" page = "iniciatransacao" readonly = "readonly" If Request.form("acao") = "" Then ' Verifica se o pedido não está sendo refeito com outra forma de pagamento If Session("novoPedido") = "yes" Then ' Resgata a forma de pagamento utilizada na última tentativa forma_pagto = Pega_DadoBanco("Pedidos","forma_pagamento","sessionID","'"&Session("id_transacao")&"'") ' Verifica se a forma ded pagamento seleciona é diferente da última tentativa If Session("forma_pagamento") <> forma_pagto Then ' Zera as sessões Session("novoPedido") = Empty Session("resgistroPedido") = Empty Session("resgistroPedidoItem") = Empty Session("registrado") = Empty Session("codigo_pedido") = Empty End If End If ' Verifica se o número de parcelas está puro If Instr(Request("dados_adicionais"),"|") = 0 And Len(Request("dados_adicionais")) <> 0 Then ' Atualiza o número de parcelas no XML do pedido Call alteraValorAtrib(Application("DiretorioPedidos")&session("id_transacao")&".xml","dados_pedido","num_parcelas",Request("dados_adicionais")) End If 'Resgata a forma de pagamento escolhida sForma_pagamento = pegaValorAtrib(Application("DiretorioPedidos")&session("id_transacao")&".xml","dados_pedido","forma_pagamento") ' Verifica a forma de pagamento escolhida If sForma_pagamento = "Amex" Or sForma_pagamento = "Mastercard" Or sForma_pagamento = "Diners" Or sForma_pagamento = "Visa" Then ' Verifica se o parcelado está disponível para essa forma de pagamento If pegaValorAtrib(Application("XMLMeiosPagamentos"),"configuracao/pagto[@nome_pagto='"&sForma_pagamento&"']","permite_parcelamento") = "sim" Then ' Verifica o tipo de parcelado configurado para essa forma de pagamento If pegaValorAtrib(Application("XMLMeiosPagamentos"),"configuracao/pagto[@nome_pagto='"&sForma_pagamento&"']","juros") = "lojista" Then ' Juros do Lojista ' Formata o número de parcelas(retira o zero à esquerda) If Left(Request("dados_adicionais"),1) = "0" Then nNumParcela = Right(Request("dados_adicionais"),1) Else nNumParcela = Request("dados_adicionais") End If ' Resgata o tipo e valor da taxa da opção de parcelamento escolhida sTipotaxa = pegaValorAtrib(Application("XMLMeiosPagamentos"),"configuracao/pagto[@nome_pagto='"&sForma_pagamento&"']","parc"&nNumParcela) ' Resgata o valor total do pedido currTotalPedido = pegaValorAtrib(Application("DiretorioPedidos")&session("id_transacao")&".xml","dados_pedido","valor_total") ' Verifica o tipo de taxa utilizado no parcelamento escolhido If sTipotaxa = "Desconto" Then ' Desconto nValortaxa = pegaValorAtrib(Application("XMLMeiosPagamentos"),"configuracao/pagto[@nome_pagto='"&sForma_pagamento&"']","taxa_desconto") currValorCalc = calculaValorTaxa(currTotalPedido,nValortaxa,"Desconto") ElseIf sTipotaxa = "Com juros" Then ' Com Juros nValortaxa = pegaValorAtrib(Application("XMLMeiosPagamentos"),"configuracao/pagto[@nome_pagto='"&sForma_pagamento&"']","taxa_juros") currValorCalc = calculaValorTaxa(currTotalPedido,nValortaxa,"Acrescimo") Else ' Sem Juros nValortaxa = 0 End If ' Atualiza o valor total da transação no XML do pedido, caso necessário If currValorCalc <> "" Then Call alteraValorAtrib(Application("DiretorioPedidos")&session("id_transacao")&".xml","dados_pedido","valor_total",currValorCalc) End If ' Atualiza no XML do pedido o tipo e taxa do parcelamento Call alteraValorAtrib(Application("DiretorioPedidos")&session("id_transacao")&".xml","dados_pedido","tipo_taxa_adicional",sTipotaxa) Call alteraValorAtrib(Application("DiretorioPedidos")&session("id_transacao")&".xml","dados_pedido","taxa_adicional",nValortaxa) Else ' Juros do Emissor ' Atualiza no XML do pedido o tipo do parcelamento Call alteraValorAtrib(Application("DiretorioPedidos")&session("id_transacao")&".xml","dados_pedido","tipo_taxa_adicional","Juros do Emissor") End If End If End If 'Grava os dados do pedido no banco de dados Call CarregaGrava_dados_pedido(session("id_transacao"), objXML, objRoot,VarAdicional) End If Set RS_pega_codigo = CreateObject("ADODB.Recordset") Set RS_pega_codigo.ActiveConnection = Conexao RS_pega_codigo.CursorLocation = 3 RS_pega_codigo.CursorType = 0 RS_pega_codigo.LockType = 1 RS_pega_codigo.Open "SELECT TOP 1 codigo_pedido FROM Pedidos WHERE sessionID = '" & session("id_transacao") & "' ORDER BY codigo_pedido DESC", Conexao Session("codigo_pedido") = RS_pega_codigo("codigo_pedido") RS_pega_codigo.Close Set RS_pega_codigo = Nothing %> <table width="100%" border=0 align="center" cellpadding="0" cellspacing="10"> <tr> <td align="center" height="18" valign="middle"><!--#INCLUDE FILE="barra_passoapasso.asp" --></td> </tr> <tr bgcolor="#FFFFFF"> <td align="center" valign="top"> <table width="100%" border=0 align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC"> <% 'Abre conexao ao XML dos meios de pagto. Call abre_ArquivoXML(Application("XMLMeiosPagamentos"),FctobjXML,FctobjRoot) Set configuracao = FctobjRoot.selectSingleNode("configuracao/pagto[@nome_pagto='"&Session("forma_pagamento")&"']") 'Abre conexao ao XML do pedido. Call abre_xmlpedido(session("id_transacao"), objXML, objRoot) Set raiz_dados_pedido = objRoot.selectSingleNode("dados_pedido[@id_transacao="&session("id_transacao")&"]") 'Verifica a forma de pagamento escolhida If Session("forma_pagamento") = "Visa" Then 'Verifica a solução definida para uso da transação (vb script: document.brasil.submit();"><img border=0 src="config/templates/<%=varLang%>/<%=varSkin%>/banner_bb.gif"></a></p> <p align="center">Caso a janela do banco não seja aberta automaticamente, clique na imagem acima para iniciar a transação!</p> </FORM> <script LANGUAGE=javascript> <!-- vpos=window.open('','vpos','toolbar=yes,menubar=yes,resizable=yes,status=no,scrollbars=yes,width=690,height=500'); document.brasil.submit(); //--> </SCRIPT> <% ' Opção de pagamento Itau Shopline Elseif Session("forma_pagamento") = "Itau" Then total = Replace(Replace(raiz_dados_pedido.getAttribute("valor_total"),",",""),".","") data_inicio = CorrigeData(raiz_dados_pedido.getAttribute("inicio_transacao")) vencimento = Formatdatetime(DateAdd("d", configuracao.getAttribute("ItauDiasdeVencimento"), data_inicio), 2) Set objSrvHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP") 'Monta o endereço do sacado varEnd = Session("logradouro_cobranca") & "," & Session("numero_cobranca") 'Monta os dados postados à operadora valores = "meio_pagamento_seguro=ITAU" valores = valores & "&loja=" & configuracao.getAttribute("UsuarioLocaweb") valores = valores & "&pedido=" & Session("codigo_pedido") valores = valores & "&valor=" & total If Trim(Session("razaosocial_cobranca")) <> "" Then valores = valores & "&nome=" & Server.URLEncode(Session("razaosocial_cobranca")) valores = valores & "&cpfcgc=" & Session("cnpj_cobranca") Else valores = valores & "&nome=" & Server.URLEncode(Session("nome_cobranca")) valores = valores & "&cpfcgc=" & Session("cpf_cobranca") End If valores = valores & "&obs=" & Server.URLEncode(configuracao.getAttribute("OBSItau")) valores = valores & "&endereco=" & Server.URLEncode(varEnd) valores = valores & "&bairro=" & Server.URLEncode(Session("bairro_cobranca")) valores = valores & "&cep=" & Session("cep_cobranca") valores = valores & "&cidade=" & Server.URLEncode(Session("cidade_cobranca")) valores = valores & "&estado=" & Session("estado_cobranca") valores = valores & "&vencimento=" & vencimento valores = valores & "&URLRETORNO="&Replace(Application("URLRecibo"),Application("SSLloja"),"") valores = valores & "&acao=" & configuracao.getAttribute("ItauShopLine") objSrvHTTP.open "POST", Application("URLItauShopline"), False objSrvHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" objSrvHTTP.send valores If objSrvHTTP.Status = 200 Then response.write objSrvHTTP.responseText Else Response.write "Error: (" & objSrvHTTP.Status & ") " & objSrvHTTP.statusText End If Set objSrvHTTP = Nothing ' Opção de pagamento Amex Elseif Session("forma_pagamento") = "Amex" Then ' Formata o numero de parcelas If Request("dados_adicionais") = "01" Or Request("dados_adicionais") = "" Then parcelas = "00" Else parcelas = Request("dados_adicionais") End If ' Verifica a cobraça de juros If configuracao.getAttribute("juros") = "emissor" Then ' Juros do Emissor sTipoJuros = "PlanAmex" Else ' Juros do lojista sTipoJuros = "PlanN" End If total = Replace(Replace(raiz_dados_pedido.getAttribute("valor_total"),",",""),".","") 'Grava os dados iniciais da transação no banco de dados Call GravaTransacaoInicialAmex(Session("codigo_pedido"),Request("dados_adicionais"),configuracao.getAttribute("AmexTipodeplano")) %> <pre> <form name="amex" method="POST" action="<%= Application("URLAmex") %>"> <input type="hidden" name="meio_pagamento_seguro" value="AMEX"> <input type="hidden" name="loja" value="<%= configuracao.getAttribute("UsuarioLocaweb") %>"> <input type="hidden" name="MerchTxnRef" value="<%= Session("codigo_pedido") %>"> <input type="hidden" name="valor" value="<%= total %>"> <input type="hidden" name="OrderInfo" value="<%= Session("codigo_pedido") %>"> <input type="hidden" name="Locale" value="<%= configuracao.getAttribute("AmexLocale") %>"> <% If parcelas <> "00" Then %> <input type="hidden" name="parcelas" value="<%= parcelas%>"> <input type="hidden" name="PaymentPlan" value="<%= configuracao.getAttribute("AmexTipodeplano") %>"> <% End If %> <input type="hidden" name="ReturnURL" value="<%= Application("URLRecibo") %>"> <script LANGUAGE=javascript> <!-- document.amex.submit(); //--> </SCRIPT> </form> </pre> <% ' Opção de pagamento Bradesco Elseif Session("forma_pagamento") = "Bradesco" Then 'Grava os dados iniciais da transação no banco de dados Call GravaTransacaoInicialBradesco(Session("codigo_pedido")) ' Muda para a página de pagamento enviando dados da compra ' Os dados enviados são obrigatórios VarMetodoPag = Request("metodo_pag") ' Redireciona a Scopus conforme a opção de pagamento selecionada If VarMetodoPag = "TRANSFER" Then If configuracao.getAttribute("BradescoAmbiente") = "TESTE" Then varURLBradescoTransfer = Application("URLTESTEBradescoTransfer") Else varURLBradescoTransfer = Application("URLPRODBradescoTransfer") End If ' transferencia entre contas Response.Redirect varURLBradescoTransfer & configuracao.getAttribute("BradescoLoja") & "/prepara_pagto.asp?merchantid=" & configuracao.getAttribute("BradescoLoja") & "&orderid=" & Session("codigo_pedido") ElseIf VarMetodoPag = "CC" Then If configuracao.getAttribute("BradescoAmbiente") = "TESTE" Then varURLBradescoPagFacil = Application("URLTESTEBradescoPagFacil") Else varURLBradescoPagFacil = Application("URLPRODBradescoPagFacil") End If ' pagamento facil Response.Redirect varURLBradescoPagFacil & configuracao.getAttribute("BradescoLoja") & "/prepara_pagto.asp?merchantid=" & configuracao.getAttribute("BradescoLoja") & "&orderid=" & Session("codigo_pedido") ElseIf VarMetodoPag = "FINANCIAMENTO" Then If configuracao.getAttribute("BradescoAmbiente") = "TESTE" Then varURLBradescoFinanciamento = Application("URLTESTEBradescoFinanciamento") Else varURLBradescoFinanciamento = Application("URLPRODBradescoFinanciamento") End If ' financiamento Response.Redirect varURLBradescoFinanciamento & configuracao.getAttribute("BradescoLoja") & "/prepara_pagto.asp?merchantid=" & configuracao.getAttribute("BradescoLoja") & "&orderid=" & Session("codigo_pedido") End If ' Opção de pagamento ABNCDC Elseif Session("forma_pagamento") = "ABNCDC" Then 'Resgata os valores adicionais e associa as respectivas variáveis VARdados_adicionais = split(Request("dados_adicionais"),"|") VARabn_formapgto = VARdados_adicionais(0) VARabn_garantia = VARdados_adicionais(1) VARabn_entrada = VARdados_adicionais(2) VARabn_vencto = VARdados_adicionais(3) %> <form method="POST" name="frmABNCDC" action="<%= Application("URLABNCDC")%>"> <input name="VAR01" type="hidden" value="<%= configuracao.getAttribute("VAR01")%>"> <input name="VAR02" type="hidden" value="<%= configuracao.getAttribute("VAR02")%>"> <input name="VAR03" type="hidden" value="<%= Application("URLRecibo") & "?codigo_pedido=" & Session("codigo_pedido") %>"> <input name="VAR04" type="hidden" value="<%= Session("codigo_pedido")%>"> <input name="VAR05" type="hidden" value="<%= VARabn_formapgto%>"> <% If Session("razaosocial_cobranca") <> "" And Session("cnpj_cobranca") <> "" Then %> <input name="VAR06" type="hidden" value="J"> <input name="VAR07" type="hidden" value="<%= Session("razaosocial_cobranca")%>"> <input name="VAR09" type="hidden" value="<%= Session("cnpj_cobranca")%>"> <% Else %> <input name="VAR06" type="hidden" value="F"> <input name="VAR07" type="hidden" value="<%= Session("nome_cobranca")%>"> <input name="VAR09" type="hidden" value="<%= Session("cpf_cobranca")%>"> <% End If %> <input name="VAR08" type="hidden" value="<%= Session("user_id")%>"> <input name="VAR21" type="hidden" value="<%= configuracao.getAttribute("VAR21")%>"> <% If VARabn_vencto <> "" Then %> <input name="VAR23" type="hidden" value="<%= VARabn_vencto%>"> <% End If %> <input name="VAR22" type="hidden" value="<%= raiz_dados_pedido.getAttribute("valor_total")%>"> <input name="VAR26" type="hidden" value="<%= VARabn_garantia%>"> <input name="VAR27" type="hidden" value="Simulação de financiamento de compra"> <% If VARabn_entrada <> "" Then %> <input name="VAR28" type="hidden" value="<%= VARabn_entrada%>"> <% End If %> </form> <script LANGUAGE=javascript> <!-- document.frmABNCDC.submit(); //--> </SCRIPT> <% End if %> </td> </tr> <% Set raiz_dados_pedido = Nothing 'Fecha conexao ao XML do pedido. Call fecha_xmlpedido(session("id_transacao")) 'Fecha conexao ao XML dos meios de pagto. Call fecha_ArquivoXML(Application("XMLMeiosPagamentos"),FctobjXML,FctobjRoot) %> </table> </td> </tr> <tr bgcolor="#FFFFFF"> <% IF Session("cep_entrega") <> "" THEN %> <td height="25" align="center" bgcolor="#EAEAEA" disabled><B><%=Application("InitTxtTitDadosCobranca")%></B></td> <% ELSE %> <td height="25" align="center" bgcolor="#EAEAEA" disabled><B><%=Application("InitTxtTitDadosCobrancaEntrega")%></B></td> <% END IF %> </tr> <tr bgcolor="#FFFFFF"> <td align="center" valign="top"> <table width="100%" border=0 align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC"> <tr bgcolor="#EFEFEF"> <td align="center"><%Call Mostra_Endereco("cobranca")%></td> </tr> </table> </td> </tr> <script> checkTipCad('cobranca'); </script> <% IF Session("cep_entrega") <> "" THEN %> <tr bgcolor="#FFFFFF"> <td height="25" align="center" bgcolor="#EAEAEA" disabled><B><%=Application("InitTxtTitDadosEntrega")%></B></td> </tr> <tr bgcolor="#FFFFFF"> <td align="center" valign="top"> <table width="100%" border=0 align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC"> <tr bgcolor="#EFEFEF"> <td align="center"><%Call Mostra_Endereco("entrega")%></td> </tr> </table> </td> </tr> <script> checkTipCad('entrega'); </script> <% END IF %> </table> </form> </td> <td valign="top" height="10%" width="10%" class="TBLlatdireita"><!--#INCLUDE FILE="lateral_servicos.asp" --></td> </tr> <tr> <td colspan="3" valign="top"><!--#INCLUDE FILE="rodape.htm" --></td> </tr> </table>