|
|
|
|
|
|
|
|
<%
semana = Weekday(Date())
dia = Day(Date())
mes = Month(Date())
ano = Year(Date())
Select case mes
Case "1"
mmm = "Janeiro"
Case "2"
mmm = "Fevereiro"
Case "3"
mmm = "Março"
Case "4"
mmm = "Abril"
Case "5"
mmm = "Maio"
Case "6"
mmm = "Junho"
Case "7"
mmm = "Julho"
Case "8"
mmm = "Agosto"
Case "9"
mmm = "Setembro"
Case "10"
mmm = "Outubro"
Case "11"
mmm = "Novembro"
Case "12"
mmm = "Dezembro"
End Select
Select case semana
Case "1"
xxx = "Domingo"
Case "2"
xxx = "Segunda"
Case "3"
xxx = "Terça"
Case "4"
xxx = "Quarta"
Case "5"
xxx = "Quinta"
Case "6"
xxx = "Sexta"
Case "7"
xxx = "Sábado"
end select
%>
<% Response.Write xxx&", "& dia &" de "& mmm &" de "& ano%>
|
<%
SelDados = "SELECT * FROM tbl_noticias ORDER BY tbl_noticias.data DESC"
Call RodarQuery(0, SelDados, RS)
%>
<% if not RS.eof then %>
| Data |
Título |
<% count = 0 %>
<% while not RS.eof %>
<% id = RS("id") %>
<% cont=cont+1 %>
<% if (cont mod 2)=0 then %>
<% fundo="#DEDDCF" %>
<% else %>
<% fundo="#FFFFFF" %>
<% end if %>
|
<%
dia = Day(rs("data"))
mes = Month(rs("data"))
ano = Year(rs("data"))
if dia < 10 then dia = "0"&Day(rs("data"))
if mes < 10 then mes = "0"&Month(rs("data"))
Response.Write dia&"/"&mes&"/"&ano
%>
|
 <%=Left(Lcase(rs("Titulo")),70)%>... |
<% RS.Movenext
Wend %>
| |
|
|
|
|
<% else %>
|
Não
existem argumentos para sua pesquisa!
|
| |
|
|
<% end if %>
<%
Call DestroiRS(0, RS)
%>
|
 |
|
|
|
|