Aspjpg

[daniel.pod 0]

Fala ai galera...

Estou com um probleminha, tipo eu tenho esse codigo aqui

Set ImagemPQ = Server.CreateObject("Persits.Jpeg")	ImagemPQ.Open("C:\Domains\domain.COM.BR\wwwroot\janela_fotos.jpg")		'---gera imagem pequena	largura = 100 '---define a largura e altura... q no seu caso eh 50 ne...	altura = 100	if ImagemPQ.OriginalHeight < altura AND ImagemPQ.OriginalWidth < largura then	'---altura e largura menor q o definido / somente preencher com branco	limite1 = (cInt(ImagemPQ.OriginalWidth - largura)/2)	limite2 = (cInt(ImagemPQ.OriginalHeight - altura)/2)	ImagemPQ.Crop limite1, limite2, (largura + limite1), (altura + limite2)	else	'---altura e largura maior q o definido / redimensionar	temp1 = largura * ImagemPQ.OriginalHeight / ImagemPQ.OriginalWidth	if temp1 > altura then	 ImagemPQ.Width = largura	 ImagemPQ.Height = ImagemPQ.Width * ImagemPQ.OriginalHeight / ImagemPQ.OriginalWidth	 limite = (cInt(ImagemPQ.Height - altura)/2) - 1	 ImagemPQ.Crop 0, limite, largura, (limite + altura) 	else	 ImagemPQ.Height = altura	 ImagemPQ.Width = ImagemPQ.Height * ImagemPQ.OriginalWidth / ImagemPQ.OriginalHeight 	 limite = (cInt(ImagemPQ.Width - largura)/2) - 1	 ImagemPQ.Crop limite, 0, (limite + largura), altura	end if	end if 	ImagemPQ.Save("C:\Domains\domain.COM.BR\wwwroot\imgs")

Tipo esse codigo aqui é pra redimensionar o tamanho da minha imagem, quando rodo ele, dá um erro tipo assim:

 

Persits.Jpeg.1 error '800a0001'

 

Access is denied.

 

/teste.asp, line 28

 

tipo a linha 28 é essa aqui:

 

ImagemPQ.Save("C:\Domains\domain.COM.BR\wwwroot\imgs")

 

Será que é problema com o pessoal do host?

 

Grato a todos.

[arr 0]

Falta permissão de escrita na pasta.Solicite ao suporte de seu host.

[Mário Monteiro 179]

com certeza falta permissão...