Reduzir imagens com loop

[Marinho 0]

Estou tentando reduzir as imagens em loop esta dando erro, como eu devo proceder ?!

 

Codigo:

 

while not rs.eof

 

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

Jpeg.Open Server.MapPath("../arquivos/"&rs("imagem_produto")&"") Linha de erro

Jpeg.Width = 100

Jpeg.Height = 100

Jpeg.SendBinary

rs.movenext

wend...

 

o erro é este:

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

Objeto necessário: ''

/grafica/admin/inc_categoria_prod.asp, line 38

 

Obrigado a todos. http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Ratu 0]

qual a linha de erro ? mostre ela !

[Marinho 0]

Estou tentando reduzir as imagens em loop esta dando erro, como eu devo proceder ?!

 

Codigo:

 

while not rs.eof

 

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

Jpeg.Open Server.MapPath("../arquivos/"&rs("imagem_produto")&"") Linha de erro

Jpeg.Width = 100

Jpeg.Height = 100

Jpeg.SendBinary

rs.movenext

wend...

 

o erro é este:

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

Objeto necessário: ''

/grafica/admin/inc_categoria_prod.asp, line 38

 

Obrigado a todos. http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Consertei o problema era aqui:

 

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

 

mais agora pintou outro problema as imagens estão aparecendo em codigo binario assim:

 

ÿØÿîAdobedÿÛC %# , #&')*)-0-(0%()(ÿÀddCMYKÿÄ ÿĵ}!1AQa"q2‘¡#B±ÁRÑð$3br‚ %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyzƒ„…†‡ˆ‰Š’“”•–—˜™š¢£¤¥¦§¨©ª²³´µ¶·¸¹

ºÂÃÄÅÆÇÈÉÊÒÓÔÕÖ×ØÙÚáâãäåæçèéêñòóôõö÷øùúÿÚCMYK?ú…

 

Ajuda por favor

Obriago.

[Fernando_Bittencourt 0]

nao sei se você ta usando o ASPJPEG do modo certo...pra consultar a documentacao dele visitewww.aspjpeg.comvlw...