<% mostra_coluna_direita = 1 preview = request("preview") if preview = "modo" then str_ativo = "" else str_ativo = " ativo=1 and " end if call titulo_box(titulo)%> <%cod_produto = valida_num(request("id_produto"))%>

<% strsql = "select id_produto,nome,codigo,descricao,cod_modelo,preco,desconto,figura_pq,figura_gd,peso,promocao,formato from tbl_produtos where "&str_ativo&" id_produto="&cod_produto set consulta = conexao.execute(strsql) if not consulta.eof then '************************** COMPUTA OS VIEWS call computa_views("tbl_produtosXviews","cod_produto",consulta("id_produto")) '************************** COMPUTA OS VIEWS %> " alt="<%=consulta("nome")%>" border=0 style="border-color: gray;"> <% strsql = "select * from tbl_produtosXimagens where cod_produto="&valida_num(request("id_produto")) & " order by id_imagem" set consulta2 = conexao.execute(strsql) %> <% cont_linha = 0 do while not consulta2.eof if cont_linha = 4 then cont_linha = 0 %> <%end if cont_linha = cont_linha + 1 %> <% consulta2.movenext loop set consulta2 = nothing %> <% Set objFSO = CreateObject("Scripting.FileSystemObject") Set objF = objFSO.GetFolder(endereco_fisico_dados & "imagens\") Set objFC = objF.Files arquivo = consulta2("imagem") if instr(ucase(arquivo), ".JPG") or instr(ucase(arquivo), ".GIF") then if gfxSpex(endereco_fisico_dados & "imagens\"&arquivo, w, h, c, strType) = true then largura = w altura = h else response.write " " end if end if set objFC = nothing set objF = nothing set objFSO = nothing if largura > altura then if largura > 50 then%> &foto=<%=consulta2("imagem")%>');">" alt="" border=0 width="50"> <% else %> &foto=<%=consulta2("imagem")%>');">" alt="" border=0> <% end if else if altura > 50 then%> &foto=<%=consulta2("imagem")%>');">" alt="" border=0 height="50"> <% else%> &foto=<%=consulta2("imagem")%>');">" alt="" border=0> <% end if end if %> <%=ucase(consulta("nome"))%> Cód: <%=consulta("codigo")%> <%alerta(88)%> " name=coloca_carrinho> <% strsql = "select tbl_produtos_parametros.nome as nome,id_parametro from tbl_produtos_parametros,tbl_produtosXparametros,tbl_produtos where tbl_produtos.id_produto = tbl_produtosXparametros.cod_produto and tbl_produtosXparametros.cod_parametro=tbl_produtos_parametros.id_parametro and tbl_produtos.id_produto="&consulta("id_produto") set consulta2 = conexao.execute(strsql) if not consulta2.eof then %> Parâmetros <% do while not consulta2.eof %> " /> <%=consulta2("nome")%> <% consulta2.movenext loop end if set consulta2 = nothing %> Quantidade: <%call alerta(144)%> <%=consulta("peso")%> <%call alerta(145)%> <%call alerta(146)%> <%=replace(consulta("descricao"),VBCRLF," ")%> <% strsql = "select nome,id_modelo from tbl_produtos_modelos where id_modelo="&consulta("cod_modelo") set consulta2 = conexao.execute(strsql) %> <%call alerta(147)%> "><%=consulta2("nome")%> <% set consulta2 = nothing %> VEJA TAMBÉM <% strsql = "select top 3 cod_produto from tbl_produtosXcategorias where cod_categoria in(select cod_categoria from tbl_produtosXcategorias where cod_produto="&consulta("id_produto")&")" set consulta2 = conexao.execute(strsql) do while not consulta2.eof %><% consulta2.movenext loop set consulta2 = nothing %> <% call mostra_produto(consulta2("cod_produto")) %> <%call alerta(148)%> <% strsql = "select tbl_produtos_categorias.nome as nome,id_categoria from tbl_produtos_categorias,tbl_produtosXcategorias,tbl_produtos where tbl_produtos.id_produto = tbl_produtosXcategorias.cod_produto and tbl_produtosXcategorias.cod_categoria=tbl_produtos_categorias.id_categoria and tbl_produtos.id_produto="&consulta("id_produto") set consulta2 = conexao.execute(strsql) do while not consulta2.eof %> ">:: <%=consulta2("nome")%> <% strsql = "select tbl_produtos_subcategorias.nome as nome,id_subcategoria from tbl_produtos_subcategorias,tbl_produtosXsubcategorias,tbl_produtos where tbl_produtos.id_produto = tbl_produtosXsubcategorias.cod_produto and tbl_produtosXsubcategorias.cod_subcategoria=tbl_produtos_subcategorias.id_subcategoria and cod_categoria="&consulta2("id_categoria")&" and tbl_produtos.id_produto="&consulta("id_produto") set consulta3 = conexao.execute(strsql) do while not consulta3.eof %>       "><%=consulta3("nome")%> <% consulta3.movenext loop set consulta3 = nothing consulta2.movenext loop set consulta2 = nothing %> <%call alerta(149)%> <% strsql = "select tbl_produtos_tipos.nome as nome,id_tipo from tbl_produtos_tipos,tbl_produtosXtipos,tbl_produtos where tbl_produtos.id_produto = tbl_produtosXtipos.cod_produto and tbl_produtosXtipos.cod_tipo=tbl_produtos_tipos.id_tipo and tbl_produtos.id_produto="&consulta("id_produto") set consulta2 = conexao.execute(strsql) do while not consulta2.eof %> "> : : <%=consulta2("nome")%> <% consulta2.movenext loop set consulta2 = nothing %> <% end if set consulta = nothing %>