<% lingua=request.cookies("paulaart")("linguasel") ' quantidade_minima="30" 'Chama o produto a partir da variavel intProdID = Request.QueryString("produto") if intProdID = "" then intProdID = "0000000000" end if 'Chama o produto Set prodinfo = abredb.Execute("SELECT * FROM produtos where idprod="&intProdID) if prodinfo.EOF then%>
style=text-decoration:none; onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg4%>';return true;"><%=strLg4%> » <%=strLg229%>

>



<%=strLg230%> <%=nomeloja%>!



>
style=text-decoration:none onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg41%>';return true;">:: <%=strLg41%> ::
<% response.end else %>
<% 'Variaveis do cadastro do produto strIdProd = prodinfo("idprod") if prodinfo("idprod")=594 or prodinfo("idprod")=595 or prodinfo("idprod")=596 or prodinfo("idprod")=614 or prodinfo("idprod")=615 or prodinfo("idprod")=616 then quantidade_minima = 30 end if if prodinfo("idprod")<>594 and prodinfo("idprod")<>595 and prodinfo("idprod")<>596 and prodinfo("idprod")<>614 and prodinfo("idprod")<>615 and prodinfo("idprod")<>616 then quantidade_minima = 20 end if strName = prodinfo("nome") 'CAPTURA PARAMETRO DA LINGUA SELECIONADA linguagem=request.cookies("paulaart")("linguasel") 'SE A LINGUA ESCOLHIDA FOR PORTUGUES if linguagem=1 then strDesc = prodinfo("detalhe") end if 'SE A LINGUA ESCOLHIDA FOR INGLES if linguagem=2 then strDesc = prodinfo("detalhe_ingles") end if if lingua <> 1 then set dolar = abredb.execute("SELECT * FROM cotacao_dolar ORDER BY id DESC") dolar_hoje = dolar("valor_dolar") end if strId = prodinfo("idprod") if linguagem = 1 then intPrice = prodinfo("preco") intPricev = prodinfo("preco_av_cartao") intPricep = prodinfo("preco_parcelado") end if if linguagem <> 1 then intPrice = (prodinfo("preco") / dolar_hoje) intPricev = (prodinfo("preco_av_cartao") / dolar_hoje) intPricep = (prodinfo("preco_parcelado") / dolar_hoje) end if strEstoq = prodinfo("estoque") idsessao = prodinfo("idsessao") economiza = intPricep - intPrice 'Chama o nome do departamento Set nomes = abredb.Execute("SELECT * FROM sessoes where id="&idsessao) if lingua=1 then strNome = nomes("nome") else strNome = nomes("nome_ingles") end if 'Fecha o departamento nomes.Close set nomes = Nothing %> <% 'Formata os valores do produto precitonx = formatnumber(intPrice,2) precitoex = formatnumber(economiza,2) precitovx = formatnumber(intPricev,2) precitop = formatnumber(intPricep,2) if prodinfo("parcela")="v" then intparc = 1 else intparc = prodinfo("parcela") end if cparcela = precitonx / intparc cparcela = formatnumber(cparcela,2)%> style=text-decoration:none; onMouseOut="window.status='';return true;" onMouseOver="window.status='<%=strLg4%>';return true;"><%=strLg4%> » <%= strNome %> » <%= strName %>

>

method="post" name="registro1">

<%= strName %>
<%=strLg31%> <%=prodinfo("fabricante")%>

" width=350 border=0>

<%= strDesc %>


Preço unitário: <%=strlgmoeda & " " & precitonx%>
;color:000000> Quantidade mínima <%=quantidade_minima%> unidades ou mais.
>ATENÇÃO: é possível confeccionar em todos os temas, portanto, você escolherá o tema durante a solicitação dos dados para o convite ou lembrancinha.
<%=strLg32%> maxlength=3 onChange="HandleError(this)" style=font-size:11px;font-family:<%=fonte%>> <%=strLg33%> /imagens/comprar_2.gif align="absmiddle" onMouseOver="window.status='Comprar Produto';return true;" onMouseOut="window.status='';return true;" id="submit1" name="submit1">

<%end if response.write "
"%>