<%@ Language=VBScript %> <%option explicit%> <% function getseccao(IdEdicao) dim sbuff dim url dim rst set rst = SeccoesDeEdicao(IdEdicao) if rst.eof then else sbuff = sbuff & "

RSS disponíveis:

" sbuff = sbuff & "" url = "rss/rss.asp" sbuff = sbuff & "" sbuff = sbuff & "" sbuff = sbuff & "" sbuff = sbuff & "" if cCommon.UltimaHora = "true" then url = "rss/rssuh.asp" sbuff = sbuff & "" sbuff = sbuff & "" sbuff = sbuff & "" sbuff = sbuff & "" end if 'url = "rss/rssedicao.asp" 'sbuff = sbuff & "" 'sbuff = sbuff & "" 'sbuff = sbuff & "" 'sbuff = sbuff & "" Do while (not rst.eof) url = "rss/rssseccao.asp?idseccaomaster=" & rst("idseccao") sbuff = sbuff & "" sbuff = sbuff & "" sbuff = sbuff & "" sbuff = sbuff & "" rst.movenext loop sbuff = sbuff & "

	Destaques da Edição
	Última Hora
	Num só Clique
	Secção " & rst("nome") & "

" end if set rst = nothing getseccao = sbuff end function 'Main dim idEdicao dim sModel 'Modelo sModel = getModel(c_RootPath & "\modelos\modelo_rss.htm") 'Edicão idEdicao = getEdicaoActual() sModel = replace(sModel, "", getseccao(idEdicao)) 'Dados existentes em todas as paginas call ShowDadosPagina(sModel, " RSS ", IdEdicao, "../index.asp", "../", c_RootPath & "\pub\", 0) Response.Write sModel %>