<%
'-----------------------------------------------------
'Função: ConverteJPGparaGIF(ByVal PathJpeg, ByVal PathGif)
'Converte um arquivo JPG para GIF utilizando o ASPJPEG
'Parametro:
'	PathJpeg: Caminho relativo do arquivo JPG a ser convertido
'	PathGif: Caminho relativo aonde o GIF será salvo
'Retorno: String
'	      "OK" Caso a conversão ocorra sem erros
'-----------------------------------------------------
Function ConverteJPGparaGIF(ByVal PathJpeg, ByVal PathGif)
	'Declarações e Inicializações
	Dim objJPEG, objGIF
	Set objJPEG 	= Server.CreateObject("Persits.Jpeg")
	Set objGIF 	= objJPEG.Gif 
	
	'Abrindo o arquivo JPEG
	objJPEG.Open Server.MapPath(PathJpeg)
	objJPEG.PreserveAspectRatio = True
	
	'Gerando o GIF
	objGIF.AddImage objJPEG, 0, 0
	
	'Salvando o GIF
	objGIF.Save Server.MapPath(PathGif)
	
	'Destruição dos objetos
	Set objGIF  = Nothing
	Set objJPEG = Nothing
End Function
%>