<% dim secao secao = "noticias" call conectar() strSQL = "SELECT * FROM noticias ORDER BY id DESC" on error resume next set objResultSet = objConn.Execute(strSQL) if Len(Err.Description) then Session("ErroDesc") = Err.Description Session("ErroNumber") = Err.number Response.Clear Response.Write "" Response.End end if %>

<% do while not objResultSet.eof %> <%=objResultSet("titulo")%> <%=Left(objResultSet("texto"),150)&"..."%>  " class="topoLink">[leia mais] <% objResultSet.MoveNext loop %> volta ao topo

<% call desconectar() %>