<% ' the following would be saved as thumbnail.asp Response.Expires = 0 ' create instance of AspJpeg Set Jpeg = Server.CreateObject("Persits.Jpeg") dim th 'tipo dim img 'imagem th = request.QueryString("th") img = request.QueryString("path") pasta = request.QueryString("pasta") select case th case 1 'noticias strPath = strCaminhoFisico & "imagens\capas\noticias\" & img case 2 'noticias categorias strPath = strCaminhoFisico & "imagens\capas\noticias\categorias\" & img case 3 'produtos strPath = strCaminhoFisico & "imagens\capas\produtos\" & img case 4 'produtos categorias strPath = strCaminhoFisico & "imagens\capas\produtos\categorias\" & img case 5 'galeria strPath = strCaminhoFisico & "imagens\galerias\" & pasta & "\" & img case 6 'capa da galeria strPath = strCaminhoFisico & "imagens\capas\galerias\" & img case 7 'boletins strPath = strCaminhoFisico & "imagens\capas\boletins\" & img case 8 'representantes strPath = strCaminhoFisico & "imagens\capas\receitas\" & img case 9 'videos strPath = strCaminhoFisico & "imagens\capas\videos\" & img case 10 'pedra miniatura strPath = strCaminhoFisico & "imagens\materiais\thumb\" & img case 11'pedra close strPath = strCaminhoFisico & "imagens\materiais\close\" & img case 12 'pedra chapa strPath = strCaminhoFisico & "imagens\materiais\chapa\" & img case 13 'material categorias strPath = strCaminhoFisico & "imagens\capas\materiais\categorias\" & img case 14 'obras strPath = strCaminhoFisico & "imagens\obras\" & img case 15 'logo admin strPath = strCaminhoFisico & "imagens\capas\logo\" & img case 16 'produtos marcas strPath = strCaminhoFisico & "imagens\capas\produtos\marcas\" & img case 17 'promoções strPath = strCaminhoFisico & "imagens\capas\promocoes\" & img case 18 'agenda strPath = strCaminhoFisico & "imagens\capas\agenda\" & img case 19 'depoimentos strPath = strCaminhoFisico & "imagens\capas\depoimentos\" & img end select ''strPath = strCaminhoFisico & request.querystring("path") 'strPath = request.querystring("path") 'strPath = right(strPath, len(strpath)-32)'http://www.tudoleia.com.b/site/ 'strPath = replace(strPath, "/", "\") 'strPath = strCaminhoFisico & strPath 'response.Write(strPath) ' Open source file Jpeg.Open(strPath) ' Set new height and width Jpeg.Width = Request.querystring("Width") Jpeg.Height = Request.querystring("Height") ' send resultant image to client browser Jpeg.SendBinary %>