<%
DIM con, rst, strSQL
strSQL = "Select * "
strSQL = strSQL & "FROM noticias "
strSQL = strSQL & "Order By id desc"
Call AbreConexao
Set rst = con.execute(strSQL)
Do While Not rst.EOF
Response.Write(" " & rst.Fields("data") & "
")
Response.Write("" & rst.Fields("titulo") & "
")
rst.MoveNext
Loop
rst.Close
Set rst = Nothing
Call FechaConexao
Response.Write(" << Voltar | 
