<% '######################################################################################### '#---------------------------------------------------------------------------------------- '######################################################################################### '# '# CÓDIGO: VirtuaStore Versão OPEN - Copyright 2001-2004 VirtuaStore '# URL: http://comunidade.virtuastore.com.br '# E-MAIL: comunidade@virtuastore.com.br '# AUTORES: Otávio Dias(Desenvolvedor) '# '# Este programa é um software livre; você pode redistribuí-lo e/ou '# modificá-lo sob os termos do GNU General Public License como '# publicado pela Free Software Foundation. '# É importante lembrar que qualquer alteração feita no programa '# deve ser informada e enviada para os criadores, através de e-mail '# ou da página de onde foi baixado o código. '# '# //------------------------------------------------------------------------------------- '# // LEIA COM ATENÇÃO: O software VirtuaStore OPEN deve conter as frases '# // "Powered by VirtuaStore OPEN" ou "Software derivado de VirtuaStore 1.2" e '# // o link para o site http://comunidade.virtuastore.com.br no créditos da '# // sua loja virtual para ser utilizado gratuitamente. Se o link e/ou uma das '# // frases não estiver presentes ou visiveis este software deixará de ser '# // considerado Open-source(gratuito) e o uso sem autorização terá '# // penalidades judiciais de acordo com as leis de pirataria de software. '# //-------------------------------------------------------------------------------------- '# '# Este programa é distribuído com a esperança de que lhe seja útil, '# porém SEM NENHUMA GARANTIA. Veja a GNU General Public License '# abaixo (GNU Licença Pública Geral) para mais detalhes. '# '# Você deve receber a cópia da Licença GNU com este programa, '# caso contrário escreva para '# Free Software Foundation, Inc., 59 Temple Place, Suite 330, '# Boston, MA 02111-1307 USA '# '# Para enviar suas dúvidas, sugestões e/ou contratar a VirtuaWorks '# Internet Design entre em contato através do e-mail '# contato@virtuaworks.com.br ou pelo endereço abaixo: '# Rua Venâncio Aires, 1001 - Niterói - Canoas - RS - Brasil. Cep 92110-000. '# '# Para ajuda e suporte acesse um dos sites abaixo: '# http://comunidade.virtuastore.com.br '# http://br.groups.yahoo.com/group/virtuastore '# '# BOM PROVEITO! '# Equipe VirtuaStore '# []'s '# '######################################################################################### '#---------------------------------------------------------------------------------------- '######################################################################################### 'INÍCIO DO CÓDIGO 'Este código está otimizado e roda tanto em Windows 2000/NT/XP/ME/98 quanto em servidores UNIX-LINUX com chilli!ASP %> <% 'Verifica se a compra está vazia if request.querystring("compra") = "" then abredb.close set abredb = nothing response.redirect "fechapedido.asp?compra=login" end if if request.querystring("compra") = "ok" and session("usuario") = "" then abredb.close set abredb = nothing response.redirect "fechapedido.asp?compra=login" end if if request.querystring("compra") = "entrar" then intOrderID = cstr(Session("orderID")) %>
<%=strLg4%> » <%=strLg6%>

>

<%=strLg179%>

<%=strLg180%> <%=strLg71%>

<%=strLg181%>

<% 'Chama o cookie gravado no pc do usuario if request.cookies(""&nomeloja&"")("usuario") = "" or request.querystring("user") <> "" or request.querystring("user") = "x" then user = request.querystring("user") if user = "x" then user = "" end if else user = request.cookies(""&nomeloja&"")("usuario") end if %>
<%=strLg108%>> style=font-size:11px; color=red> <%=request("erro")%>
<%=strLg123%>
>
style=font-size:11px; color=red> <%=request("erro2")%>
<%=strLg182%> <%=strLg71%>


>
<% response.end end if if request.querystring("compra") = "login" then if session("modo_entrega")="" and Cstr(Request("menu")) <> Cstr("sim") then erro = "- " & strLg294 & "
" response.redirect "carrinhodecompras.asp?erro="&Server.URLEncode(erro) end if 'Verifica se a compra está vazia if cstr(Session("orderID")) = "" then%>
<%=strLg4%> » <% if Cstr(Request("menu")) = Cstr("sim") then %> <%=strLg6%> <% Else %> <%=strLg8%> <%end if%>

>


style='font-size:17px'><%=strLg49%>
<%=strLg50%>

>
<% response.end else 'Login na loja intOrderID = cstr(Session("orderID"))%>
style=font-size:11px;color:000000> <%=strLg4%> » <% if Cstr(Request("menu")) = Cstr("sim") then %> <%=strLg6%> <% Else %> <%=strLg8%> <%end if%>

>

<%=strLg55%>

<%=strLg180%> <%=strLg71%>

<%=strLg181%>

<% 'Chama os cookies gravados if request.cookies(""&nomeloja&"")("usuario") = "" or request.querystring("user") <> "" then user = request.querystring("user") if user = "x" then user = "" end if else user = request.cookies(""&nomeloja&"")("usuario") end if %> <% if Cstr(Request("menu")) = Cstr("sim") then %> <% end if %>
<%=strLg108%>> style=font-size:11px; color=red> <%=request("erro")%>
<%=strLg123%>
>
style=font-size:11px; color=red> <%=request("erro2")%>
<%=strLg182%> <%=strLg71%>


