Persists Upload

[FuGs 0]

Pessoal estou com um problema em um sistema desenvolvido por um amigo. Acontece que ele viajou e não estou conseguindo contata-lo.

Será que tem jeito de me darem uma luz nesse código e fazer funcionar?

 

o erro é:

Microsoft VBScript runtime error '800a01b6'

 

Object doesn't support this property or method: 'imagem.Save'

 

/funcoes/uploadImagem.asp, line 42

O codigo original esta aqui

 

<!--#include file="../config.asp"-->
<!--#include file="../funcoes/especiais.asp"-->
<!--#include file="../conexao/conecta.asp"-->
<%
	'Arquivo que faz o updload da imagem do veiculo
	
	'Criando Objeto
	set upload = Server.CreateObject("Persits.Upload")
	count = Upload.Save

	'Fazendo os requests
	idVeiculo = Replace(Trim(upload.form("idVeiculo")),"'","")
	idServico = Replace(Trim(upload.form("idServico")),"'","")
	campo	  = Replace(Trim(upload.form("campo")),"'","")
	t	  = UCase(Replace(Trim(upload.form("t")),"'",""))
	idOrganizacao = Replace(Trim(upload.form("idOrganizacao")),"'","")
	
	If t <> "V" Then
		t = "S"
	End If
		
	'Definindo a pasta
	If t = "V" Then
		Pasta = "../" & CVVeiculo & idOrganizacao
		pasta2= CaminhoFisico & CFVeiculo & idOrganizacao
	Else
		Pasta = "../" & CVServico & idOrganizacao
		pasta2= CaminhoFisico & CFServico & idOrganizacao
	End If

	'response.write pasta
	'response.write "<br>" & pasta2
	'response.end
	
	'Upload.CreateDirectory Pasta, true
	CriaPasta pasta2
	
	'Fazendo Upload
	set imagem = upload.files("arquivo")
	foto = Left(imagem.FileName, Len(imagem.FileName)-4) & GerarChave() & Right(imagem.FileName, 4)
	foto = Right(foto, 30)
	imagem.Save Server.MapPath(Pasta & "/" & foto)
	
	'Tratando a Imagem (Criando Miniatura)
	Set Jpeg = Server.CreateObject("Persits.Jpeg")
	jpeg.open Pasta2 & "/" & foto
	jpeg.width = m_largura
	jpeg.height = m_altura
	jpeg.Quality = 50
	Jpeg.Save Pasta & "/" & Left(foto, Len(foto)-4) & miniatura & Right(foto, 4)
	jpeg.close
	Set jpeg = nothing
	
	'Tratando Imagem (Tamanho Grande)
	set Jpeg = Server.CreateObject("Persits.Jpeg")
	jpeg.open Pasta2 & "/" & foto
	jpeg.width = g_largura
	jpeg.height = g_altura
	
	
	'Logotipo 
	'transparencia = "&HFFFFFF"
	'Set logo = Server.CreateObject("Persits.Jpeg")
	'caminho_l = Server.MapPath("../images/logotipo/logo.jpg")
	'logo.open caminho_l
	'Jpeg.DrawImage 484, 420, logo, 0.9 , transparencia, 7
	jpeg.Quality = 50
	'logo.close
	'Set logo = nothing
	
	'Salvndo Imagem como Logotipo
	Jpeg.Save Pasta & "/" & Left(foto, Len(foto)-4) & grande & Right(foto, 4)
	Jpeg.close
	Set Jpeg = nothing
	
	'Tratando a Imagem (Criando Original *Normal*)
	Set Jpeg = Server.CreateObject("Persits.jpeg")
	jpeg.open Pasta2 & "/" & foto
	jpeg.width = largura
	jpeg.height = altura
	jpeg.Quality = 50
	Jpeg.Save Pasta & "/" & foto
	jpeg.close
	Set jpeg = nothing
	
	campo = "foto" & campo
	
	'Atualizando o resgistro
	AbreConexao
	If t = "V" Then
		vSQL = "Update Veiculo set "& campo &" = '"& foto &"' where idVeiculo = "& idVeiculo
	Else
		vSQL = "Update Servico set "& campo &" = '"& foto &"' where idServico = "& idServico
	End If
	'response.write vSQL
	'response.end
	conexao.execute(vSQL)
	FechaConexao
	
	'Redirecionando
	If t = "V" Then
		response.redirect "../admin_anu/veiculo_fotos.asp?t=v&idVeiculo="&idVeiculo&"&idOrganizacao="&idOrganizacao
	Else
		response.redirect "../admin_anu/veiculo_fotos.asp?t=s&idServico="&idServico&"&idOrganizacao="&idOrganizacao
	End If

%>

 

Obrigado

[hargon 64]

Seja bem-vindo ao Fórum FuGs.

 

Caso ainda não tenha lido as Regras dos Fórum, clique aqui para conhecê-las.

 

Sobre o erro, você já leu a documentação do componente? A principio o erro é referente a propriedade que está sendo acessada mas que não existe para objeto.

 

>> Documentação

[FuGs 0]

Como assim?

Então o comando não existe?