Bem Vindo: Home | Empresa | Localização | Tempo e Lua | Qualidade da Água | Contato | 

  <% diasemana=Weekday(date()) if diasemana=1 then diasemanaB="Domingo" end if if diasemana=2 then diasemanaB="Segunda" end if if diasemana=3 then diasemanaB="Terça" end if if diasemana=4 then diasemanaB="Quarta" end if if diasemana=5 then diasemanaB="Quinta" end if if diasemana=6 then diasemanaB="Sexta" end if if diasemana=7 then diasemanaB="Sábado" end if dia=day(date()) mes=month(date()) ano=year(date()) if mes=1 then mesB="Janeiro" end if if mes=2 then mesB="Fevereiro" end if if mes=3 then mesB="Março" end if if mes=4 then mesB="Abril" end if if mes=5 then mesB="Maio" end if if mes=6 then mesB="Junho" end if if mes=7 then mesB="Julho" end if if mes=8 then mesB="Agosto" end if if mes=9 then mesB="Setembro" end if if mes=10 then mesB="Outubro" end if if mes=11 then mesB="Novembro" end if if mes=12 then mesB="Dezembro" end if Response.Write "" Response.Write(diasemanaB&", "&dia&" de "&mesB&" de "&ano) Response.Write"" %>

  Pesk-Pag Vale das Águas© 2003
 Todos os Direitos Reservados.