Adminitração de Notícias

<% Set conexao = Server.CreateObject("ADODB.Connection") conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("../parnanet.mdb") &";" sqlstmt = "SELECT * FROM noticias ORDER BY id DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, conexao, 3, 3 TotalRecs = rs.recordcount x = 0 For x = 1 to 10 If rs.eof then Exit For Else data = rs("data") id = rs("ID") noticia = rs("chamada") link = ""&data& "" link2 = ""¬icia& "" description = noticia %> <%rs.MoveNext End If Next%>

Notícias Inseridas

<%=link%> - <% =link2%>