NOTÍCIAS
<%
sql="select TOP 30 * from ADD_Noticias order by codRegistro desc"
sql = TiraAcentoSelect(sql)
sql = LimpaPalavrasSelect(sql)
set rs = DbConn.Execute(sql)
WHILE not rs.eof
%>
<%
rs.movenext
wend
%>
<%=ucase(rs("titulo"))%>
<%= formatdatetime(rs("dataCadastro"),2)%>