|
|
<% CALL abre_conexao
consult_TextProdut_sql = "SELECT texto_completo,status_uso FROM "&var_BackBD_Client&"geral_textos WHERE websetor = 'produto'"
SET consult_TextProdut_tab = Conexao.EXECUTE(consult_TextProdut_sql)
var_TextProdut_texto_completo = consult_TextProdut_tab("texto_completo")
var_TextProdut_status_uso = consult_TextProdut_tab("status_uso")
consult_TextProdut_tab.CLOSE
SET consult_TextProdut_tab = NOTHING
IF var_TextProdut_status_uso = "ativo" THEN
IF var_TextProdut_texto_completo <> "" THEN
var_TextProdut_texto_completo_fim = replace(var_TextProdut_texto_completo,chr(13),"
")
var_TextProdut_texto_completo_fim = replace(var_TextProdut_texto_completo_fim,"",""&chr(149)&" ")
ELSE
var_TextProdut_texto_completo_fim = ""
END IF
END IF
IF var_TextProdut_texto_completo_fim <> "" THEN %>
<%=var_TextProdut_texto_completo_fim%>
|
<% END IF
count_CategProdut_sql = "SELECT Count(*) AS nroItem_CategProdut FROM "&var_BackBD_Client&"produto_categ WHERE status_uso = 'ativo'"
SET count_CategProdut_tab = Conexao.EXECUTE(count_CategProdut_sql)
nroItem_CategProdut = count_CategProdut_tab("nroItem_CategProdut")
count_CategProdut_tab.CLOSE
SET count_CategProdut_tab = NOTHING
IF nroItem_CategProdut >= 1 THEN
list_CategProdut_sql = "SELECT registro,nome_categ,texto_resumo,texto_completo,imagem_icone,moldura_img_ico,status_subcateg FROM "&var_BackBD_Client&"produto_categ WHERE status_uso = 'ativo' ORDER BY registro"
SET list_CategProdut_tab = Conexao.EXECUTE(list_CategProdut_sql)
IF list_CategProdut_tab.Eof THEN
IF Request("list_CategProdut_tab") = "" THEN
Response.Write "Categorias de Produto não disponíveis no momento.
"
END IF
END IF %>
|
<% var_RegCategAtual = 1
var_RegCategTable = 1
DO WHILE NOT list_CategProdut_tab.EOF
var_CategProdut_codigo = list_CategProdut_tab("registro")
var_CategProdut_nome = list_CategProdut_tab("nome_categ")
var_CategProdut_texto_resumo = list_CategProdut_tab("texto_resumo")
var_CategProdut_texto_completo = list_CategProdut_tab("texto_completo")
var_CategProdut_imagem_icone = list_CategProdut_tab("imagem_icone")
var_CategProdut_moldura_img_ico = list_CategProdut_tab("moldura_img_ico")
var_CategProdut_status_subcateg = list_CategProdut_tab("status_subcateg")
IF var_CategProdut_texto_resumo <> "" THEN
var_CategProdut_texto_resumo_fim = replace(var_CategProdut_texto_resumo,chr(13),"
")
var_CategProdut_texto_resumo_fim = replace(var_CategProdut_texto_resumo_fim,"",""&chr(149)&" ")
ELSE
var_CategProdut_texto_resumo_fim = ""
END IF
IF var_CategProdut_imagem_icone <> "" THEN
var_ImgPath_ico = var_ImgPathHTTPWebPasta_Produto & var_CategProdut_imagem_icone
ELSE
var_ImgPath_ico = var_ImgPathHTTPWebPasta_ND & "img_nd_suite_icone.jpg"
END IF
IF var_CategProdut_moldura_img_ico = "sim" THEN
var_ImgWrite_ico = " "
ELSE
var_ImgWrite_ico = ""
END IF %>
<% IF var_CategProdut_imagem_icone <> "" THEN %>
<% IF var_CategProdut_texto_completo <> "" OR var_CategProdut_status_subcateg = "ativo" THEN %>
| <%=var_ImgWrite_ico%> |
<% ELSE %>
<%=var_ImgWrite_ico%> |
<% END IF %>
<% ELSE %>
<% END IF %>
<% IF var_CategProdut_texto_resumo <> "" THEN %>
|
|
|
|
|
|
|
<% IF var_CategProdut_texto_completo <> "" OR var_CategProdut_status_subcateg = "ativo" THEN %>
<%=var_CategProdut_texto_resumo_fim%>
|
<% ELSE %>
<%=var_CategProdut_texto_resumo_fim%>
|
<% END IF %>
|
|
|
<% ELSE %>
<% END IF %>
|
<% IF var_RegCategTable <= 1 THEN
var_WriTable = " | "
END IF
IF var_RegCategTable = 4 THEN
var_WriTable = "
| "
var_RegCategTable = 0
END IF
IF var_RegCategAtual = nroItem_CategProdut THEN
var_WriTable = "
"
END IF %>
<%=var_WriTable%>
<% var_RegCategTable = var_RegCategTable + 1
var_RegCategAtual = var_RegCategAtual + 1
list_CategProdut_tab.MOVENEXT
LOOP
list_CategProdut_tab.CLOSE
SET list_CategProdut_tab = NOTHING
END IF %>
|
|
|
|