<%
qBanners = quantBanners("Promocao","Português/Banners")
for qt = 1 to qBanners
%>
<%
next
%>
<%
set dic = Server.CreateObject("Scripting.Dictionary")
dic.add "vCategoria", "Português/Notícias"
dic.add "vNoTransform",false
dic.add "vTemplate","/templates/materias/inicial.xsl"
dic.add "vPagina",request("vPagina")
dic.add "vQtdPorPagina",2
dic.add "vPaginacao",0
dic.add "vAleatorio",false
dic.add "vLarguraImagem",150
dic.add "vAlturaImagem",95
dic.add "vPath","noticias/"
dic.add "vArquivo","index.asp"
dic.add "vFiltro",""
response.write materiasViewLista(dic)
set dic = nothing
%>
<%
set dic = Server.CreateObject("Scripting.Dictionary")
dic.add "vCategoria","Português/Dicas"
dic.add "vFiltroDestaques", "0"
dic.add "vTemplate","/templates/materias/dicasInicial.xsl"
dic.add "vPath","/dicas/"
dic.add "vArquivo",""
dic.add "vPagina", 1 'Só queremos a primeira página
dic.add "vQtdPorPagina", 2 'E só com X registros
dic.add "vPaginacao", 0 'Não mostrar paginação
dic.add "vLarguraImagem", 150
dic.add "vAlturaImagem",95
response.write materiasViewLista(dic)
set dic = nothing
%>