%@ 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 & "" sbuff = sbuff & " | Destaques da Edição | " sbuff = sbuff & "
" sbuff = sbuff & " | Última Hora | " sbuff = sbuff & "
" 'sbuff = sbuff & " | Num só Clique | " 'sbuff = sbuff & "
" sbuff = sbuff & " | Secção " & rst("nome") & " | " sbuff = sbuff & "