<% '######################################################################################### '#---------------------------------------------------------------------------------------- '######################################################################################### '# '# CÓDIGO: VirtuaStore Versão 1.2 - Copyright 2001-2003 VirtuaWorks '# URL: www.virtuastore.com.br / www.virtuaworks.com.br '# E-MAIL: webmaster@virtuaworks.com.br '# AUTORES: Otávio Dias(Desenvolvedor) / Jone Bandinelli(Desenvolvedor) / Daniel Kern(Revisão) '# '# 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 1.2 deve conter as frases '# // "Powered by VirtuaStore 1.2" ou "Software derivado de VirtuaStore 1.2" e '# // o link para o site http://www.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: http://www.virtuastore.com.br '# '# 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 %> <% 'Requisita os dados para gravar o produto comprado intOrderID = cstr(Session("orderID")) intProdID = request.querystring("prodid") tipo = request.querystring("item") if tipo = "existente" then txtInfo = strLg156 else txtInfo = strLg157 end if Set rsProdInfo = abredb.Execute("SELECT * FROM produtos where idprod="&intProdID&"") idsessao = rsProdInfo("idsessao") nome = rsProdInfo("nome") rsProdinfo.close set rsProdinfo = nothing 'Chama o nome da sessão Set nomes = abredb.Execute("SELECT * FROM sessoes where id="&idsessao) strNome = nomes("nome") nomes.close set nomes = nothing %>
<%=strLg4%> » style=text-decoration:none; onMouseOut="window.status='';return true;" onMouseOver="window.status='<%= trim(server.HtmlEncode(strNome)) %>';return true;"><%= strNome %> » style=text-decoration:none; onMouseOut="window.status='';return true;" onMouseOver="window.status='<%= replace(trim(server.HtmlEncode(nome)), chr(10), "") %>';return true;"><%= nome %> » <%=strLg54%>

>


<%= txtInfo %>

style=text-decoration:none; onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg41%>';return true;">:: <%=strLg41%> :: 
:: <%=strLg51%> ::

>
<%=strLg52%>
>
<%'Seleciona os dados para oferta '=========================seleciona idprod e idcompra da tabela pedidos========================= set ofertas = abredb.Execute("select idprod,idcompra from pedidos where idprod='"&intProdID&"';") if ofertas.eof then randomize numx = right(rnd,1) '=========================seleciona 3 produtos para randomizar caso não tenha compra ainda========================= set fim= abredb.Execute("select idprod,nome,preco,estoque from produtos") contador = 0 while not fim.eof and contador < 3 precito = formatNumber(fim("preco"),2)%> <%contador = contador + 1 fim.movenext fim.close set fim = nothing else codigo = ofertas("idcompra") ofertax = ofertas("idprod") '=============seleciona pedidos para randomizar onde produto diferente do comprado========================= ' set ofertas2 = abredb.Execute("select idprod from pedidos where idcompra = '"&compracv&"' and idprod<>'"&intProdID&"';") ' if ofertas2.eof then ' else ' codigo = ofertas2("idprod") ' ofertas2.close ' set ofertas2 = nothing set ofertas3 = abredb.Execute("select idprod,nome,preco,estoque from produtos where idprod<>"&codigo&";") contador3 = 0 while not ofertas3.eof and contador3 < 3 precito2 = formatNumber(ofertas3("preco"),2) %> <% contador3 = contador3 + 1 ofertas3.movenext wend ofertas3.close set ofertas3 = nothing end if ofertas.close set ofertas = nothing %>
><%=fim("nome")%>

<%=strLg29%> <%= strLgMoeda & " " & precito%>
<%=strLg28%> <%if fim("estoque") = "s" then response.write strLg26 else response.write strLg27 end if%> <%=strLg25%>
><%=ofertas3("nome")%>

<%=strLg29%> <%=strLgMoeda & " " & precito2%>
<%=strLg28%> <%if ofertas3("estoque") = "s" then response.write strLg26 else response.write strLg27 end if%> <%=strLg25%>