<% tirinha = request("tirinha") IF tirinha = "" THEN ' MONTANDO A DATA diadb = day(date()) IF diadb < 10 THEN diadb = "0" & diadb END IF mesdb = month(date()) IF mesdb < 10 THEN mesdb = "0" & mesdb END IF anodb = year(date()) tirinha = anodb & mesdb & diadb END IF %>


 
 

Vinhetas TV Globo Plim Plim
 

Nova
Vinheta
Desarmamento!!!

Download

Trilha Sonora:
Nosso amigo
Gabriel O Pensador

 
         

Nosso Agradecimento a
Rede Globo de Televisão
que também aposta em
um país mais justo.
 
Vinheta Plim Plim 001
A Educação Liberta.
Download
Vinheta Plim Plim 002
Um País mais Justo.
Download

  
         
 
 
 
 
Vinheta Plim Plim 003
Antitabaco.
Download
 
Vinheta Plim Plim 004
Educação Transformando
Realidades.
Download
 
         
 
 
 
Vinheta Plim Plim
Criança Esperança
Transforma Realidades
LEITURA
Vinheta Plim Plim
Criança Esperança
Transforma Realidades
ARTE
  
 
 
 
 
 
Vinheta Plim Plim
Criança Esperança
Transforma Realidades
ESPORTE
Vinheta Cidadania
A gente vê por aqui.
DESARMAMENTO
Download
 
 
Copyright by Viva Rio / Otávio Rios / 2003
<% Function NomeTira(strInput) Dim strTemp strTemp = strInput diadb = day(strTemp) IF diadb < 10 THEN diadb = "0" & diadb END IF mesdb = month(strTemp) IF mesdb < 10 THEN mesdb = "0" & mesdb END IF anodb = year(strTemp) tira = anodb & mesdb & diadb NomeTira = tira End Function Function LinkTira(strInput) Dim strTemp strTemp = strInput diadb = day(strTemp) IF diadb < 10 THEN diadb = "0" & diadb END IF mesdb = month(strTemp) IF mesdb < 10 THEN mesdb = "0" & mesdb END IF tira2 = diadb & "/" & mesdb LinkTira = tira2 End Function %>