<%
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("../bnk/noticia.mdb")
sqlstmt = "SELECT * FROM noticia ORDER BY id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlstmt, DSNtemp
TotalRecs = rs.recordcount
x = 0
For x = 1 to 3
If rs.eof then
Exit For
Else
data = rs("data")
email = rs("email")
id = rs("ID")
name1 = rs("nome")
previaConteudo = rs("previaConteudo")
titulo = ""&rs("titulo")&""
nome = "" & name1 & ""
vermais = "Detalhes..."
%>
<% =titulo%>