<%
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("/asp/mdb/noticias.mdb")
sqlstmt = "SELECT * FROM journal ORDER BY id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, DSNtemp, 3, 3
TotalRecs = rs.recordcount
x = 0
For x = 1 to 5
If rs.eof then
Exit For
Else
date1 = rs("pdate")
id = rs("ID")
name1 = rs("pname")
description = "" & name1 & ""
datel = name1
%>
<% =description%>
<%
rs.MoveNext
End If
Next%>
Nossa Missão
" Prestar assistência amparando
material, moral, intelectual e psicologicamente as crianças
sob nossa responsabilidade,
encaminhando-as à sociedade de
forma saudável a fim de se tornarem
adultos realizados."
