Ir para conteúdo
Fórum Script Brasil
  • 0

Problema simples mas ta foda !

Eric de S.

Perguntado por Eric de S.,

 Share

Pergunta

Eric de S.

Eric de S.

Postado
Postado (editado)

Olá trabalho em um site de bolsas na internet (e-commerce) e estou com problemas com o conteúdo asp, esta ocorrendo um erro na programação dentro da área de pedidos (as compras dos clientes no site) e não sei como identificá-lo me aparece o seguinte erro:

error '80020009'

/adm/pedidos.asp, line 149

" Na linhas 149 esta o codigo total_final=ccur(rsttt2("frete"))+ccur(tot_vlr)

Falei com o meu chefe e ele me falou para Analisar o código e descobrir o erro disse que é a soma do valor das bolsas e o frete. É para eu ver qual das duas esta com erro imprimindo na pagina o valor de cada response.write(variável)

Não entendi nada do que ele falou pois não manjo absolutamente nada de asp !!!!! Preciso de alguém que me de uma grande força nisso se não amanha vou perder o emprego...

Anexei o código da pagina pedidos.asp , por favor, se alguém me puder me dar um força agradeço mtoooo... Meu trampo depende disso...

<!-- #include file="include/conexao.inc"-->
<!-- #include file="include/funcoes.inc"-->
<%
if Request.QueryString("act")="logout" then
    Session("USER")=""
    Session.Abandon()
end if
%>
<%
if request.form("Atualizar")="Atualizar" then
    sqlxxx="update t_entrega set Status="+cstr(Request.Form("Status"))
    IF len(request.form("Frete"))>3 then
        sqlxxx=sqlxxx+" ,Frete=CONVERT(money,'"+CSTR(replace(request.form("Frete"),",","."))+"') "
    end if
    sqlxxx=sqlxxx+" where pedido="+cstr(request.QueryString("ped"))

    set rstmp=conexao.execute(sqlxxx)
    set rstmp=nothing
    atu=1
