<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.4 ' Data: 12/09/06 ' Arquivo: carrinho_vazio.asp ' Versão do arquivo: 0.0 ' Data da ultima atualização: 09/10/07 ' '----------------------------------------------------------------------------- ' Licença Código Livre: http://comercio.Locaweb.com.br/gpl/gpl.txt '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# rodape = "no" ' Verifica os dados a serem exibidos na página If Request("msg") <> "" Then ' Mensagens de erro If Request("msg") = "probcad" Then titPagina = Application("CarvTxtTitMSGProbCad") msgPagina = Application("CarvTxtMSGProbCad") End If Else ' Dados padrão de carrinho vazio titPagina = Application("CarvTxtTitCarrinhoVazio") msgPagina = Application("CarvTxtCarrinhoVazio") End If %> <% ' Zera as sessões do frete para obrigar um novo cálculo Session("valor_frete") = False Session("frete_gratuito") = False ' Antes de apagar o pedido, repoe os produtos em estoque If pegaValorAtrib(Application("XMLArquivoConfiguracao"),"dados/configuracao_dados","Estoque") = "sim" Then If VerificaExistenciaArquivo(Application("DiretorioPedidos")&session("id_transacao")&".xml") Then Call abre_xmlpedido(session("id_transacao"), objXML, objRoot) Set raiz_dados_pedido = objRoot.selectSingleNode("dados_pedido[@id_transacao="&session("id_transacao")&"]") ' Verifica se o pedido não foi finalizado If raiz_dados_pedido.getAttribute("status_pedido") <> "finalizado" Then Set states = objXML.getElementsByTagName("dados_pedido[@id_transacao="&session("id_transacao")&"]/produto") n_states = states.length If n_states <> 0 Then for idItem = 0 to (n_states - 1) Set pagto = states.item(idItem) ArrCodigo_produto = ArrCodigo_produto & pagto.getAttribute("codigo_produto") & "," ArrQuantidade_produtoVazio = ArrQuantidade_produtoVazio & "0" & "," vSplitCodPed = Split(pagto.getAttribute("codigo_produto"),"_") Call Atualiza_Estoque(vSplitCodPed(0),"delete",pagto.getAttribute("quantidade_produto"),"0") Set pagto = Nothing next End If Set states = Nothing End If Set raiz_dados_pedido = Nothing End If End If 'Deleta arquivo de pedido caso exista Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(Application("DiretorioPedidos")&session("id_transacao")&".xml") Then objFSO.DeleteFile Application("DiretorioPedidos")&session("id_transacao")&".xml" End If Set objFSO = Nothing session.abandon ' Verifica se foi solicitado o redirecionamento para página inicial da loja If Request("redirect") <> "" Then %> /default.asp" name="home"> <% Response.end End If %>

	<%=titPagina%> <%=msgPagina%>