[xanburzum]

Envia uma imagem de tamanho grande, faz a redução para uma dimensão razoável (padrão), que pode ser usada no site, gera uma miniatura e grava em uma pasta separado.

<%
id  	= request("id")

On Error Resume Next
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = True	' sobrepõe o arquivo ?
Upload.SetMaxSize 1000000           	' tamanho máximo permitido para envio em KB
Path = "C:/inetpub/vhosts/site.com.br/httpdocs/fotos/"      	' caminho relativo ao site no servidor
Count = Upload.Save(Path)

For Each File in Upload.Files
    	foto = File.FileName                	' pega o nome do arquivo da imagem em uma variável
Next

' REDUZIR TAMANHO DA IMAGEM EM KB
Set File = Upload.Files(1)
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open( File.Path )
Jpeg.Quality = 70   	' qualidade do JPEG
Jpeg.Width = 640    	' tamanho da largura da foto a ser redimensionada
Jpeg.Height = Jpeg.OriginalHeight * Jpeg.Width / Jpeg.OriginalWidth         	' pega largura e diminui altura 

proporcional
Jpeg.Sharpen 1, 120
' Grava a imagem na pasta definida acima no Path
SavePath = Path & File.ExtractFileName

If UCase(Right(SavePath, 3)) <> "JPG" Then
  SavePath = SavePath & ".jpg"
End If
jpeg.Save SavePath

' ETAPA PARA GERAÇÃO DA MINIATURA
Set File = Upload.Files(1)
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open( File.Path )      	' pega o caminho relativo definido no Path
Jpeg.Quality = 80                   	' define a qualidade do JPEG
Jpeg.Width = 120                    	' tamanho da largura a ser criado a miniatura
Jpeg.Height = Jpeg.OriginalHeight * Jpeg.Width / Jpeg.OriginalWidth 	' pega largura e diminui altura 

proporcional
Jpeg.Sharpen 1, 120
' Grava miniatura da imagem na pasta mini dentro do caminho definido no Path
SavePath = Path & "\mini\" & File.ExtractFileName

If UCase(Right(SavePath, 3)) <> "JPG" Then
  SavePath = SavePath & ".jpg"
End If
jpeg.Save SavePath

Set Jpeg = Nothing


' se houver erro mostra mensagem e volta
If Err <> 0 Then
    	Response.Write "Desculpe, houve um erro ao enviar imagens! <br />"
    	Response.Write "<a href=""javascript:history.back();"">Voltar</a>"
Else
    	' se não houver erro, grava no banco de dados e mostra mensagem de sucesso
    	strSql = ""
    	strSql = strSql & " Update tabela SET "
    	strSql = strSql & " foto            	= '"& File.FileName &"' "
    	strSql = strSql & " Where id	= "& id &" "
    	cn.execute(strSql)
    	
    	' se houver erro relativo ao gravar no BD mostra mensagem
    	if err.number <> 0 then
            	Response.Write "Desculpe, houve um erro ao gravar no Banco de Dados! <br />"
            	Response.Write "<a href=""javascript:history.back();"">Voltar</a>"
    	else
            	' se não houver erro, mostra mensagem de sucesso e encaminha para index ou pagina
    	%>
            	<script>
                    	alert("Dados alterados com sucesso!");
                    	window.location='index.asp';
            	</script>
    	<%
    	end if 
End If  
%>