Problema com aspjpeg não redimensiona.

[glaucocb 0]

Boa tarde Pessoal,

 

 

li vários post e tentei aplicar o redimensionamento da foto, no caso to testando somente a primeira foto (foto1) o componente de Upload funciona normalmente. Segue código

 

<%

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.OverwriteFiles = False
Upload.SetMaxSize 60485760
Server.ScriptTimeout = 2020
Upload.Save Server.MapPath("../../imagens/")


tipo = Upload.Form("tipo")
assunto = Upload.Form("assunto")
resumo = Upload.Form("resumo")
noticiad = replace(Upload.Form("noticia"), "'", "''")
mostra = Upload.Form("mostra")
destaque = Upload.Form("destaque")


set filenome = Upload.files("foto")
set filenome2 = Upload.files("foto2")
set filenome3 = Upload.files("foto3")



If Not Filenome Is Nothing Then
foto1 = Filenome.FileName
end if
If Not Filenome2 Is Nothing Then
foto2 = Filenome2.FileName
end if
If Not Filenome3 Is Nothing Then
foto3 = Filenome3.FileName
end if

Response.Write(foto1)

'Criando o thumbnail:
Set Jpeg = Server.CreateObject("Persits.Jpeg")

'Caminho da Imagem(deve ser o caminho físico da imagem)
Path = "D:\Sites clientes\clientes ativos\Redimensionar\gerencia\imagens\" & foto1

'Busca a Imagem
Jpeg.Open Path

'Especifica o tamanho da imagem, nesse caso ela ficará 50% menor
Jpeg.Width = Jpeg.OriginalWidth \ 2
Jpeg.Height = Jpeg.OriginalHeight \ 2

'Esse método é opcional, usado para melhorar o visual da imagem
Jpeg.Sharpen 1, 150

'Cria um thumbnail e o grava no caminho abaixo
Jpeg.Save "D:\Sites clientes\clientes ativos\Redimensionar\gerencia\imagens\" & foto1

'Para enviar o thumbnail para o browser do cliente utilize o método
'SendBinary:
Response.Write jpeg.SendBinary


%>
<%
' Conecta-se ao Banco de Dados
url_conexao = Server.MapPath("../database/banco.mdb")
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

' cadastra os dados no banco de dados
sql = "Insert into nt_noticias (data, tipo, assunto, resumo, noticia, fotop, fotog, fotodestaque, mostra, destaque) values ('"& data &"','"& tipo &"','"& assunto &"', '"& resumo &"', '"& noticiad &"', '"& foto1 &"', '"& foto2 &"', '"& foto3 &"', '"& mostra &"', '"& destaque &"')"
Conexao.Execute(sql)


%>

[xanburzum 169]

tem que fazer um loop nas imgs

[glaucocb 0]

Boa noite, tentei aplicar o loop mas não deu certo, poderia citar um exemplo? Grato!

[xanburzum 169]

qual o erro gerado ?