<%
'------------------------------------------- FUNÇŐES PÁGINA INICIAL
dim secaoG1, codigoG1, corG1, titG1, imgG1, chamG1 'variáveis para notícia nível 1
dim i, secao(8), codigo(8), grau(8), cor(8), tit(8), img(8), chm(8), estilo(8) 'variáveis para notícias nível 2 e 3
function pegaNotG1
	dim rs, sql, secaoSQL
	sql = "SELECT secao.cod AS codSec, "
	sql = sql & "secao.nome_secao_url AS nomSec ,"
	sql = sql & "noticias.Grau AS Grau ,"
	sql = sql & "secao.Cor_Secao AS Cor_Secao ,"
	sql = sql & "noticias.Titulo AS Titulo ,"
	sql = sql & "noticias.Imagem AS Imagem ,"
	sql = sql & "noticias.Data AS Data ,"
	sql = sql & "noticias.Codigo AS CodNot ,"
	sql = sql & "noticias.Chamada AS Chamada from (secao INNER JOIN noticias "
	sql = sql & "on secao.cod = noticias.codigo_secao) where publicado = 'sim' AND noticias.grau = 1 order by noticias.data desc"
	call AbreCon
	set rs = server.createobject("adodb.recordset")
	rs.cursorlocation = 3
	rs.open sql, conexao
	if rs.recordcount > 1 then
		dim rs2
		set rs2 = conexao.execute("update noticias set grau=2 where grau=1 and codigo <> "&rs("CodNot"))
		rs2.close
	end if
	if rs.eof then
		secaoG1 = ""
		codigoG1 = ""
		corG1 = ""
		titG1 = ""
		imgG1 = ""
		chamG1 = ""
	else
		secaoG1 = rs("nomSec")
		codigoG1 = rs("CodNot")
		corG1 = rs("Cor_Secao")
		titG1 = rs("Titulo")
		imgG1 = rs("Imagem")
		chamG1 = rs("Chamada")
	end if
	rs.close
	set rs = nothing
	call FechaCon
end function

function defineCor(grauTit, corTit)
	if grauTit = 3 then
		response.write (" style=""color:"&corTit&"""")
	elseif grauTit = 2 then
		response.write (" style=""background-color:"&corTit&";color:#FFFFFF""")
	end if
end function

function pegaNot()
	dim rs, sql, secaoSQL
	sql = "SELECT secao.cod AS codSec, "
	sql = sql & "secao.nome_secao_url AS nomSec ,"
	sql = sql & "noticias.Grau AS Grau ,"
	sql = sql & "secao.Cor_Secao AS Cor_Secao ,"
	sql = sql & "noticias.Titulo AS Titulo ,"
	sql = sql & "noticias.Imagem AS Imagem ,"
	sql = sql & "noticias.Data AS Data ,"
	sql = sql & "noticias.Codigo AS CodNot ,"
	sql = sql & "noticias.Chamada AS Chamada from (secao INNER JOIN noticias "
	sql = sql & "on secao.cod = noticias.codigo_secao) where publicado = 'sim' AND noticias.grau <> 1 order by noticias.data desc"
	call AbreCon
	set rs = server.createobject("adodb.recordset")
	rs.cursorlocation = 3
	rs.open sql, conexao
	'if rs.eof then response.redirect("erro.asp")
	if not rs.eof then
	rs.move(numI)
	for i = 0 to 8
		if rs.eof then exit for
		secao(i) = rs("nomSec")
		codigo(i) = rs("CodNot")
		grau(i) = rs("Grau")
		cor(i) = rs("Cor_secao")
		tit(i) = rs("Titulo")
		img(i) = rs("Imagem")
		chm(i) = rs("Chamada")
		estilo(i) = "border:1px solid "&cor(i)
		rs.movenext
	next
	end if
	rs.close
	set rs = nothing
	call FechaCon
end function
'------------------------------------------- FUNÇŐES PARA PÁGINAS INICIAIS DE SEÇŐES
%>