<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
dim rs_dados, strsql, dados
call abre_dados
strsql="SELECT * FROM equipe ORDER BY codigo"
set rs_dados=dados.execute(strsql)
%>
<%
dim rs_noticias, noticias
call abre_noticias
strsql="SELECT * FROM noticias WHERE ck_ver = 'S' ORDER BY codigo desc"
set rs_noticias=noticias.execute(strsql)
%>
<%
dim rs_news, news
call abre_news
strsql="SELECT * FROM newsletter WHERE ck_ver = 'S' ORDER BY codigo desc"
set rs_news=news.execute(strsql)
%>
MDM - Marco Marketing Direito
Invest
Comunicação
<%
rs_news.movefirst
If rs_news.EOF then
Response.Write "Nenhuma notícia cadastrada."
Else
While Not rs_news.EOF
%>
