<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> " /> <% 'INÍCIO IMAGEM '--------------------------------------------------------------------------------------------------------------------------------------------------------------- function imprimeImagemDestaque(v_img_conta) set Conn = Connection(Application("strConnection")) sqlImg = "SELECT i.imagem_id, i.album_id, i.flag_capa, i.dt_insert, a.conta_id FROM img_imagem i INNER JOIN img_album a ON i.album_id = a.album_id WHERE flag_capa = -1 AND conta_id = "&v_img_conta&";" Set RsAux = Conn.Execute(sqlImg) if not RsAux.eof then bgImg = Application("RootVirtualAdmin") & "_custom/galeria_imagem/"& Year(RsAux("dt_insert")) &"/"& Month(RsAux("dt_insert")) &"/"& RsAux("album_id") &"/"& RsAux("imagem_id") &"_tb.jpg" else bgImg = "_custom/img/img_lista_sem_foto.png" end if Set RsAux = nothing set Conn = nothing imprimeImagemDestaque = bgImg end function sub lista_foto(img_conta) strASP = "
"&_ "
"&_ "
" response.write strASP end sub '--------------------------------------------------------------------------------------------------------------------------------------------------------------- 'INÍCIO DETALHE '--------------------------------------------------------------------------------------------------------------------------------------------------------------- sub lista_detalhe(id,titulo,sumario,data) strASP = "
"&_ "
"&_ ""&_ "
"&_ "
" response.write strASP end sub '--------------------------------------------------------------------------------------------------------------------------------------------------------------- set pag = new pagina if getForm("id") <> "" then pag.conteudoid = getForm("id") 'pag.urlamigavel = pag.getUrlFilho(getForm("url")) pag.getPagina() if getForm("menu") <> "" then pag.menu = getForm("menu") else pag.menu = pag.menuitemid if getForm("paiid") <> "" then pag.conteudopaiidmenu = getForm("paiid") else pag.conteudopaiidmenu = getForm("id") 'Útil para configurar a ordenação das notícias no side lateral if pag.titulo <> "" then sidesql = pag.titulo else sidesql = pag.nome set trk = new track call trk.insertTrack("3",getForm("id")) set trk = nothing %> ,<%=pag.palavrachave%>" /> - <%=pag.titulo%>" /> <%=Application("ClienteNome")%> - <%=pag.titulo%>

<%=pag.titulo%>

<%=pag.subtitulo%>
<%=pag.corpo%> <%select case pag.conteudotipoid%> <%case "1"%>

<%=pag.getImages()%>


<% set arq = new arquivo arq.contaid = pag.arq_conta_id arq.getArquivo() if vartype(arq.arquivoid) = 8204 then response.write "

Arquivos Relacionados

" for i = 1 to ubound(arq.arquivoid) if arq.titulo(i) = "" then legenda = arq.nome(i) & "." & arq.extensao(i) else legenda = arq.titulo(i) if len(legenda) > 20 then legenda = left(legenda, 20) & "..." title = arq.nome(i) & "." & arq.extensao(i) if arq.descricao(i) <> "" then title = arq.descricao(i) & " - " & title if arq.titulo(i) <> "" then title = arq.titulo(i) & " - " & title background = "url(_custom/img/arquivos/ico_"&arq.extensao(i)&".png)" %> <% next end if set arq = nothing %>


<%case "2"%> <%case else%>

<%=pag.getImages()%>

<%end select%> <%if ucase(getForm("bt"))="VOLTAR" then%>

Voltar à página anterior

<%end if%>

<%set pag = nothing%>