<%
ID_Noticia = Request.QueryString("id_not")
If IsNumeric(ID_Noticia) Then
%>
<%
sql_lista_noticia = "SELECT * FROM Noticias WHERE ID_Noticia = " & ID_Noticia & ";"
Set str_lista_noticia = Server.CreateObject("ADODB.RecordSet")
str_lista_noticia.Open sql_lista_noticia, Conn
If NOT str_lista_noticia.EOF Then
%>
Notícias |
| |
|
| <%= str_lista_noticia("Data_Horario") %> |
| <%= str_lista_noticia("Titulo") %> |
| |
| <%= str_lista_noticia("Texto") %> |
|
<% If str_lista_noticia("Fonte") <> "" Then %>
| Fonte:
<%= str_lista_noticia("Fonte") %> |
<% End If %>
<% Else %>
| Nenhuma
notícia encontrada |
<%
End If
Else
%>
| Nenhuma
notícia encontrada |
<%
End If
str_lista_noticia.Close
Set str_lista_noticia = Nothing
Conn.Close
Set Conn = Nothing
%>
