<%@ LANGUAGE=VBScript%>
<%option explicit%>
<%
Dim RecSet
Dim n
Dim vData, dia, mes, ano, a, b, tema, data
Set RecSet = Server.CreateObject("ADODB.RecordSet")
RecSet.Open "ztblNoticia", DB
Executar = "SELECT * FROM ztblNoticia WHERE codsite = '"& Codigo_do_Site &"' ORDER BY codigo DESC"
Set RecSet = DB.Execute(Executar)
%>
Listagem das Notícias
Clique nos Títulos abaixo para visualizar as Notícias..
<%
With RecSet
Do
n = n + 1
if n > Numero_de_Noticias then
Exit DO
end if
'data=datevalue(RecSet.fields("data"))
'dia=day(data)
'if dia <10 then dia= "0" & cstr(dia)
'mes=month(data)
'if mes<10 then mes="0" & cstr(mes)
'ano=year(data)
'if ano <1900 then ano= ano+1900
'vData=cstr(mes)& "/" & cstr(dia)& "/" & cstr(ano)
vData = RecSet.Fields("data")
tema = RecSet.Fields("tema")
if (Len(tema) > Caracteres_do_Tema) then
a = Left(tema,Caracteres_do_Tema)
b = a + "..."
else
b = tema
end if
%>
