<% '######################################################################################### '#---------------------------------------------------------------------------------------- '######################################################################################### '# '# 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 '# // "bondhost - Hospedagem" 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://www.bondhost.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 idsessao do subdepartamento Set subnomes = abredb.Execute("SELECT nome,idsessao FROM categoria where idcategoria="&idsessao) strIdsessao = subnomes("idsessao") strSubnome = subnomes("nome") subnomes.Close set subnomes = Nothing 'Chama o nome do departamento Set nomes = abredb.Execute("SELECT nome FROM sessoes where id="&strIdsessao) strNome = nomes("nome") nomes.Close set nomes = Nothing %>
<%=strLg273%> > <%=strLg4%> > <%= strNome %> > &categoria=<%=idsessao%> style=text-decoration:none; onMouseOut="window.status='';return true;" onMouseOver="window.status='<%= strSubNome %>';return true;"><%= strSubNome %> > <%= nome %>

>


<%= txtInfo %>

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



>
<%=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)%> <% '*** Verifica se tem Estoque do Produto set rs_estoque = abredb.execute("SELECT estoque FROM estoque WHERE idproduto="&fim("idprod")&" ;") if not rs_estoque.eof then estoque_atual=rs_estoque("estoque") end if rs_estoque.close set rs_estoque = nothing %> <%contador = contador + 1 fim.movenext wend 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) %> <% '*** Verifica se tem Estoque do Produto set rs_estoque = abredb.execute("SELECT estoque FROM estoque WHERE idproduto="&ofertas3("idprod")&" ;") if not rs_estoque.eof then estoque_atual=rs_estoque("estoque") end if rs_estoque.close set rs_estoque = nothing %> <% 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 estoque_atual > 0 then response.write " " & strLg26 else response.write " " & strLg27 end if%>
><%=ofertas3("nome")%>

<%=strLg29%> <%=strLgMoeda & " " & precito2%>
<%=strLg28%> <%if estoque_atual > 0 then response.write " " & strLg26 else response.write " " & strLg27 end if%>