Ir para o conteúdo

Datas Comemorativas Sem Bd


Criado por Patrique, Out 10 2010 00:31

Não há respostas para este tópico
  • Por favor, faça o login para responder

#1 Patrique

Patrique
  • Patrique
  • Colaborador
  • 13 Revisões

Revisou 10 outubro 2010 - 00:31

*
REVISÃO POPULAR!

Tinha um sistema de datas comemorativas que buscava no BD, mais resolvi passar para code puro sem a necessidade de se ter BD isso é considerável já que não precisarei utilizar e fazer requisições no bd por isso.

Segue abaixo o code

<%
'autor: Patrique André (O Gostosão)
'perfil: http://forum.imasters.com.br/index.php?/user/31010-patrique/

Function Comemoracao()

   separador = "<br />"
   dia       = Day(Date)
   mes       = Month(Date)

   If mes = 01 Then
      Select Case dia
         Case 01 : comemoracao = "Confraternização Universal "& separador &" Dia Mundial da Paz"
             Case 02 : comemoracao = "Dia da Abreugrafia"
             Case 05 : comemoracao = "Criação da 1ª Tipografia no Brasil"
             Case 06 : comemoracao = "Dia de Reis "& separador &" Dia da Gratidão"
             Case 07 : comemoracao = "Dia da Liberdade de Cultos"
             Case 08 : comemoracao = "Dia do Fotógrafo"
             Case 09 : comemoracao = "Dia do Fico (1822)"
             Case 14 : comemoracao = "Dia do Enfermo"
             Case 20 : comemoracao = "Dia do Museu de Arte Moderna do RJ "& separador &" Dia do Farmacêutico"
             Case 21 : comemoracao = "Dia Mundial da Religião"
             Case 24 : comemoracao = "Dia da Previdência Social "& separador &" Dia da Constituição "& separador &" Instituição do Casamento civil no Brasil"
             Case 25 : comemoracao = "Dia do Carteiro "& separador &" Fundação de São Paulo "& separador &" Criação dos Correios e Telégrafos no Brasil"
             Case 27 : comemoracao = "Dia da Elevação do Brasil Vice-Reinado (1763)"
             Case 28 : comemoracao = "Dia da Abertura dos Portos (1808)"
             Case 30 : comemoracao = "Dia da Saudade "& separador &" Dia do Portuário "& separador &" Dia Nacional das Histórias em Quadrinhos "& separador &" Dia da Não-Violência"
             Case 31 : comemoracao = "Dia do lançamento do 1º Satélite · EUA (1958)"
      End Select
   ElseIf mes = 02 Then
      Select Case dia
             Case 02 : comemoracao = "Dia do Agente Fiscal "& separador &" Dia de Iemanjá"
             Case 05 : comemoracao = "Dia do Datiloscopista"
             Case 07 : comemoracao = "Dia do Gráfico"
             Case 09 : comemoracao = "Dia do Zelador"
             Case 11 : comemoracao = "Dia da Criação da Casa de Moeda "& separador &" Dia Mundial do Enfermo"
             Case 13 : comemoracao = "Dia Nacional do Ministério Público"
             Case 14 : comemoracao = "Dia da Amizade"
             Case 16 : comemoracao = "Dia do Repórter"
             Case 19 : comemoracao = "Dia do Esportista"
             Case 21 : comemoracao = "Dia da Conquista do Monte Castelo (1945) "& separador &" Data Festiva do Exército"
             Case 23 : comemoracao = "Dia do Rotaryano"
             Case 24 : comemoracao = "Promulgação da 1ª Constituição Republicana (1891)"
             Case 25 : comemoracao = "Dia da criação do Ministério das Comunicações"
             Case 27 : comemoracao = "Dia dos Idosos "& separador &" Dia do Agente Fiscal da Receita Federal"
             Case 28 : comemoracao = "Carnaval"
      End Select
   ElseIf mes = 03 Then
      Select Case dia
             Case 02 : comemoracao = "Dia Nacional do Turismo"
             Case 03 : comemoracao = "Dia do Meteorologista"
             Case 05 : comemoracao = "Dia do Filatelista Brasileiro "& separador &" Dia Mundial da Oração (1ª Sexta-feira do mês)"
             Case 07 : comemoracao = "Dia do Fuzileiros Navais"
             Case 08 : comemoracao = "Dia Internacional da Mulher"
             Case 10 : comemoracao = "Dia do Telefone"
             Case 12 : comemoracao = "Dia do Bibliotecário"
             Case 14 : comemoracao = "Dia do Vendedor de Livros "& separador &" Dia Nacional da Poesia "& separador &" Dia dos Animais"
             Case 15 : comemoracao = "Dia da Escola "& separador &" Dia Mundial do Consumidor"
             Case 19 : comemoracao = "Dia de São José "& separador &" Dia do Carpinteiro "& separador &" Dia do Marceneiro"
             Case 20 : comemoracao = "Início do outono"
             Case 21 : comemoracao = "Dia Universal do Teatro "& separador &" Dia Internacional Contra a Discriminação Racial"
             Case 23 : comemoracao = "Dia Mundial da Meteorologia"
             Case 26 : comemoracao = "Dia do Cacau"
             Case 27 : comemoracao = "Dia do Circo"
             Case 28 : comemoracao = "Dia do Diagramador "& separador &" Revisor"
             Case 31 : comemoracao = "Dia da Integração Nacional "& separador &" Dia da Saúde e Nutrição"
      End Select
   ElseIf mes = 04 Then
      Select Case dia
         Case 01 : comemoracao = "Dia da Mentira"
             Case 02 : comemoracao = "Dia do Propagandista"
             Case 04 : comemoracao = "Dia Nacional do Parkinsoniano"
             Case 06 : comemoracao = "Sexta-feira Santa"
             Case 07 : comemoracao = "Dia do Corretor "& separador &" Dia do Jornalismo "& separador &" Dia do Médico Legista "& separador &" Dia Mundial da Saúde"
             Case 08 : comemoracao = "Dia da Natação "& separador &" Dia do Correio "& separador &" Dia Mundial do Combate ao Câncer "& separador &" Páscoa"
             Case 09 : comemoracao = "Dia Nacional do Aço"
             Case 10 : comemoracao = "Dia da Engenharia"
             Case 12 : comemoracao = "Dia do Obstetra"
             Case 13 : comemoracao = "Dia do Office-Boy "& separador &" Dia dos Jovens"
             Case 14 : comemoracao = "Dia Pan-Americano"
             Case 15 : comemoracao = "Dia da Conservação do Solo "& separador &" Dia Mundial do Desenhista "& separador &" Dia do Desarmamento Infantil"
             Case 18 : comemoracao = "Dia Nacional do Livro Infantil "& separador &" Dia de Monteiro Lobato"
             Case 19 : comemoracao = "Dia do Exército Brasileiro "& separador &" Dia do Índio"
             Case 20 : comemoracao = "Dia do Diplomata"
             Case 21 : comemoracao = "Tiradentes "& separador &" Dia da Latinidade "& separador &" Dia da Polícia Civil "& separador &" Dia do Metalúrgico"
             Case 22 : comemoracao = "Descobrimento do Brasil "& separador &" Dia da Força Aérea Brasileira "& separador &" Dia da Comunidade luso-brasileira"
             Case 23 : comemoracao = "Dia de São Jorge "& separador &" Dia Mundial do Escoteiro"
             Case 24 : comemoracao = "Dia do Agente de Viagem "& separador &" Dia Internacional do Jovem Trabalhador"
             Case 25 : comemoracao = "Dia do Contabilista "& separador &" Dia da ONU"
             Case 26 : comemoracao = "Dia do Goleiro "& separador &" Dia da 1ª Missa no Brasil"
             Case 27 : comemoracao = "Dia da Empregada Doméstica "& separador &" Dia do Sacerdote"
             Case 28 : comemoracao = "Dia da Educação "& separador &" Dia da Sogra"
             Case 30 : comemoracao = "Dia do Ferroviário "& separador &" Dia Nacional da Mulher"
      End Select
   ElseIf mes = 05 Then
      Select Case dia
         Case 01 : comemoracao = "Dia Mundial do Trabalho"
         Case 02 : comemoracao = "Dia Nacional do Ex-combatente "& separador &" Dia do Taquígrafo"
         Case 03 : comemoracao = "Dia do Sertanejo"
         Case 05 : comemoracao = "Dia de Rondon "& separador &" Dia da Comunidade "& separador &" Dia Nacional do Expedicionário "& separador &" Dia do Pintor"
         Case 06 : comemoracao = "Dia do Cartógrafo"
         Case 07 : comemoracao = "Dia do Oftalmologista "& separador &" Dia do Silêncio"
         Case 08 : comemoracao = "Dia da Vitória "& separador &" Dia do Profissional Marketing "& separador &" Dia do Artista Plástico "& separador &" Internacional da Cruz Vermelha"
         Case 09 : comemoracao = "Dia da Europa"
         Case 10 : comemoracao = "Dia da Cavalaria "& separador &" Dia do Campo"
         Case 11 : comemoracao = "Integração do Telégrafo no Brasil"
         Case 12 : comemoracao = "Dia Mundial do Enfermeiro"
         Case 13 : comemoracao = "Dia da Ascenção "& separador &" Abolição da Escravatura "& separador &" Dia da Fraternidade Brasileira "& separador &" Dia do Automóvel"
         Case 14 : comemoracao = "Dia das Mães "& separador &" Dia Continental do Seguro"
         Case 15 : comemoracao = "Dia do Assistente Social "& separador &" Dia do Gerente Bancário"
         Case 16 : comemoracao = "Dia do Gari"
         Case 17 : comemoracao = "Dia Internacional da Comunicação e das Telecomunicações "& separador &" Dia da Constituição"
         Case 18 : comemoracao = "Dia dos Vidreiros "& separador &" Dia Internacional dos Museus"
         Case 19 : comemoracao = "Dia dos Acadêmicos do Direito"
         Case 20 : comemoracao = "Dia do Comissário de Menores"
         Case 21 : comemoracao = "Dia da Língua Nacional"
         Case 22 : comemoracao = "Dia do Apicultor"
         Case 23 : comemoracao = "Dia da Juventude Constitucionalista"
         Case 24 : comemoracao = "Dia da Infantaria "& separador &" Dia do Café "& separador &" Dia do Datilógrafo "& separador &" Dia do Detento "& separador &" Dia do Telegrafista "& separador &" Dia do Vestibulando"
         Case 25 : comemoracao = "Dia da Indústria "& separador &" Dia do Massagista "& separador &" Dia do Trabalhador Rural"
         Case 27 : comemoracao = "Ascenção "& separador &" Dia do Profissional Liberal"
         Case 29 : comemoracao = "Dia do Estatístico "& separador &" Dia do Geógrafo"
         Case 30 : comemoracao = "Dia da Decoração "& separador &" Dia do Geólogo "& separador &" Dia das Bandeiras"
         Case 31 : comemoracao = "Dia do Comissário de Bordo "& separador &" Dia Mundial das Comunicações Sociais "& separador &" Dia do Espírito Santo"
      End Select
   ElseIf mes = 06 Then
      Select Case dia
         Case 01 : comemoracao "Dia de Caxias "& separador &" Primeira transmissão de TV no Brasil"
         Case 03 : comemoracao "Dia Mundial do Administrador de Pessoal"
         Case 05 : comemoracao "Dia da Ecologia "& separador &" Dia Mundial do Meio Ambiente"
         Case 07 : comemoracao "Dia da Liberdade de Imprensa"
         Case 08 : comemoracao "Dia do Citricultor "& separador &" Dia do Porteiro"
         Case 09 : comemoracao "Dia do Tenista "& separador &" Dia da Imunização "& separador &" Dia Nacional de Anchieta"
         Case 10 : comemoracao "Dia da Artilharia "& separador &" Dia da Língua Portuguesa "& separador &" Dia da Raça"
         Case 11 : comemoracao "Dia da Marinha Brasileira "& separador &" Dia do Educador Sanitário"
         Case 12 : comemoracao "Dia do Correio Aéreo Nacional "& separador &" Dia dos Namorados"
         Case 13 : comemoracao "Dia de Santo Antônio "& separador &" Dia do Turista"
         Case 14 : comemoracao "Dia do Solista "& separador &" Dia Universal de Deus"
         Case 15 : comemoracao "Corpus Christi"
         Case 17 : comemoracao "Dia do Funcionário Público Aposentado"
         Case 18 : comemoracao "Dia do Químico "& separador &" Imigração Japonesa      Case"
         Case 19 : comemoracao "Dia do Cinema Brasileiro"
         Case 20 : comemoracao "Dia do Revendedor"
         Case 21 : comemoracao "Dia da Mídia "& separador &" Dia do Imigrante "& separador &" Dia Universal Olímpico "& separador &" Início do inverno"
         Case 24 : comemoracao "Dia das Empresas Gráficas "& separador &" Dia de São João "& separador &" Dia Internacional do Leite"
         Case 27 : comemoracao "Dia Nacional do Progresso"
         Case 28 : comemoracao "Dia da Renovação Espiritual"
         Case 29 : comemoracao "Dia de São Pedro e São Paulo "& separador &" Dia do Papa "& separador &" Dia da Telefonista "& separador &" Dia do Pescador"
         Case 30 : comemoracao "Dia do Economista"
      End Select
   ElseIf mes = 07 Then
      Select Case dia
         Case 01 : comemoracao "Dia da vacina BCG"
         Case 02 : comemoracao "Dia do Hospital "& separador &" Dia do Bombeiro Brasileiro"
         Case 04 : comemoracao "Dia Internacional do Cooperativismo "& separador &" Independência dos EUA"
         Case 06 : comemoracao "Dia da criação do IBGE"
         Case 08 : comemoracao "Dia do Panificador"
         Case 09 : comemoracao "Dia da Revolução e do Soldado Constitucionalista"
         Case 10 : comemoracao "Dia da Pizza"
         Case 13 : comemoracao "Dia do Engenheiro de Saneamento "& separador &" Dia do Cantor "& separador &" Dia Mundial do Rock"
         Case 14 : comemoracao "Dia do Propagandista de Laboratório "& separador &" Dia da Liberdade de Pensamento"
         Case 15 : comemoracao "Dia Nacional dos Clubes"
         Case 16 : comemoracao "Dia do Comerciante"
         Case 17 : comemoracao "Dia de Proteção às Florestas"
         Case 19 : comemoracao "Dia da Caridade "& separador &" Dia Nacional do Futebol"
         Case 20 : comemoracao "Dia do Amigo e Internacional da Amizade "& separador &" Dia da 1ª Viagem à Lua (1969)"
         Case 23 : comemoracao "Dia do Guarda Rodoviário"
         Case 25 : comemoracao "Dia de São Cristóvão "& separador &" Dia do Colono "& separador &" Dia do Escritor "& separador &" Dia do Motorista"
         Case 26 : comemoracao "Dia da Vovó"
         Case 27 : comemoracao "Dia do Motociclista"
         Case 28 : comemoracao "Dia do Agricultor"
      End Select
   ElseIf mes = 08 Then
      Select Case dia
         Case 01 : comemoracao "Dia Nacional do Selo"
         Case 03 : comemoracao "Dia do Tintureiro"
         Case 05 : comemoracao "Dia Nacional da Saúde"
         Case 08 : comemoracao "Dia do Pároco "& separador &" Dia dos Bandeirantes"
         Case 11 : comemoracao "Dia da Televisão "& separador &" Dia do Advogado "& separador &" Dia do Estudante "& separador &" Dia do Garçom"
         Case 12 : comemoracao "Dia Nacional da Artes"
         Case 13 : comemoracao "Dia do Economista "& separador &" Dia dos Pais"
         Case 15 : comemoracao "Assunção de Nossa Senhora "& separador &" Dia da Informática "& separador &" Dia dos Solteiros"
         Case 19 : comemoracao "Dia do Artista de Teatro "& separador &" Dia Mundial da Fotografia"
         Case 22 : comemoracao "Dia do Folclore"
         Case 23 : comemoracao "Dia da Injustiça"
         Case 24 : comemoracao "Dia da Infância "& separador &" Dia dos Artistas "& separador &" Dia de São Bartolomeu"
         Case 25 : comemoracao "Dia do Exército Brasileiro "& separador &" Dia do Feirante "& separador &" Dia do Soldado"
         Case 27 : comemoracao "Dia do Corretor de Imóveis "& separador &" Dia do Psicólogo"
         Case 28 : comemoracao "Dia da Avicultura "& separador &" Dia dos Bancários"
         Case 29 : comemoracao "Dia Nacional do Combate do Fumo"
         Case 31 : comemoracao "Dia da Nutricionista"
      End Select
   ElseIf mes = 09 Then
      Select Case dia
         Case 01 : comemoracao "Início da Semana da pátria"
         Case 02 : comemoracao "Dia do Repórter Fotográfico "& separador &" Dia Internacional do Livro Infantil"
         Case 03 : comemoracao "Dia do Guarda Civil "& separador &" Dia do Biólogo"
         Case 05 : comemoracao "Dia Oficial da Farmácia "& separador &" Dia da Amazônia"
         Case 06 : comemoracao "Dia do Alfaiate "& separador &" Data do Hino Nacional "& separador &" Dia do Barbeiro"
         Case 07 : comemoracao "Independência do Brasil"
         Case 08 : comemoracao "Dia Internacional da Alfabetização"
         Case 09 : comemoracao "Dia do Administrador "& separador &" Dia do Médico Veterinário "& separador &" Dia da Velocidade"
         Case 10 : comemoracao "Dia da Imprensa "& separador &" Fundação do 1º Jornal do Brasil"
         Case 13 : comemoracao "Dia do Agrônomo"
         Case 14 : comemoracao "Dia da Cruz "& separador &" Dia do Frevo"
         Case 16 : comemoracao "Dia Internacional para a Preservação da Camada de Ozônio"
         Case 17 : comemoracao "Dia da Compreensão Mundial"
         Case 18 : comemoracao "Dia dos Símbolos Nacionais"
         Case 19 : comemoracao "Dia de São Geraldo "& separador &" Dia do Teatro"
         Case 20 : comemoracao "Dia do Funcionário Municipal "& separador &" Dia do Gaúcho "& separador &" Dia da Polícia Civil"
         Case 21 : comemoracao "Dia da Árvore "& separador &" Dia do Fazendeiro "& separador &" Dia do Radialista"
         Case 22 : comemoracao "Data da Juventude do Brasil"
         Case 23 : comemoracao "Início da primavera "& separador &" Dia do Soldador"
         Case 25 : comemoracao "Dia Nacional do Trânsito"
         Case 26 : comemoracao "Dia Interamericano das Relações Públicas"
         Case 27 : comemoracao "Dia de Cosme e Damião "& separador &" Dia do Ancião "& separador &" Dia do Encanador "& separador &" Dia Mundial de Turismo"
         Case 28 : comemoracao "Dia da Lei do Ventre Livre"
         Case 29 : comemoracao "Dia do Anunciante "& separador &" Dia do Petróleo "& separador &" Dia do Professor de Educação Física"
         Case 30 : comemoracao "Dia da Secretária "& separador &" Dia da Navegação "& separador &" Dia Mundial do Tradutor "& separador &" Dia Nacional do Jornaleiro"
      End Select
   ElseIf mes = 10 Then
      Select Case dia
         Case 01 : comemoracao "Dia Internacional da Terceira Idade "& separador &" Dia de Santa Terezinha "& separador &" Dia do Vendedor "& separador &" Dia Nacional do Vereador"
         Case 03 : comemoracao "Dia Mundial do Dentista "& separador &" Dia do Petróleo Brasileiro "& separador &" Dia das Abelhas"
         Case 04 : comemoracao "Dia da Natureza "& separador &" Dia do Barman "& separador &" Dia do Cão "& separador &" Dia do Poeta "& separador &" Dia de São Francisco de Assis"
         Case 05 : comemoracao "Dia das Aves "& separador &" Dia Mundial dos Animais "& separador &" Dia da promulgação da Constituição Brasileira de 1988"
         Case 07 : comemoracao "Dia do Compositor"
         Case 08 : comemoracao "Dia do Nordestino"
         Case 09 : comemoracao "Dia do Açougueiro e profissionais do setor"
         Case 10 : comemoracao "Semana da Ciência e Tecnologia "& separador &" Dia Mundial do Lions Clube"
         Case 11 : comemoracao "Dia do Deficiente Físico "& separador &" Dia do Teatro Municipal"
         Case 12 : comemoracao "Dia de Nossa Senhora Aparecida "& separador &" Dia da Criança "& separador &" Dia do Atletismo "& separador &" Dia do Engenheiro Agrônomo "& separador &" Dia do Mar "& separador &" Dia do Descobrimento da América"
         Case 13 : comemoracao "Dia do Fisioterapeuta"
         Case 14 : comemoracao "Dia Nacional da Pecuária"
         Case 15 : comemoracao "Dia do Normalista "& separador &" Dia do Professor"
         Case 16 : comemoracao "Dia Mundial da Alimentação "& separador &" Dia da Ciência e Tecnologia"
         Case 17 : comemoracao "Dia da Indústria Aeronáutica Brasileira "& separador &" Dia do Eletricista"
         Case 18 : comemoracao "Dia do Médico "& separador &" Dia do Estivador "& separador &" Dia do Securitário "& separador &" Dia do Pintor"
         Case 21 : comemoracao "Dia do Contato "& separador &" Dia Internacional do Controlador de Vôo"
         Case 23 : comemoracao "Dia da Aviação e do Aviador"
         Case 24 : comemoracao "Dia das Nações Unidas - ONU"
         Case 25 : comemoracao "Dia da Democracia "& separador &" Dia do Dentista Brasileiro "& separador &" Dia do Sapateiro"
         Case 28 : comemoracao "Dia de São Judas Tadeu "& separador &" Dia do Funcionário Público"
         Case 29 : comemoracao "Dia Nacional do Livro"
         Case 30 : comemoracao "Dia do Balconista "& separador &" Dia do Comerciário "& separador &" Dia da Decoração"
         Case 31 : comemoracao "Dia Mundial do Comissário de Vôo "& separador &" Dia das Bruxas - Halloween"   
      End Select
   ElseIf mes = 11 Then
      Select Case dia
         Case 01 : comemoracao "Dia de Todos os Santos"
         Case 02 : comemoracao "Dia de Finados"
         Case 03 : comemoracao "Dia do Cabeleireiro "& separador &" Dia do Barbeiro "& separador &" Instituição do Direito e Voto da Mulher (1930)"
         Case 04 : comemoracao "Dia do Inventor"
         Case 05 : comemoracao "Dia da Ciência e Cultura "& separador &" Dia do Cinema Brasileiro "& separador &" Dia do Radioamador e Técnico Eletrônica"
         Case 08 : comemoracao "Dia do Aposentado "& separador &" Dia Mundial do Urbanismo"
         Case 09 : comemoracao "Dia do Hoteleiro"
         Case 10 : comemoracao "Dia do Trigo"
         Case 11 : comemoracao "Dia do Soldado Desconhecido"
         Case 12 : comemoracao "Dia do Supermercado"
         Case 14 : comemoracao "Dia do Bandeirante"
         Case 15 : comemoracao "Proclamação da República "& separador &" Dia Nacional da Alfabetização"
         Case 16 : comemoracao "Semana da Música"
         Case 19 : comemoracao "Dia da Bandeira"
         Case 20 : comemoracao "Dia do Auditor Interno "& separador &" Dia Nacional da Consciência Negra "& separador &" Dia do Biomédico"
         Case 21 : comemoracao "Dia da Homeopatia "& separador &" Dia das Saudações"
         Case 22 : comemoracao "Dia do Músico"
         Case 23 : comemoracao "Dia Internacional do Livro"
         Case 25 : comemoracao "Dia Nacional do Doador de Sangue"
         Case 26 : comemoracao "Dia do Ministério Público"
         Case 28 : comemoracao "Dia Mundial de Ação de Graças"
      End Select
   ElseIf mes = 12 Then
      Select Case dia
         Case 01 : comemoracao "Dia Internacional da Luta contra a AIDS "& separador &" Dia do Imigrante "& separador &" Dia do Numismata"
         Case 02 : comemoracao "Dia Nacional do Samba "& separador &" Dia da Astronomia "& separador &" Dia Pan-americano da Saúde "& separador &" Dia Nacional das Relações Públicas"
         Case 04 : comemoracao "Dia da Propaganda "& separador &" Dia do Pedicuro"
         Case 08 : comemoracao "Dia Mundial da Imaculada Conceição "& separador &" Dia da Família "& separador &" Dia da Justiça"
         Case 09 : comemoracao "Dia da Criança Defeituosa "& separador &" Dia do Fonoaudiólogo "& separador &" Dia do Alcoólico Recuperado"
         Case 10 : comemoracao "Declaração Universal Direitos Humanos "& separador &" Dia Internacional dos Povos Indígenas "& separador &" Dia Universal do Palhaço"
         Case 11 : comemoracao "Dia do Arquiteto "& separador &" Dia do Engenheiro "& separador &" Dia do Agrônomo"
         Case 13 : comemoracao "Dia do Cego "& separador &" Dia do Marinheiro "& separador &" Dia do Ótico"
         Case 16 : comemoracao "Dia do Reservista"
         Case 19 : comemoracao "Dia do Atleta Profissional"
         Case 20 : comemoracao "Dia do Mecânico"
         Case 21 : comemoracao "Dia do Atleta"
         Case 22 : comemoracao "Início do verão"
         Case 23 : comemoracao "Dia do Vizinho"
         Case 24 : comemoracao "Dia do Órfão"
         Case 25 : comemoracao "Natal"
         Case 26 : comemoracao "Dia da Lembrança"
         Case 28 : comemoracao "Dia do Salva-vidas"
         Case 31 : comemoracao "Dia de São Silvestre "& separador &" Réveillon"
      End Select
   End If
   
   If comemoracao <> "" Then
      comemoracao = comemoracao
   Else
      comemoracao = "nada é comemorado hoje... <img src='http://code.imasters.com.br/public/style_emoticons/<#EMO_DIR#>/sad.gif' class='bbc_emoticon' alt=':(' />"
   End If
   
End Function
%>
<%=comemoracao()%>





1 usuário(s) está(ão) lendo este código

1 membro(s), 0 visitante(s) e 0 membros anônimo(s)