Listar imagem usando ASPJPEG

[Elbrinner 0]

Estou tentando fazer um algo, primeiro tentei fazer assim:

 

ASP [/tr][tr]

<!--#include file="conexaosql.asp" -->

<%

SQL = "SELECT * FROM MPfoto where id_album = "& 1 &" "

Set Rs = Conn.Execute(SQL)

if not rs.eof then

 

'Criando o thumbnail:

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

do while not rs.eof

foto=rs("foto")

'Caminho da Imagem

Path = "c:\inetpub\wwwroot\mp\sistema\foto" & "\"&foto&" "

 

'Busca a Imagem

 

Jpeg.Open Path

 

 

L=90

jpeg.PreserveAspectRatio = True

If jpeg.OriginalWidth > jpeg.OriginalHeight Then

jpeg.Width = L

Else

jpeg.Height = L

End If

'Esse método é opcional, usado para melhorar o visual da imagem

Jpeg.Sharpen 1, 150

'Para enviar o thumbnail para o browser do cliente utilize o método SendBinary:

response.write jpeg.SendBinary

RS.movenext

loop

end if

%>

[/tr]

 

Mais nao fui capaz de listar as imagens usando aspjpeg, nesse caso só listava uma imagem e seu tamanho era maior q a imagem origina.

 

Como faço para listar?

[Elbrinner 0]

Como assim? Eu guardo primeiro a imagem com ASP [/tr][tr]Jpg.Save server.mappath("pasta/arquivo.jpg")[/tr]

e depois listo com <img>? Ou imprimo diretamente?

[Elbrinner 0]

Valeu mesmo, estou tentando fazer isso a tanto tempo q o componente venceu... :D t+

[Pevides 0]

Desse jeito esta correto..???? Funciona assim ??

[[ GuTo ] 0]

Opa!

 

E ae kdu, beleza brother!

 

Responda-me uma coisa:

 

Será que não é melhor ao cadastrar cada foto, já salvar um thumbnail referente à ela numa pasta ao invés de a todo momento que ficar gerando thumbnails pelo método binário?

 

Acho que ficar gerando thumbnails pra cada foto, cada vez q ela for vista, é desnecessário, gasta mais banda, deve haver uma perda de performance e quem sabe pode até gerar um erro.

 

Gostaria que você comentasse sobre isso.

 

Abraços! :D

[Pevides 0]

Caro Amigo ElbrinnerTem como voce postar o codigo completo como ficou que eu não intendi o final onde eu crio um novo asrquivo .asp .Desde ja agradeço