end if
%>
<html>
<head>
<meta HTTP-EQUIV="Pragma" Content="no-cache">
<title>KEO'S Bolsas e Acessórios</title>
<style type="text/css">
<!--
.style1 {color: #FF0000}
td.ped2 {border-left: 1px solid #999999; border-bottom: 1px  solid #999999;}
-->
</style>
</head>
&lt;script language="javascript" src="scripts/funcoes.js"></script>
&lt;script language="javascript">
function janela22(lnk,x,y)
 {
  window.open(lnk,"1",'width='+x+',height='+y+',scrollbars');
 }</script>
<link href="SCRIPTS/LINKS.CSS" rel="stylesheet" type="text/css" />
<body bgcolor=#ffffff topmargin="0" leftmargin="0"><font class="txt">
<div align="center">
<%if session("USER")<>"" then%>
<table width="95%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <th width="130" align="left" valign="top" scope="col"><font class="txt">
      <table cellpadding="2" cellspacing="10">
        <tr bgcolor="#D9FFDC">
          <td height="50" bgcolor="#F1D9FF"><a href="default.asp" class=lnk>Ol&aacute; <%=Session("usr_nome")%>,<br>
            Seja Bem Vindo! </a></td>
        </tr>
        <tr>
          <td height="50" bgcolor="#D9E7FF"><div align="center"><a href=clientes.asp class=adm>Clientes</a></div></td>
        </tr>
        <tr>
          <td height="50" bgcolor="#D9E7FF"><div align="center"><a href=cores.asp class=adm>Cores</a></div></td>
        </tr>
        <tr>
          <td height="50" bgcolor="#D9E7FF"><div align="center"><a href=Enquete.asp class=adm>Enquete</a></div></td>
        </tr>
        <tr>
          <td height="50" bgcolor="#D9E7FF"><div align="center"><a href=Fornecedores.asp class=adm>Fornecedores</a></div></td>
        </tr>
        <tr>
          <td height="50" bgcolor="#D9E7FF"><div align="center"><a href=Material.asp class=adm>Material</a></div></td>
        </tr>
        <tr>
          <td height="50" bgcolor="#D9E7FF"><div align="center"><a href=Produto.asp class=adm>Produto</a></div></td>
        </tr>
        <tr>
          <td height="50" bgcolor="#D9E7FF"><div align="center"><a href=Sexo.asp class=adm>Sexo</a></div></td>
        </tr>
        <tr>
          <td height="50" bgcolor="#D9E7FF"><div align="center"><a href=Tamanho.asp class=adm>Tamanho</a></div></td>
        </tr>
        <tr>
          <td height="50" bgcolor="#D9E7FF"><div align="center"><a href=Tipo.asp class=adm>Tipo</a></div></td>
        </tr>
        <tr>
          <td height="50" bgcolor="#D9E7FF"><div align="center"><a href=users.asp class=adm>Usu&aacute;rios</a></div></td>
        </tr>
        <tr>
          <td height="50" bgcolor="#D9E7FF"><div align="center"><a href=pedidos.asp class=adm>Pedidos</a></div></td>
        </tr>
        <tr bgcolor="#FFFFCC">
          <td height="50"><div align="center"><a href=publicidade.asp class=adm>Publicidade</a></div></td>
        </tr>
        <tr>
          <td height="50" align="center" valign="middle" bgcolor="#CCCCCC"><div align="center"><a href=estoque.asp class=adm>Espelhar Estoque </a></div></td>
        </tr>
        <tr>
          <td height="50" bgcolor="#FEEBDE"><div align="center"><a href=default.asp?act=logout class=adm>&gt;&gt;...SAIR...&lt;&lt;</a></div></td>
        </tr>
      </table>
    </font></th>
    <th align="center" valign="top" scope="col"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <th height="30" scope="col">Pedidos
          <%if Request.QueryString("act")="del" then Response.write(" - Exluir Pedido") %><%if Request.QueryString("act")="edt" then Response.write(" - Editar STATUS do Pedido") %><%if atu=1 then%><font class=txt_v><br><Br>PEDIDO ATUALIZADO COM SUCESSO!!!</font><%end if%></th>
      </tr>
<%if Request.QueryString("act")="" and Request.QueryString("id")="" then%>
      <tr>
        <th scope="col"><table width="95%" border="0" cellspacing="0" cellpadding="0">
                  <tr>
            <td width="50" height="20" align="left" valign="middle" ><font class=preço>Pedido</font></td>
            <td height="20" align="center" valign="middle" ><font class=preço>Cliente</font></td>
            <td height="20" align="center" valign="middle"><font class=preço>E-mail do Cliente</font></td>
            <td height="20" align="center" valign="middle"><font class=preço>Qtde Total </font></td>
            <td height="20" align="center" valign="middle" bgcolor="#FBF2FF"><font class=preço>Valor Produtos </font></td>
            <td align="center" valign="middle" bgcolor="#FBF2FF"><font class=preço>Valor Frete </font></td>
            <td width="120" align="center" valign="middle"><font class=preço>Data Fechamento </font></td>
            <td width="100" align="center" valign="middle"><font class=preço>STATUS</font></td>
            <td width="80" align="center" valign="middle" bgcolor="#FFECEC"><font class=preço>TOTAL FINAL </font></td>
            <td width="30"><font class=preço>Edt</font></td>
            <td width="30" height="20"><font class=preço>Ver</font></td>
            <td width="30" height="20" align="center"><font class=preço>Del</font></td>
          </tr>

        <%
        sql_tmp="select pedido, data_fechado, cliente from t_pedido group by pedido, data_fechado,cliente"
        set rs2=conexao.execute(sql_tmp)

        do while not rs2.eof

            sql= "select * from t_pedido where pedido="+cstr(rs2("pedido"))
            set rs=conexao.execute(sql)

            tot_vlr=ccur(0)
            tot_qtd=0

            do while not rs.eof
                sql= "select * from t_produto where ref_keos="+cstr(right(rs("produto"),5))
                set rs3=conexao.execute(sql)

                if contar(rs3)>0 then
                    tot_vlr=tot_vlr+(ccur(rs3("preco_a"))*cint(rs("qtde")))
                    tot_qtd=tot_qtd+cint(rs("qtde"))
                end if
                rs.movenext
            loop

            sql= "select * from t_clientes where id="+cstr(rs2("cliente"))
            set rs=conexao.execute(sql)
            cliente=rs("nome")
            email=rs("Email")

            sql= "select Frete,* from t_Entrega where pedido="+cstr(rs2("pedido"))
            set rsttt2=conexao.execute(sql)

            total_final=ccur(rsttt2("frete"))+ccur(tot_vlr)


            if r=1 then
                bg="#E3F9F7"
                r=0
            else
                bg="#ffffff"
                r=1
            end if

        %>
          <tr bgcolor=<%=bg%>>
            <td width="50" height="20" align="left" valign="middle" bgcolor=<%=bg%>><font class=txt><%=rs2("pedido")%></font></td>
             <td height="20" align="center" valign="middle" bgcolor=<%=bg%>><a href=clientes.asp?act=view&id=<%=rs2("cliente")%> class=lnk><%=cliente%></a></td>
            <td height="20" align="center" valign="middle" bgcolor=<%=bg%>><font class=txt><%=email%></font></td>
            <td height="20" align="center" valign="middle" bgcolor=<%=bg%>><font class=txt><%=tot_qtd%></font></td>
                        <td height="20" align="center" valign="middle" bgcolor=<%=bg%>><font class=txt>R$ <%=moeda(tot_vlr)%></font></td>
                        <td align="center" valign="middle"><font class=txt>R$ <%=moeda(rsttt2("Frete"))%></font></td>
                        <td width="120" align="center" valign="middle" bgcolor=<%=bg%>><font class=txt><%=rs2("data_fechado")%></font></td>
                        <td width="130" align="center" valign="middle" bgcolor=<%=bg%>><font class=txt><%
                        sqltemp="select T_Status.Status from t_entrega,T_Status where T_Status.id=t_entrega.status and t_entrega.PEDIDO="+cstr(rs2("pedido"))
                        set rstmp= conexao.execute(sqltemp)
                        response.write(cstr(rstmp("status")))
                        set rstmp=nothing
                        %></font></td>
                        <td width="80" align="center" valign="middle"><font class=txt>
                        R$ <%=moeda(total_final)%>
                        </font></td>
                        <td width="30" align="center" valign="middle" bgcolor=<%=bg%>><a href="pedidos.asp?act=edt&ped=<%=rs2("pedido")%>"><img src="images/EDT.gif" width="16" alt="Editar o Status do pedido." height="14" border=0></a></td>
                  <td width="30" height="20" bgcolor=<%=bg%>><a href="java script:janela22('print_ped_adm.asp?ped=<%=rs2("pedido")%>',600,600)"><img src="images/print.gif" width="16" alt="Imprimir seu pedido." height="14" border=0></a><a href=pedidos.asp?act=view&id=<%=rs2("pedido")%>></a></td>
            <td width="30" height="20" align="center" bgcolor=<%=bg%>><input type="image" name="imageField" src="images/delete.gif" onMouseOut="window.status=''" onMouseOver="window.status='Exluir este item!'" onClick="java script:if(confirm('Deseja Realmente EXCLUIR???')){location.href='pedidos.asp?act=del&id=<%=rs2("pedido")%>';}{return false;}"></td>
          </tr>
          <%
          rs2.movenext
          loop%>
        </table></th>
      </tr>
      <%end if%>
      <%if Request.QueryString("act")="del" then
      sql= "delete from t_pedido where pedido="+Request.QueryString("ID")
      set rs=conexao.execute(sql)
        sql= "delete from t_entrega where pedido="+Request.QueryString("ID")
      set rs=conexao.execute(sql)
      %>
      <tr>
        <td><div align="center" class="style1">
          <p>&nbsp;</p>
          <p>&nbsp;</p>
          <p>PEDIDO EXLUÍDO!</p>
          <p>&nbsp;</p>
          <p>
            <input name="Limpar2" type="button" id="Limpar2" value="Voltar" tabindex="18" style='font-family: MS Sans Serif; font-size: 8pt; background-color: rgb(255,255,255); color: rgb(110,110,110); font-weight: Bold; border-left: 1px solid rgb(127,127,185); border-right: 1px solid rgb(127,127,185); border-top: 1px solid rgb(127,127,185); border-bottom: 1px solid rgb(127,127,185);height:25px;width:100px' onClick="location.href='pedidos.asp'">
          </p>
        </div></td>
      </tr>
      <%end if%>
      <%if Request.QueryString("act")="edt" then%>
      <tr>
        <th scope="col"><form action="pedidos.asp?act=edt&ped=<%=request.QueryString("ped")%>" method=post>
        <table width="90%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td height="20" >&nbsp;</td>
              <td height="20" >&nbsp;</td>
              <td height="20">&nbsp;</td>
              <td height="20">&nbsp;</td>
              <td height="20">&nbsp;</td>
              <td>&nbsp;</td>
              <td width="80">&nbsp;</td>
              <td>&nbsp;</td>
            </tr>
            <tr>
              <td height="20" >&nbsp;</td>
              <td height="20" >&nbsp;</td>
              <td height="20">&nbsp;</td>
              <td height="20">&nbsp;</td>
              <td height="20">&nbsp;</td>
              <td>&nbsp;</td>
              <td width="80">&nbsp;</td>
              <td>&nbsp;</td>
            </tr>
            <tr>
              <td height="20" >&nbsp;</td>
              <td height="20" >&nbsp;</td>
              <td height="20">&nbsp;</td>
              <td height="20">&nbsp;</td>
              <td height="20">&nbsp;</td>
              <td>&nbsp;</td>
              <td width="80">&nbsp;</td>
              <td>&nbsp;</td>
            </tr>
            <tr>
              <td width="50" height="20" ><font class=preço>Pedido</font></td>
              <td height="20" ><font class=preço>Cliente</font></td>
              <td height="20"><font class=preço>E-mail do Cliente</font></td>
              <td height="20"><font class=preço>Qtde Total </font></td>
              <td height="20"><font class=preço>Valor PRODUTOS </font></td>
              <td width="120"><font class=preço>Data Fechamento </font></td>
              <td width="80"><font class=preço>Valor FRETE </font></td>
              <td width="30"><font class=preço>STATUS</font></td>
              </tr>
            <%
        sql_tmp="select pedido, data_fechado, cliente from t_pedido where pedido="+cstr(request.querystring("ped"))+" group by pedido, data_fechado,cliente"
        set rs2=conexao.execute(sql_tmp)

            sql= "select * from t_pedido where pedido="+cstr(rs2("pedido"))
            set rs=conexao.execute(sql)

            tot_vlr=ccur(0)
            tot_qtd=0

            do while not rs.eof
                sql= "select * from t_produto where ref_keos="+cstr(right(rs("produto"),5))
                set rs3=conexao.execute(sql)

                if contar(rs3)>0 then
                    tot_vlr=tot_vlr+(ccur(rs3("preco_a"))*cint(rs("qtde")))
                    tot_qtd=tot_qtd+cint(rs("qtde"))
                end if
                rs.movenext
            loop

            sql= "select * from t_clientes where id="+cstr(rs2("cliente"))
            set rs=conexao.execute(sql)
            cliente=rs("nome")
            email=rs("Email")

            if r=1 then
                bg="#E3F9F7"
                r=0
            else
                bg="#ffffff"
                r=1
            end if

        %>
            <tr bgcolor=<%=bg%>>
              <td width="50" height="20" bgcolor=<%=bg%>><font class=txt><%=rs2("pedido")%></font></td>
              <td height="20" bgcolor=<%=bg%>><a href=clientes.asp?act=view&id=<%=rs2("cliente")%> class=lnk><%=cliente%></a></td>
              <td height="20" bgcolor=<%=bg%>><font class=txt><%=email%></font></td>
              <td height="20" bgcolor=<%=bg%>><font class=txt><%=tot_qtd%></font></td>
              <td height="20" bgcolor=<%=bg%>><font class=txt>R$ <%=moeda(tot_vlr)%></font></td>
              <td width="120" bgcolor=<%=bg%>><font class=txt><%=rs2("data_fechado")%></font></td>
              <td width="80" align="center" valign="middle" bgcolor=<%=bg%>><font class=txt><%
              sql= "select Frete,* from t_Entrega where pedido="+cstr(rs2("pedido"))
            set rsttt=conexao.execute(sql)

              %>

                <input name="Frete" type="text" tabindex="12"  size="10" maxlength="14" <%=estilo%> onKeyPress="return(digit_money(this,event))" <%="Value='"+cstr(moeda(rsttt("frete")))+"'"%>></font></td>
              <td width="30" align="center" valign="middle" bgcolor=<%=bg%>>
              <%
              sql_tmp="select * from t_Status"
              set rstmp=conexao.execute(sql_tmp)

              sql_tmp="select Status from t_Entrega where PEDIDO="+cstr(rs2("pedido"))
              set rs2tmp=conexao.execute(sql_tmp)
              %>
              <select name="Status">
              <%
              Do while not rstmp.eof
              %>
              <option <%if rstmp("id")=rs2tmp("Status") then response.Write("Selected") End if %> value="<%=rstmp("id")%>"><%=rstmp("Status")%></option>
              <%
              rstmp.movenext
              loop
              %>
              </select>              </td>
              </tr>
            <tr bgcolor=<%=bg%>>
              <td height="20" bgcolor=<%=bg%>>&nbsp;</td>
              <td height="20" bgcolor=<%=bg%>>&nbsp;</td>
              <td height="20" bgcolor=<%=bg%>>&nbsp;</td>
              <td height="20" bgcolor=<%=bg%>>&nbsp;</td>
              <td height="20" bgcolor=<%=bg%>>&nbsp;</td>
              <td bgcolor=<%=bg%>>&nbsp;</td>
              <td width="80" align="center" valign="middle" bgcolor=<%=bg%>>&nbsp;</td>
              <td align="center" valign="middle" bgcolor=<%=bg%>>&nbsp;</td>
            </tr>
            <tr bgcolor=<%=bg%>>
              <td height="20" bgcolor=<%=bg%>>&nbsp;</td>
              <td height="20" bgcolor=<%=bg%>>&nbsp;</td>
              <td height="20" bgcolor=<%=bg%>>&nbsp;</td>
              <td height="20" bgcolor=<%=bg%>>&nbsp;</td>
              <td height="20" bgcolor=<%=bg%>>&nbsp;</td>
              <td bgcolor=<%=bg%>>&nbsp;</td>
              <td width="80" align="center" valign="middle" bgcolor=<%=bg%>>&nbsp;</td>
              <td align="center" valign="middle" bgcolor=<%=bg%>>&nbsp;</td>
            </tr>
            <tr bgcolor=<%=bg%>>
              <td height="20" bgcolor=<%=bg%>>&nbsp;</td>
              <td height="20" bgcolor=<%=bg%>>&nbsp;</td>
              <td height="20" bgcolor=<%=bg%>>&nbsp;</td>
              <td height="20" bgcolor=<%=bg%>>&nbsp;</td>
              <td height="20" bgcolor=<%=bg%>>&nbsp;</td>
              <td bgcolor=<%=bg%>>&nbsp;</td>
              <td width="80" align="center" valign="middle" bgcolor=<%=bg%>>&nbsp;</td>
              <td align="center" valign="middle" bgcolor=<%=bg%>>&nbsp;</td>
            </tr>
            <tr bgcolor=<%=bg%>>
              <td height="20" bgcolor=<%=bg%>>&nbsp;</td>
              <td height="20" bgcolor=<%=bg%>>&nbsp;</td>
              <td height="20" bgcolor=<%=bg%>><input name="Limpar22" type="button" id="Limpar22" value="Voltar" tabindex="18" style='font-family: MS Sans Serif; font-size: 8pt; background-color: rgb(255,255,255); color: rgb(110,110,110); font-weight: Bold; border-left: 1px solid rgb(127,127,185); border-right: 1px solid rgb(127,127,185); border-top: 1px solid rgb(127,127,185); border-bottom: 1px solid rgb(127,127,185);height:25px;width:100px' onClick="location.href='pedidos.asp'"></td>
              <td height="20" bgcolor=<%=bg%>>&nbsp;</td>
              <td height="20" bgcolor=<%=bg%>>&nbsp;</td>
              <td bgcolor=<%=bg%>><input name="Atualizar" type="submit" id="Atualizar" value="Atualizar" tabindex="18" style='font-family: MS Sans Serif; font-size: 8pt; background-color: rgb(255,255,255); color: rgb(110,110,110); font-weight: Bold; border-left: 1px solid rgb(127,127,185); border-right: 1px solid rgb(127,127,185); border-top: 1px solid rgb(127,127,185); border-bottom: 1px solid rgb(127,127,185);height:25px;width:100px'></td>
              <td width="80" align="center" valign="middle" bgcolor=<%=bg%>>&nbsp;</td>
              <td align="center" valign="middle" bgcolor=<%=bg%>>&nbsp;</td>
            </tr>
        </table>
        </form>

        </th>
      </tr>
      <%end if%>
      <tr>
        <td>&nbsp;</td>
      </tr>
    </table></th>
  </tr>
</table>
<%Else%>
  <p>&nbsp;</p>
  <%End if%>
</div>
</font>
</body>
</html>
<%
set Conexao = nothing
set rs = nothing
set rs2 = nothing
set rs3 = nothing
%>

Editado por Eric de S.
Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0
Guest Ajudando por gostar de ajudar

Guest Ajudando por gostar de ajudar

Postado
Postado

Eric olá, o seu problema é simples, mas você sempre terá ele se usar um carrinho destes em seus projetos, ele é muito complicado, parece até que foi feito para não funcionar.

O erro 8002009 tem ligação direta com o limite Maximo de bts em envio de dados, por exemplo um request não pode ter mais que 102.999bts, assim sua soma é feita de forma absurda, você soma o tempo todo elas, repassando esta carga para a limitação ASP, você deveria somar e fazer isto em string SQL e não faze-las em linhas como está lá, vou dar um exemplo para você.

SELECT SUM(XX + XX * XX / XX) FROM pre-pedidos WHERE pedidos = 20

Acho que você sempre terá este erro quando o limite de bts for maior que 102.999, ou seja, não vai parar nunca este seu problema, o negócio é refazer seu carrinho de forma mais lógica e prática.

:rolleyes:

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...