<% Dim NomesSecoes, PastasSecoes NomesSecoes = Array("", "Ambigüidades", "Fractais", "Ilusões de ótica", "Imagens 3D", _ "Objetos impossíveis", "Imagens provocantes", "Salvador Dali", "Símbolos") PastasSecoes = Array("", "ambiguidades", "fractais", "ilusoes", "3D", _ "impossiveis", "provocantes", "dali", "simbolos") // Constantes para as seções de imagens AMBIGUIDADES = 1 FRACTAIS = 2 ILUSOES = 3 I3D = 4 IMPOSSIVEIS = 5 PROVOCANTES = 6 DALI = 7 SIMBOLOS = 8 //teste() sub teste Dim v(1), v1, v2 v1 = Array("string1", 111) v2 = Array("string2", 222) v(0) = v1 v(1) = v2 response.write "
v(0,0) = " & v(0)(0) response.write "
v(0,1) = " & v(0)(1) response.write "
v(1,0) = " & v(1)(0) response.write "
v(1,1) = " & v(1)(1) end sub SUB getSecao(secao, nome, pasta) nome = NomesSecoes(secao) pasta = PastasSecoes(secao) END SUB Dim vImg(52) vImg(1) = Array(1, I3D, "Saturno", "", "3d_saturn.jpg", "", -1, -1, "") vImg(2) = Array(2, I3D, "Um cavalo ou um cachorro?", "", "estereo12_animal.gif", "", -1, -1, "") vImg(3) = Array(3, I3D, "A besta", "", "estereo7_fera.gif", "", -1, -1, "") vImg(4) = Array(4, I3D, "A hélice", "", "estereo9_hélice.gif", "", -1, -1, "") vImg(5) = Array(5, I3D, "Espiral gelada", "", "frost_spiral_small1.jpg", "", -1, -1, "") vImg(6) = Array(6, I3D, "Bule de chá e algo escrito", "", "teapot.jpg", "", -1, -1, "") SPROTT = "Autor desconhecido. Origem: sprott.physics.wisc.edu" STAN = "© Stan Hood. Origem: sprott.physics.wisc.edu" vImg(7) = Array(7, FRACTAIS, "Bouquet", "", "bouquet.jpg", SPROTT, -1, -1, "") vImg(8) = Array(8, FRACTAIS, "Bubbles", "", "bubbles.jpg", STAN, -1, -1, "") vImg(9) = Array(9, FRACTAIS, "Wings", "", "3wing5.jpg", STAN, -1, -1, "") vImg(10) = Array(10, FRACTAIS, "Scales", "", "scales.jpg", SPROTT, -1, -1, "") vImg(11) = Array(11, FRACTAIS, "Valentine", "", "valentine.jpg", SPROTT, -1, -1, "") vImg(12) = Array(12, FRACTAIS, "Tentacles", "", "tentacles.jpg", STAN, -1, -1, "") vImg(13) = Array(13, FRACTAIS, "Skipiter", "", "skipiter.gif", "Cortesia do site Mind-BogglingFractals", -1, -1, "") vImg(14) = Array(14, FRACTAIS, "Puffer", "", "puffer.gif", "Cortesia do site Mind-BogglingFractals", -1, -1, "") //Algumas imagens são trocadas usando outra página, o link de ampliação é usado para isso. SANDLOT = "© www.sandlotscience.com" vImg(15) = Array(15, AMBIGUIDADES, "O Gesto da Bailarina", "", "bailarina.jpg", "Sandro del Piero. " & SANDLOT, -1, -1, "") vImg(16) = Array(16, AMBIGUIDADES, " O moço e o velho", "", "Fatherhs.gif", SANDLOT, -1, -1, "") vImg(17) = Array(17, AMBIGUIDADES, "A moça e a velha", "", "moca_velha.jpg", "© www.illusionworks.com", -1, -1, "") vImg(18) = Array(18, AMBIGUIDADES, "Pai, mãe e filha", "", "pai_mae_filha.gif", SANDLOT, -1, -1, "") vImg(19) = Array(19, AMBIGUIDADES, "Skate nas nuvens", "(clique para ampliar)", "Nocturnal_Skating_small1.jpg", "Autor desconhecido. Enviada por Rodrigo Jorge, Brasília/DF", -1, -1, "ambiguidades/Nocturnal_Skating.jpg") vImg(20) = Array(20, AMBIGUIDADES, "De cabeça para baixo é outra coisa", "Clique para ver", "passaro.gif", SANDLOT, -1, -1, "imagem.asp?id=21") vImg(21) = Array(21, AMBIGUIDADES, "De cabeça para baixo é outra coisa", "Clique para ver", "passaroinv.gif", SANDLOT, -1, -1, "imagem.asp?id=20") vImg(22) = Array(22, AMBIGUIDADES, "Uma serenata e mais alguma coisa", "", "pic28145.jpg", "Autor desconhecido. Enviada por Débora Bellinello - Brasília/DF", -1, -1, "") vImg(23) = Array(23, AMBIGUIDADES, "Ache o casal se beijando", "Clique para uma pista", "velho_e_casal.jpg", "Autor desconhecido – enviada por Renato Danesi", -1, -1, "imagem.asp?id=24") vImg(24) = Array(24, AMBIGUIDADES, "Ache o casal se beijando", "(pista)", "velho_e_casal_dica.gif", "Autor desconhecido – enviada por Renato Danesi", -1, -1, "imagem.asp?id=23") vImg(25) = Array(25, AMBIGUIDADES, "A caveira e a moça no espelho", "", "caveira_espelho.jpg", SANDLOT, -1, -1, "") vImg(26) = Array(26, AMBIGUIDADES, "Quebra-cabeças animado", "", "Puzzle.jpg", "Autor desconhecido. Enviada por Rodrigo Jorge, Brasília/DF", -1, -1, "") MUSEUM = "© Salvador Dalí Museum" GALA = "Fonte: www.dali.art.br" vImg(27) = Array(0, DALI, "O toureiro halucinogênico", "", "dali1.jpg", MUSEUM, -1, -1, "") vImg(28) = Array(0, DALI, "Minha mulher, nua, observando seu próprio corpo transformar-se em degraus, três vértebras de uma coluna, céu e arquitetura", "", "mulher.jpg", GALA, -1, -1, "") vImg(29) = Array(0, DALI, "O conselho ecumênico", "", "ecumenical_large_small.jpg", MUSEUM, -1, -1, "") vImg(30) = Array(0, DALI, "Pietá", "", "118g.jpg", GALA, -1, -1, "") vImg(31) = Array(0, DALI, "Terceira idade, Adolescência e Infância (As Três Idades)", "", "the_three_ages.jpg", MUSEUM, -1, -1, "") vImg(32) = Array(0, DALI, "O anjo de Port Lligat", "", "31g.jpg", GALA, -1, -1, "") HOFFMAN = "© DonaldD. Hoffman" vImg(33) = Array(0, ILUSOES, "O disco vermelho não está lá", "", "neondisk.gif", HOFFMAN, -1, -1, "") vImg(34) = Array(0, ILUSOES, "A ilusão da lente", "", "lente.gif", "", -1, -1, "") vImg(35) = Array(0, ILUSOES, "A faixa azul é criação do seu sistema visual", "", "worm-anim.gif", HOFFMAN, -1, -1, "") // está é html, grande vImg(36) = Array(0, ILUSOES, "Mandalas", "", "mandalas_small.gif", "", -1, -1, "") vImg(37) = Array(0, ILUSOES, "A linha vermelha forma um quadrado perfeito", "", "ilusao_quadrado_distorcido.gif", SANDLOT, -1, -1, "") vImg(38) = Array(0, ILUSOES, "Passe os olhos pela figura para ver piscar os pequenos círculos pretos", "", "circ_pretos.jpg", "Fonte: www.grand-illusions.com)", -1, -1, "") // duas imagens vImg(39) = Array(0, ILUSOES, "Os tons de rosa das diagonais são diferentes?", "", "", "", -1, -1, "") vImg(40) = Array(0, ILUSOES, "O triângulo que não está lá", "Não há nenhum triângulo, é só sua percepção", "triangulo.jpg", "", -1, -1, "") vImg(41) = Array(0, IMPOSSIVEIS, "Quantos pilares quadrados? E redondos?", "", "torre_impossivel.jpg", SANDLOT, -1, -1, "") vImg(42) = Array(0, IMPOSSIVEIS, "A água flui por caminhos inesperados", "", "agua_imposs.jpg", "Autor: Escher © www.illusionworks.com", -1, -1, "") vImg(43) = Array(0, IMPOSSIVEIS, "Construção impossível", "", "construcao_impossivel.jpg", "Fonte: www.ilusaodeotica.com", -1, -1, "") vImg(44) = Array(0, IMPOSSIVEIS, "Triângulo impossível", "", "triang.jpg", "Autor: Oscar Reutersvärd © www.illusionworks.com", -1, -1, "") vImg(45) = Array(0, IMPOSSIVEIS, "Uma sacada muito estranha", "", "sacada.jpg", "", -1, -1, "") vImg(46) = Array(0, IMPOSSIVEIS, "Quantas patas tem o elefante?", "", "elefante_impossivel.jpg", "", -1, -1, "") vImg(47) = Array(1, PROVOCANTES, "Aiiii!!!", "", "gigante_pisando_small1.jpg", "Fonte: livro SuperStock", -1, -1, "") vImg(48) = Array(1, PROVOCANTES, "Comendo o notebook", "", "comendo_notebook_small1.jpg", "Fonte: livro SuperStock", -1, -1, "") vImg(49) = Array(1, PROVOCANTES, "Cuidado!", "", "agulha_no_balao_small1.jpg", "Fonte: livro SuperStock", -1, -1, "") vImg(50) = Array(1, PROVOCANTES, "O que vai acontecer com ele?", "", "gato_e_cachorros.jpg", "", -1, -1, "") vImg(51) = Array(51, ILUSOES, "O quadrado que não está lá", "Se você está vendo um quadrado, seu sistema visual o criou", "quadrado_azul.gif", "", -1, -1, "") vImg(52) = Array(52, ILUSOES, "Ondas", "Será que algo se move mesmo?", "rolando.gif", "", -1, -1, "") FUNCTION getDadosImagem(codImg, secao, titulo, subTitulo, credito, linkImg, largura, altura, linkAmpliacao) secao = vImg(codImg)(1) titulo = vImg(codImg)(2) subTitulo = vImg(codImg)(3) linkImg = vImg(codImg)(4) credito = vImg(codImg)(5) largura = vImg(codImg)(6) altura = vImg(codImg)(7) linkAmpliacao = vImg(codImg)(8) getDadosImagem = 0 END FUNCTION FUNCTION getDadosImagem2(codImg, secao, titulo, subTitulo, credito, linkImg, largura, altura, linkAmpliacao) subTitulo = "" credito = "" largura = -1 altura = -1 linkAmpliacao = "" secao = 0 select case codImg case 1 secao = 4 titulo = "Saturno" linkImg = "3d_saturn.jpg" end select if secao > 0 then getDadosImagem = 0 else getDadosImagem = -1 end if END FUNCTION %> Possibilimagens <% codImg = request.queryString("id") codigoImagem = "" if getDadosImagem(codImg, secao, titulo, subTitulo, credito, linkImg, largura, altura, linkAmpliacao) = 0 then getSecao secao, nome, pasta link = getLinkImagem(pasta, linkImg, largura, altura, linkAmpliacao) // response.write "
Link Imagem: " & link // tabela = getTabelaImagem(link) codigoImagem = getTitulo(titulo, subTitulo) & link & getCredito(credito) linkSecao = getLinkSecao(nome, pasta) ' usada no cabeçalho do conteúdo else codigoImagem = "

Imagem não encontrada

" end if FUNCTION getLinkImagem(pasta, linkImg, largura, altura, linkAmpliacao) tx = "

" if StrComp(linkAmpliacao,"") <> 0 then tx = tx & "" end if tx = tx & " 0 then tx = tx & " width='" & largura & "' height='" & altura & "'" end if tx = tx & "'>" if StrComp(linkAmpliacao,"") <> 0 then tx = tx & "" end if tx = tx & "

" getLinkImagem = tx END FUNCTION FUNCTION getLinkSecao(nome, pasta) getLinkSecao = "" & nome & "" END FUNCTION FUNCTION getTabelaImagem(link) getTabelaImagem = "" END FUNCTION FUNCTION getTitulo(titulo, subTitulo) tx = "

" & titulo & "

" if StrComp(subTitulo, "") <> 0 then tx = tx & "

" & subTitulo & "

" end if getTitulo = tx END FUNCTION FUNCTION getCredito(credito) if StrComp(credito, "") = 0 then tx = "Autor desconhecido" else tx = credito end if getCredito = "

 

" & tx & "

" END FUNCTION %>
BOLETIM

Saiba as novidades do site.

Seu e-mail:

 

<%=codigoImagem%>

Indique esta página para um amigo