| |
|
|
|
<%
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 1
If rs.eof then
Exit For
Else
data = rs("data")
email = rs("senha")
id = rs("ID")
name1 = rs("nome")
previaConteudo = rs("previaConteudo")
titulo = ""&rs("titulo")&""
nome = "" & name1 & ""
vermais = "Mais..."
%>
<% =titulo%>
<% =previaConteudo%>
|
| <% =vermais %> |
<%
rs.MoveNext
End If
Next
%>
|
