<% var_ItemProdut_codigo = Request.QueryString("codigo_item") IF NOT IsNumeric(var_ItemProdut_codigo) THEN Response.Redirect "produtos_system_error.asp" END IF var_ItemProdut_codigo = LCase(var_ItemProdut_codigo) var_ItemProdut_codigo = replace(var_ItemProdut_codigo,chr(33),"") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,chr(34),"") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,chr(35),"") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,chr(36),"") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,chr(37),"") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,chr(39),"") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,chr(40),"") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,chr(41),"") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,chr(42),"") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,chr(43),"") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,chr(44),"") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,chr(45),"") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,chr(46),"") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,chr(47),"") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,chr(58),"") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,chr(59),"") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,chr(60),"") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,chr(61),"") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,chr(62),"") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,chr(63),"") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,chr(64),"") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,chr(91),"") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,chr(92),"") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,chr(93),"") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,chr(94),"") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,chr(95),"") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,chr(96),"") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,chr(123),"") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,chr(124),"") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,chr(125),"") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,chr(126),"") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,chr(151),"") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,chr(215),"") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,"--","") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,"declare","") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,"varchar","") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,"select","") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,"update","") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,"delete","") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,"session","") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,"asp","") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,"firsttime","") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,"load","") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,"exec","") var_ItemProdut_codigo = replace(var_ItemProdut_codigo,"http","") CALL abre_conexao consult_ItemProdut_sql = "SELECT nome_item,texto_completo,status_imagem,status_pdf FROM "&var_BackBD_Client&"produto_item WHERE registro = "&var_ItemProdut_codigo SET consult_ItemProdut_tab = Conexao.EXECUTE(consult_ItemProdut_sql) var_ItemProdut_nome = consult_ItemProdut_tab("nome_item") var_ItemProdut_texto_completo = consult_ItemProdut_tab("texto_completo") var_ItemProdut_status_imagem = consult_ItemProdut_tab("status_imagem") var_ItemProdut_status_pdf = consult_ItemProdut_tab("status_pdf") consult_ItemProdut_tab.CLOSE SET consult_ItemProdut_tab = NOTHING IF var_ItemProdut_texto_completo <> "" THEN var_ItemProdut_texto_completo_fim = replace(var_ItemProdut_texto_completo,chr(13),"
") var_ItemProdut_texto_completo_fim = replace(var_ItemProdut_texto_completo_fim,"

",""&chr(149)&" ") ELSE var_ItemProdut_texto_completo_fim = "" END IF IF var_ItemProdut_status_imagem = "ativo" THEN var_Table_Width = "380" ELSE var_Table_Width = "660" END IF %>

	<%=chr(149)%>  <%=var_ItemProdut_nome%>

<% IF var_ItemProdut_status_imagem = "ativo" THEN %> <% END IF %>

<% list_ImgProdut_sql = "SELECT imagem_pequeno,moldura_img_pq,imagem_grande,moldura_img_gr FROM "&var_BackBD_Client&"produto_img WHERE codigo_item = "&var_ItemProdut_codigo&" AND status_uso = 'ativo' ORDER BY registro" SET list_ImgProdut_tab = Conexao.EXECUTE(list_ImgProdut_sql) DO WHILE NOT list_ImgProdut_tab.EOF var_ImgProdut_imagem_pequeno = list_ImgProdut_tab("imagem_pequeno") var_ImgProdut_moldura_img_pq = list_ImgProdut_tab("moldura_img_pq") var_ImgProdut_imagem_grande = list_ImgProdut_tab("imagem_grande") var_ImgProdut_moldura_img_gr = list_ImgProdut_tab("moldura_img_gr") IF var_ImgProdut_imagem_pequeno <> "" THEN var_ImgPath_pq = var_ImgPathHTTPWebPasta_Produto & var_ImgProdut_imagem_pequeno ELSE var_ImgPath_pq = var_ImgPathHTTPWebPasta_ND & "img_nd_foto_pq.jpg" END IF IF var_ImgProdut_imagem_grande <> "" THEN var_ImgPath_gr = var_ImgPathHTTPWebPasta_Produto & var_ImgProdut_imagem_grande ELSE var_ImgPath_gr = var_ImgPathHTTPWebPasta_ND & "img_nd_foto_gr.jpg" END IF IF var_ImgProdut_moldura_img_pq = "sim" THEN var_ImgWrite_pq = "" ELSE var_ImgWrite_pq = "" END IF IF var_ImgProdut_imagem_grande <> "" THEN %> <%=var_ImgWrite_pq%> <% ELSE %> <%=var_ImgWrite_pq%> <% END IF list_ImgProdut_tab.MOVENEXT LOOP list_ImgProdut_tab.CLOSE SET list_ImgProdut_tab = NOTHING %>

<% IF var_ItemProdut_status_pdf = "ativo" THEN %> <% END IF %> <%=var_ItemProdut_texto_completo_fim%>

<% CALL fecha_conexao %>