>
<% end if 'Verifica a sessão do frete else if request.querystring("compra") = "ok" then if session("modo_entrega")="" then erro = "- " & strLg294 & "
" response.redirect "carrinhodecompras.asp?erro="&Server.URLEncode(erro) end if if Clng(FormatNumber(session("PesoTotalValor"), 0)) = 0 and session("modo_entrega")="sedex" then erro = "- " & strLg295 & "
" response.redirect "carrinhodecompras.asp?erro="&Server.URLEncode(erro) end if intOrderID = cstr(Session("orderID"))%>
<%=strLg4%> » <%=strLg286%>
<% if request.querystring("compra") = "ok" and session("usuario") <> "" then %>
    1. <%=strLg282%>     2. <%=strLg283%>     3. <%=strLg284%>     4. <%=strLg285%>
<% Else %>

<% End If %>
>
<%if cstr(Session("orderID")) = "" then%>

<%=strLg49%>
<%=strLg50%>

>
<% response.end else 'Chama os dados do cliente Set dados = abredb.Execute("SELECT nome,email,senha,nascimento,cpf,rg,endereco,bairro,cidade,estado,cep,pais,tel FROM clientes WHERE email='"&Cripto(session("usuario"),true)&"';") if dados.EOF then ende = "" bairro = "" cidade = "" estado = "" cep = "" fone = "" pais = "" else ende = Cripto(dados("endereco"),false) bairro = Cripto(dados("bairro"),false) cidade = Cripto(dados("cidade"),false) estado = Cripto(dados("estado"),false) cep = Cripto(dados("cep"),false) fone = Cripto(dados("tel"),false) pais = Cripto(dados("pais"),false) '*** Feito para que pegue o CEP caso tenha sido escolhido modo de entrega <> sedex If session("modo_entrega")<>"sedex" and session("PesoTotalCep")="" then session("PesoTotalCep")= cep end if end if dados.Close set dados = Nothing %> <% 'Chama os dados dos produtos comprados set pedidos = abredb.Execute("SELECT idprod, quantidade FROM pedidos WHERE idcompra='"&intOrderID&"';") do while not pedidos.EOF idprod = pedidos("idprod") quantidade = pedidos("quantidade") set produtos = abredb.Execute("SELECT preco, nome, peso FROM produtos WHERE idprod="&idprod&";") preco = produtos("preco") peso = produtos("peso") nome = produtos("nome") presentenao = nao if pedidos.BOF OR pedidos.EOF then Session("orderID") = "" pedidos.close set pedidos = nothing 'Fecha o banco de dados abredb.close set abredb = nothing response.redirect "carrinhodecompras.asp" else intProdID = idprod strProdName = nome pesoz = peso intProdPrice = preco intQuant = quantidade if session("estado") = "" then intFrete = 0 else intFrete = valorfrete end if 'Chama o valor total do frete intTotalFrete = intTotalFrete + (intQuant * intProdPrice) intTotal = intTotalFrete + intFrete 'Chama as informações da compra set comprax = abredb.Execute("SELECT * FROM compras WHERE idcompra="& intOrderID &";") if comprax.eof then strPedido = "" else strPedido = comprax("pedido") end if end if %> <% comprax.Close set comprax = Nothing pedidos.MoveNext loop pedidos.close set pedidos = nothing 'Formata os valores totalcompra = formatNumber(intTotal,2) totalae = 1 + formatNumber(intTotal,2) + FormatNumber(session("PesoTotalValor"), 2) - 1 freteopi = formatNumber(Session("PesoTotalValor"),2) %> ">">"><%=strLg72%>

<%=strLg73%> <%=strLg71%>
<%=strLg74%>
>
<%=strLg77%> - <%=strLg70%> <%=strLg75%>
 <%= request.querystring("erro2") %>
;font-size:11px;color:#808080;><%=strLg78%>;font-size:11px;color:#000000; value="<%= request.querystring("endereco") %>">
;font-size:11px;color:#808080;><%=strLg79%>;font-size:11px;color:#000000; value="<%= request.querystring("bairro") %>">
;font-size:11px;color:#808080;><%=strLg80%>;font-size:11px;color:#000000; value="<%= request.querystring("cidade") %>">
;font-size:11px;color:#808080;><%=strLg81%>;font-size:11px;color:#000000; value="<%= request.querystring("estado") %>">
;font-size:11px;color:#808080;><%=strLg82%> ;font-size:11px;color:#000000; name=cepzz value="<%=session("PesoTotalCep")%>" size=10 maxlength=8>
;font-size:11px;color:#808080;>País:
;font-size:11px;color:#808080;><%=strLg84%>;font-size:11px;color:#000000; value="<%= request.querystring("fone") %>">;font-size:9px;color:#808080;>

>

>
/imagens/prosseguir.gif onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg67%>';return true;">
/imagens/limpar.gif onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg89%>';return true;" OnClick="javascript: limpar()">
<% end if end if end if %>