:: Programa Reciclo - Pratique essa Idéia ::

<% Randomize dim link Random_Number_Min = 1 Random_Number_Max = 9 link = Int(((Random_Number_Max-Random_Number_Min+1) * Rnd) + Random_Number_Min) %>

Projeto ECO FASHION CHIC 2016 - aprenda a criar a sua própria moda

O Projeto ECO FASHION CHIC, realizado anualmente pela Zanzini Móveis desde 2008, ganhou mais uma edição este ano. A finalidade do projeto é transformar materiais que seriam destinados ao lixo em peças de roupas que serão apresentadas em um desfile, possibilitando despertar a imaginação dentro de cada aluno envolvido e também a descoberta de novos talentos.
O desfile é realizado em parceria com as escolas que participam do Programa Reciclo.

Confira as fotos:

<% '*********************************************************************************** '* Programado por Gustavo Miguel Barbosa - 14 de Julho de 2003 * '*********************************************************************************** 'Declaração de variáveis Dim objFSO 'Cria uma instância de objeto do sistema de arquivos (File System Object) Dim objFolder 'Retorna a pasta atual Dim objFile 'Retorna o arquivo atual Dim Path 'Caminho onde as imagens estão armazenadas Dim qtdeFotos 'Conta a quantidade de fotos da pasta Dim pagAtual 'Armazena qual a página atual Dim fotoAtual 'Imagem atual Dim FileExtention 'Armazena a extensão das imagens (".jpg") Dim ErrorPage 'Debug de erro path = "thumbs" 'Inicializa a variável qtdeFotos = 0 'You can change this to a custom error page, but REMEMBER to copy the code from "index.asp" 'ErrorPage = "default.asp?GalleryError=True" 'Seta a localização das imagens e verifica se a variável não está vazia 'Set Path = Request.QueryString("Path") 'If Path = "" Then ' Response.Redirect(ErrorPage) 'End If 'Conta a quantidade de fotos dentro da pasta If qtdeFotos = 0 Then Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(Server.MapPath(Path & "/")) For Each objFile In objFolder.Files FileExtention = LCase(Right((objFile.Name), 4)) If FileExtention = ".jpg" Then qtdeFotos = Cint(qtdeFotos) + 1 End If Next 'Destroi os objetos Set objFSO = Nothing Set objFolder = Nothing Set objFile = Nothing End If 'Recebe a informação de qual é a página atual pagAtual = Cint(Request.QueryString("pagAtual")) if pagAtual = "" or pagAtual = "0" then pagAtual="1" qtdePag = "1" fotoAtual = "1" end if 'Constante que armazena a quantidade de fotos exibidas por página const qtdeFotosPag = 30 'Verifica qtas páginas serão necessárias para exibir todas as fotos restoDivisao = qtdeFotos mod qtdeFotosPag if restoDivisao = 0 then qtdePag = qtdefotos / qtdeFotosPag else qtdePag = qtdefotos / qtdeFotosPag +1 end if 'Define qual será a primeira imagem exibida na página, depois o valor é incrementado foto a foto fotoAtual = (pagAtual * qtdeFotosPag) - qtdeFotosPag %>

<% fotoAtual = fotoAtual +1 if fotoAtual <= qtdeFotos then Response.Write " " else Response.write " " end if %>	<% fotoAtual = fotoAtual +1 if fotoAtual <= qtdeFotos then Response.Write " " else Response.write " " end if %>	<% fotoAtual = fotoAtual +1 if fotoAtual <= qtdeFotos then Response.Write " " else Response.write " " end if %>	<% fotoAtual = fotoAtual +1 if fotoAtual <= qtdeFotos then Response.Write " " else Response.write " " end if %>	<% fotoAtual = fotoAtual +1 if fotoAtual <= qtdeFotos then Response.Write " " else Response.write " " end if %>
<% fotoAtual = fotoAtual +1 if fotoAtual <= qtdeFotos then Response.Write " " else Response.write " " end if%>	<% fotoAtual = fotoAtual +1 if fotoAtual <= qtdeFotos then Response.Write " " else Response.write " " end if %>	<% fotoAtual = fotoAtual +1 if fotoAtual <= qtdeFotos then Response.Write " " else Response.write " " end if %>	<% fotoAtual = fotoAtual +1 if fotoAtual <= qtdeFotos then Response.Write " " else Response.write " " end if %>	<% fotoAtual = fotoAtual +1 if fotoAtual <= qtdeFotos then Response.Write " " else Response.write " " end if %>
<% fotoAtual = fotoAtual +1 if fotoAtual <= qtdeFotos then Response.Write " " else Response.write " " end if %>	<% fotoAtual = fotoAtual +1 if fotoAtual <= qtdeFotos then Response.Write " " else Response.write " " end if %>	<% fotoAtual = fotoAtual +1 if fotoAtual <= qtdeFotos then Response.Write " " else Response.write " " end if %>	<% fotoAtual = fotoAtual +1 if fotoAtual <= qtdeFotos then Response.Write " " else Response.write " " end if %>	<% fotoAtual = fotoAtual +1 if fotoAtual <= qtdeFotos then Response.Write " " else Response.write " " end if %>
<% fotoAtual = fotoAtual +1 if fotoAtual <= qtdeFotos then Response.Write " " else Response.write " " end if %>	<% fotoAtual = fotoAtual +1 if fotoAtual <= qtdeFotos then Response.Write " " else Response.write " " end if %>	<% fotoAtual = fotoAtual +1 if fotoAtual <= qtdeFotos then Response.Write " " else Response.write " " end if %>	<% fotoAtual = fotoAtual +1 if fotoAtual <= qtdeFotos then Response.Write " " else Response.write " " end if %>	<% fotoAtual = fotoAtual +1 if fotoAtual <= qtdeFotos then Response.Write " " else Response.write " " end if %>
<% fotoAtual = fotoAtual +1 if fotoAtual <= qtdeFotos then Response.Write " " else Response.write " " end if %>	<% fotoAtual = fotoAtual +1 if fotoAtual <= qtdeFotos then Response.Write " " else Response.write " " end if %>	<% fotoAtual = fotoAtual +1 if fotoAtual <= qtdeFotos then Response.Write " " else Response.write " " end if %>	<% fotoAtual = fotoAtual +1 if fotoAtual <= qtdeFotos then Response.Write " " else Response.write " " end if %>	<% fotoAtual = fotoAtual +1 if fotoAtual <= qtdeFotos then Response.Write " " else Response.write " " end if %>
<% fotoAtual = fotoAtual +1 if fotoAtual <= qtdeFotos then Response.Write " " else Response.write " " end if %>	<% fotoAtual = fotoAtual +1 if fotoAtual <= qtdeFotos then Response.Write " " else Response.write " " end if %>	<% fotoAtual = fotoAtual +1 if fotoAtual <= qtdeFotos then Response.Write " " else Response.write " " end if %>	<% fotoAtual = fotoAtual +1 if fotoAtual <= qtdeFotos then Response.Write " " else Response.write " " end if %>	<% fotoAtual = fotoAtual +1 if fotoAtual <= qtdeFotos then Response.Write " " else Response.write " " end if %>

<% 'Rodapé da página com os links para as outras páginas for i = 1 to qtdePag %> <% if i = pagAtual then %> <% response.Write "|"&i&""%> <% else %> |<%=i%> <% end if %> <% next %> |