<% count_ImgProdut_sql = "SELECT Count(*) AS nroItem_ImgProdut FROM "&var_BackBD_Client&"produto_item WHERE codigo_categ = "&var_CategProdut_codigo&" AND codigo_subcateg = "&var_SubCategProdut_codigo&" AND status_uso = 'ativo'"
SET count_ImgProdut_tab = Conexao.EXECUTE(count_ImgProdut_sql)
nroItem_ImgProdut = count_ImgProdut_tab("nroItem_ImgProdut")
count_ImgProdut_tab.CLOSE
SET count_ImgProdut_tab = NOTHING
list_ItemProdut_sql = "SELECT registro,nome_item,texto_resumo,texto_completo,imagem_icone,moldura_img_ico,status_imagem,status_pdf FROM "&var_BackBD_Client&"produto_item WHERE codigo_categ = "&var_CategProdut_codigo&" AND codigo_subcateg = "&var_SubCategProdut_codigo&" AND status_uso = 'ativo' ORDER BY nome_item"
SET list_ItemProdut_tab = Conexao.EXECUTE(list_ItemProdut_sql)
IF list_ItemProdut_tab.Eof THEN
IF Request("list_ItemProdut_tab") = "" THEN
Response.Write "
Ítens de Produto não disponíveis no momento.
"
END IF
END IF %>
|
<% var_RegItemAtual = 1
var_RegItemTable = 1
DO WHILE NOT list_ItemProdut_tab.EOF
var_ItemProdut_codigo = list_ItemProdut_tab("registro")
var_ItemProdut_nome = list_ItemProdut_tab("nome_item")
var_ItemProdut_texto_resumo = list_ItemProdut_tab("texto_resumo")
var_ItemProdut_texto_completo = list_ItemProdut_tab("texto_completo")
var_ItemProdut_imagem_icone = list_ItemProdut_tab("imagem_icone")
var_ItemProdut_moldura_img_ico = list_ItemProdut_tab("moldura_img_ico")
var_ItemProdut_status_imagem = list_ItemProdut_tab("status_imagem")
var_ItemProdut_status_pdf= list_ItemProdut_tab("status_pdf")
IF var_ItemProdut_texto_resumo <> "" THEN
var_ItemProdut_texto_resumo_fim = replace(var_ItemProdut_texto_resumo,chr(13),"
")
var_ItemProdut_texto_resumo_fim = replace(var_ItemProdut_texto_resumo_fim,"",""&chr(149)&" ")
ELSE
var_ItemProdut_texto_resumo_fim = ""
END IF
IF var_ItemProdut_imagem_icone <> "" THEN
var_ImgPath_ico = var_ImgPathHTTPWebPasta_Produto & var_ItemProdut_imagem_icone
ELSE
var_ImgPath_ico = var_ImgPathHTTPWebPasta_ND & "img_nd_produtoitem_ico.jpg"
END IF
IF var_ItemProdut_moldura_img_ico = "sim" THEN
var_ImgWrite_ico = "
"
ELSE
var_ImgWrite_ico = ""
END IF %>
|
<% IF var_ItemProdut_imagem_icone <> "" THEN
IF var_ItemProdut_texto_completo <> "" OR var_ItemProdut_status_imagem = "ativo" OR var_ItemProdut_status_pdf = "ativo" THEN %>
<% ELSE %>
<% END IF
END IF %>
|
|
<% IF var_ItemProdut_texto_completo <> "" OR var_ItemProdut_status_imagem = "ativo" OR var_ItemProdut_status_pdf = "ativo" THEN %>
» <%=var_ItemProdut_nome%>
<%=var_ItemProdut_texto_resumo_fim%>
<% ELSE %>
» <%=var_ItemProdut_nome%>
<%=var_ItemProdut_texto_resumo_fim%>
<% END IF %>
|
|
<% IF var_RegItemTable <= 1 THEN
var_WriTable = " | "
END IF
IF var_RegItemTable = 2 THEN
var_WriTable = "
| "
var_RegItemTable = 0
END IF
IF var_RegItemAtual = nroItem_ImgProdut THEN
var_WriTable = "
"
END IF %>
<%=var_WriTable%>
<% var_RegItemTable = var_RegItemTable + 1
var_RegItemAtual = var_RegItemAtual + 1
list_ItemProdut_tab.MOVENEXT
LOOP
list_ItemProdut_tab.CLOSE
SET list_ItemProdut_tab = NOTHING %>
"
ELSE
var_ImgWrite_ico = "
