<%
option explicit
%>
<%
Dim rs, data, datastr, dia, mes, ano
data = date
Call abre_Conexao
set rs = Server.CreateObject("ADODB.Recordset")
set rs = Conexao.Execute("SELECT * FROM materias WHERE date() between dt_inicial and dt_final and entidade = 'Fameca' order by dt_inicial desc")
%>
Fameca - Faculdade de Medicina de Catanduva