<% 'Abre a conexão com o banco de dados Set Conex = Server.CreateObject ("ADODB.Connection") Conex.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("eventos.mdb") 'Lista o conteúdo do banco de dados Set rs = Server.CreateObject("ADODB.Recordset") sql = "Select * from eventos ORDER BY tipo DESC;" rs.open sql, conex, 1,1 %> <% e=1 while not rs.eof and e<=5%> <% e = e + 1 rs.movenext wend %>

<%=rs("titulo")%> /evento.asp">:: Ver fotos da decoração ::