<% lingua=1 response.cookies("paulaart")("linguasel")=lingua 'Função para chamar os produtos aleatoreamente na vitrine inicial set rs = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and estoque='s';") if rs.eof or rs.bof then rs.close set rs = nothing set atualizar = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok';") set rs = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok';") if rs.eof or rs.bof then rs.close set rs = nothing set atualizar = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok';") set rs = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and estoque='s';") end if else set atualizar = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs("idprod")&";") end if set rs2 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and estoque='s';") if rs2.eof or rs2.bof then rs2.close set rs2 = nothing set atualizar2 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok';") set rs2 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and estoque='s';") if rs2.eof or rs2.bof then rs2.close set rs2 = nothing set atualizar2 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok';") set rs2 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and estoque='s';") end if else set atualizar2 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs2("idprod")&";") end if set rs3 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and estoque='s';") if rs3.eof or rs3.bof then rs3.close set rs3 = nothing set atualizar3 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok';") set rs3 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and estoque='s';") if rs3.eof or rs3.bof then rs3.close set rs3 = nothing set atualizar3 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok';") set rs3 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and estoque='s';") end if else set atualizar3 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs3("idprod")&";") end if set rs4 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and estoque='s';") if rs4.eof or rs4.bof then rs4.close set rs4 = nothing set atualizar4 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok';") set rs4 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and estoque='s';") if rs4.eof or rs4.bof then rs4.close set rs4 = nothing set atualizar4 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok';") set rs4 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and estoque='s';") end if else set atualizar4 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs4("idprod")&";") end if set rs5 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" and estoque='s';") if rs5.eof or rs5.bof then rs5.close set rs5 = nothing set atualizar5 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok';") set rs5 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" and estoque='s';") if rs5.eof or rs5.bof then rs5.close set rs5 = nothing set atualizar5 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok';") set rs5 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" and estoque='s';") end if else set atualizar5 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs5("idprod")&";") end if set rs6 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" and idprod <> "&rs5("idprod")&" and estoque='s';") if rs6.eof or rs6.bof then rs6.close set rs6 = nothing set atualizar6 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok';") set rs6 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" and idprod <> "&rs5("idprod")&" and estoque='s';") if rs6.eof or rs6.bof then rs6.close set rs6 = nothing set atualizar6 = abredb.Execute("UPDATE produtos SET status = 'nao' WHERE status = 'ok';") set rs6 = abredb.execute("SELECT * FROM produtos WHERE status <> 'ok' and idprod <> "&rs("idprod")&" and idprod <> "&rs2("idprod")&" and idprod <> "&rs3("idprod")&" and idprod <> "&rs4("idprod")&" and idprod <> "&rs5("idprod")&" and estoque='s';") end if else set atualizar6 = abredb.Execute("UPDATE produtos SET status = 'ok' WHERE idprod = "&rs6("idprod")&";") end if 'Formatação dos preços dos produtos if lingua = 1 then precito1 = formatNumber(rs("preco"), 2) precito2 = formatNumber(rs2("preco"), 2) precito3 = formatNumber(rs3("preco"), 2) precito4 = formatNumber(rs4("preco"), 2) precito5 = formatNumber(rs5("preco"), 2) precito6 = formatNumber(rs6("preco"), 2) else preco_parcelado5_1 = rs("preco") / dolar_hoje preco_parcelado5_2 = rs2("preco") / dolar_hoje preco_parcelado5_3 = rs3("preco") / dolar_hoje preco_parcelado5_4 = rs4("preco") / dolar_hoje preco_parcelado5_5 = rs5("preco") / dolar_hoje preco_parcelado5_6 = rs6("preco") / dolar_hoje precito1 = formatNumber(preco_parcelado5_1, 2) precito2 = formatNumber(preco_parcelado5_2, 2) precito3 = formatNumber(preco_parcelado5_3, 2) precito4 = formatNumber(preco_parcelado5_4, 2) precito5 = formatNumber(preco_parcelado5_5, 2) precito6 = formatNumber(preco_parcelado5_6, 2) end if %>
method="post" name=comprar<%=rs.fields("idprod")%>>
>" width="105" border="0" align="top">
><%=rs.fields("nome")%>
>
<%=strLg29%> <%= strlgmoeda & " " & precito1%>

"> onMouseOut="window.status='';return true;" onMouseOver="window.status='+ Detalhes';return true;" style="color:#FFFFFF;text-decoration:none;">/imagens/detalhes.gif border="0" align="left">
/imagens/comprar_2.gif align="absbottom" onMouseOver="window.status='Comprar Produto';return true;" onMouseOut="window.status='';return true;" id="submit1" name="submit1">
method="post" name=comprar<%=rs2.fields("idprod")%>>
>" width="105" border="0" align="top">
><%=rs2.fields("nome")%>
>
<%=strLg29%> <%= strlgmoeda & " " & precito2%>

"> onMouseOut="window.status='';return true;" onMouseOver="window.status='+ Detalhes';return true;" style="color:#FFFFFF;text-decoration:none;">/imagens/detalhes.gif border="0" align="left">
/imagens/comprar_2.gif align="absbottom" onMouseOver="window.status='Comprar Produto';return true;" onMouseOut="window.status='';return true;" id="submit1" name="submit1">
method="post" name=comprar<%=rs3.fields("idprod")%>>
>" width="105" border="0" align="top">
><%=rs3.fields("nome")%>
>
<%=strLg29%> <%= strlgmoeda & " " & precito3%>

"> onMouseOut="window.status='';return true;" onMouseOver="window.status='+ Detalhes';return true;" style="color:#FFFFFF;text-decoration:none;">/imagens/detalhes.gif border="0" align="left">
/imagens/comprar_2.gif align="absbottom" onMouseOver="window.status='Comprar Produto';return true;" onMouseOut="window.status='';return true;" id="submit1" name="submit1">
method="post" name=comprar<%=rs4.fields("idprod")%>>
>" width="105" border="0" align="top">
><%=rs4.fields("nome")%>
>
<%=strLg29%> <%= strlgmoeda & " " & precito4%>

"> onMouseOut="window.status='';return true;" onMouseOver="window.status='+ Detalhes';return true;" style="color:#FFFFFF;text-decoration:none;">/imagens/detalhes.gif border="0" align="left">
/imagens/comprar_2.gif align="absbottom" onMouseOver="window.status='Comprar Produto';return true;" onMouseOut="window.status='';return true;" id="submit1" name="submit1">
method="post" name=comprar<%=rs5.fields("idprod")%>>
>" width="105" border="0" align="top">
><%=rs5.fields("nome")%>
>
<%=strLg29%> <%= strlgmoeda & " " & precito5%>

"> onMouseOut="window.status='';return true;" onMouseOver="window.status='+ Detalhes';return true;" style="color:#FFFFFF;text-decoration:none;">/imagens/detalhes.gif border="0" align="left">
/imagens/comprar_2.gif align="absbottom" onMouseOver="window.status='Comprar Produto';return true;" onMouseOut="window.status='';return true;" id="submit1" name="submit1">
method="post" name=comprar<%=rs6.fields("idprod")%>>
>" width="105" border="0" align="top">
><%=rs6.fields("nome")%>
>
<%=strLg29%> <%= strlgmoeda & " " & precito6%>

"> onMouseOut="window.status='';return true;" onMouseOver="window.status='+ Detalhes';return true;" style="color:#FFFFFF;text-decoration:none;">/imagens/detalhes.gif border="0" align="left">
/imagens/comprar_2.gif align="absbottom" onMouseOver="window.status='Comprar Produto';return true;" onMouseOut="window.status='';return true;" id="submit1" name="submit1">