Anticoncepção On- Line :::: Novidades e Notícias em Anticoncepção

<% Set Conexao = Server.CreateObject("ADODB.Connection") Conexao.Open "DBQ=e:\home\anticoncepcao\dados\anticoncepcao.mdb;Driver={Microsoft Access Driver (*.mdb)};" ComandoSQL = "SELECT * FROM novidades order by data desc" Set bd = Conexao.Execute(ComandoSQL) %> Anticoncepção On- Line :::: Novidades e Notícias em Anticoncepção

<% While Not bd.EOF %> <% bd.MoveNext Wend %>

<%=bd("data")%>	"><%=bd("titulo")%>

topo

"><%=bd("titulo")%>

<%=bd("data")%>

<%=bd("assunto")%>

<%=bd("referencia")%>

<% Conexao.Close Set bd = Nothing Set Conexao = Nothing %>