Ajuda Com Redimencionamento (ainda não Resolvido)

[Marianne]

Fiz um codigo que funciona perfeito para o que preciso mas quando ele redimenciona distorce porque a imagem original é muito grande

já procurei codigos mas não consegui adaptar..

alguém pode me ajudar implantar aui um componente aspjpge ou outro que possa fazer isso?

Uso locaweb

Foto = "amigos"

Set Jpeg = Server.CreateObject("Persits.Jpeg")

caminho = "images/podcast/"&Foto&".jpg"

Jpeg.Open server.mappath(caminho)

altura = Jpeg.OriginalHeight

largura = Jpeg.OriginalWidth

Response.Write(largura &"x"& altura)

IF altura >= 109 THEN larguraOK = 109 else larguraOK = altura END IF

alturaOK = 74

Jpeg.close

Obrigado !!!

Editado Junho 29, 2007 por Marianne

[bareta]

sem componente

http://www.portalmaracaju.com.br/blog/arti...=60&blog=14

mais isso ficará igual... use um programa para tratar estas imagens

[Marcos-rj]

http://www.roccofroes.com/materia_descrica...teria_codigo=62

[Marianne]

gente estou usando este , funciona bem mas como posso colocar o whidth e o height formatando o tamanho que eu quero e não usar como porcentagem:

obrigada

<%

Session.Timeout = 240

Response.Expires = 0

Response.Buffer = true

Response.Clear

Response.CacheControl = "no-cache"

Response.AddHeader "Pragma", "no-cache"

Response.Expires = -1

foto = request("foto")&".jpg"

lar = request("lar")

alt = request("alt")

Set Image = Server.CreateObject("csImageFile.Manage")

Caminho = "e:\home\Web\site\images\"&foto

Image.ReadFile Caminho

Image.Resize lar, 0

Response.ContentType = "image/jpeg"

Response.BinaryWrite Image.JPGData

Set Image = Nothing

%>

[cyberalexxx]

Aqui voce tem um exemplo de redimensionamento que eu fiz para uma Loja virtual, no exemplo a largura não pode ser superior a 80:

caminho = ".\produtos" 
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open trim(server.mappath(caminho))    & "\" & mid(trim(nome_foto),2,100)
largura = Jpeg.OriginalWidth
if largura > 80 then
    indice = largura/80
    Jpeg.Width = Jpeg.OriginalWidth / indice
    Jpeg.Height = Jpeg.OriginalHeight / indice
end if
Jpeg.Save trim(server.mappath(caminho)) & "\mini_" & mid(trim(nome_foto),2,100)
Jpeg.close