|
|
<% CALL abre_conexao
consult_EmpText_sql = "SELECT texto_completo,status_imagem,status_uso FROM "&var_BackBD_Client&"geral_textos WHERE websetor = 'empresa'"
SET consult_EmpText_tab = Conexao.EXECUTE(consult_EmpText_sql)
var_EmpText_texto_completo = consult_EmpText_tab("texto_completo")
var_EmpText_status_imagem = consult_EmpText_tab("status_imagem")
var_EmpText_status_uso = consult_EmpText_tab("status_uso")
consult_EmpText_tab.CLOSE
SET consult_EmpText_tab = NOTHING
IF var_EmpText_status_uso = "ativo" THEN
IF var_EmpText_texto_completo <> "" THEN
var_EmpText_texto_completo_fim = replace(var_EmpText_texto_completo,chr(13),"
")
var_EmpText_texto_completo_fim = replace(var_EmpText_texto_completo_fim,"",""&chr(149)&" ")
ELSE
var_EmpText_texto_completo_fim = ""
END IF
END IF
IF var_EmpText_status_imagem = "ativo" THEN
var_Table_Width = "609"
ELSE
var_Table_Width = "889"
END IF %>
<%=var_EmpText_texto_completo_fim%>
|
<% IF var_EmpText_status_imagem = "ativo" THEN %>
|
<% list_EmpImg_sql = "SELECT imagem_pequeno,moldura_img_pq,imagem_grande,moldura_img_gr FROM "&var_BackBD_Client&"geral_imgs WHERE status_uso = 'ativo' AND websetor = 'empresa' ORDER BY registro"
SET list_EmpImg_tab = Conexao.EXECUTE(list_EmpImg_sql)
DO WHILE NOT list_EmpImg_tab.EOF
var_EmpImg_imagem_pequeno = list_EmpImg_tab("imagem_pequeno")
var_EmpImg_moldura_img_pq = list_EmpImg_tab("moldura_img_pq")
var_EmpImg_imagem_grande = list_EmpImg_tab("imagem_grande")
var_EmpImg_moldura_img_gr = list_EmpImg_tab("moldura_img_gr")
IF var_EmpImg_imagem_pequeno <> "" THEN
var_ImgPath_pq = var_ImgPathHTTPWebPasta_Empresa & var_EmpImg_imagem_pequeno
ELSE
var_ImgPath_pq = var_ImgPathHTTPWebPasta_ND & "img_nd_foto_pq.jpg"
END IF
IF var_EmpImg_imagem_grande <> "" THEN
var_ImgPath_gr = var_ImgPathHTTPWebPasta_Empresa & var_EmpImg_imagem_grande
ELSE
var_ImgPath_gr = var_ImgPathHTTPWebPasta_ND & "img_nd_foto_gr.jpg"
END IF
IF var_EmpImg_moldura_img_pq = "sim" THEN
var_ImgWrite_pq = " "
ELSE
var_ImgWrite_pq = ""
END IF
IF var_EmpImg_imagem_grande <> "" THEN %>
<% ELSE %>
<% END IF
list_EmpImg_tab.MOVENEXT
LOOP
list_EmpImg_tab.CLOSE
SET list_EmpImg_tab = NOTHING %>
|
<% END IF %>
|
|
|
|