|
<%idf=request("id")
if idf<>"" then %>
| <% Set rsnot = Server.CreateObject("ADODB.Recordset")
rsnot.Open "SELECT * FROM noticias where id="&idf, conexao%><%=rsnot.fields("chamada")%> <%=rsnot.fields("data")%> |
|
| <%=rsnot.fields("noticia")%> |
|
<%
rsnot.close
set rsnot=nothing
end if %>
|
|
 |
| <%Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM noticias ORDER by id DESC", conexao
num=0
do while not rs.eof and num<7
num=num+1
%>
<%rs.movenext
loop
rs.close
set rs=nothing
%> |
| |
|
|
