<% 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 %>


 
 

Web Curtas do Cambito

REFLEXO
Novo filme do Cambito:

Natal 2002
Paz
Miséria da Alma
Barreiras do Saber
Ainda há tempo
Na Cidade
Natal 2003
Papai Noel Punk
Natal Criança Esperança
 
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 %>