Redimensionamento na hora de upar foto

[Kal Louis]

Olá. Tenho esse código que parte peguei na net e parte fiz, e ele está upando tudo certinho. Gostaria de saber se existe a possibilidade de na hora que ele pegar a imagem redimensionar e depois gravar na pasta. Não precisa criar miniatura, só quero que ele pegue a imagem que o usuário selecionar no form anterior e redimensione, pois gravar no pasta e no banco já está certo!

Obrigado!!

<!-- #include file = "upload_funcoes.asp" -->

<%
' Chamando Funções, que fazem o Upload funcionar
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
%>
<%
' Recuperando os Dados Digitados ----------------------
'nome = UploadRequest.Item("nome").Item("Value")
'email = UploadRequest.Item("email").Item("Value")
titulo = UploadRequest.Item("titulo").Item("Value")
caso = UploadRequest.Item("caso").Item("Value")
legenda = UploadRequest.Item("legenda").Item("Value")
legenda2 = UploadRequest.Item("legenda2").Item("Value")
legenda3 = UploadRequest.Item("legenda3").Item("Value")
legenda4 = UploadRequest.Item("legenda4").Item("Value")
legenda5 = UploadRequest.Item("legenda5").Item("Value")


' Tipo de arquivo que esta sendo enviado
tipo_foto = UploadRequest.Item("foto").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_foto = UploadRequest.Item("foto").Item("FileName")

' Nome dos arquivos enviados
nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))

' Conteudo binario dos arquivos enviados
foto = UploadRequest.Item("foto").Item("Value")


' pasta onde as imagens serao guardadas
pasta = Server.MapPath("imagens")
nome_foto = ""&nome_foto
' pasta + nome dos arquivos
cfoto = nome_foto

' Fazendo o Upload do arquivo selecionado
if foto <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & "/" & nome_foto)
For i = 1 to LenB(foto)
MyFile.Write chr(AscB(MidB(foto,i,1)))
Next
MyFile.Close
end if





' Conecta-se ao Banco de Dados
'url_conexao = Server.MapPath("blog.mdb")
'set conexao = Server.CreateObject("ADODB.Connection")
'conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao 
Dim conexao
Set conexao =  Server.CreateObject("ADODB.Connection")
conexao.Open "DBQ=" & Server.MapPath("blog.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"

' cadastra os dados no banco de dados
sql = "Insert Into ps (titulo, caso, legenda, foto) values ('"&titulo&"', '"&caso&"', '"&legenda&"', '"&cfoto&"')"

conexao.Execute(sql)

' Mostra Mensagem de Confirmação na Tela
'Response.write "Dados Cadastrados com Sucesso!"

' Redireciona após 5 segundos
'response.write "<br><br>você será redirecionado em 5 segundos..<br>"
response.write "<meta http-equiv='refresh' content='1; url=list_posts.asp'/>"
%>

[bareta]

use aspjpeg ou aspimage para redimensionar

[-#Alea#-]

Eu uso ASPjpeg é um ótimo componente.

1- faz o upload normal;

'--2. Alterando Tamanho da imagem com ASPJpeg:
        
        Set Jpeg = Server.CreateObject("Persits.Jpeg") 
        
        '--Caminho da Imagem | upload.shortfilename é o nome da foto

        Path = Caminho_pasta_da_imagem&"\"&nome-da-foto

        '--Busca a Imagem na pasta
        Jpeg.Open Path 

        '--Neste caso o tamanho que eu ordenar pela proporção

        if Jpeg.Width > Jpeg.Height then
                      intXSize = 600 '600 pixel
                      intYSize = (intXSize / Jpeg.Width) * Jpeg.Height
        else
                      intYSize = 600
                      intXSize = (intYSize / Jpeg.Height) * Jpeg.Width
        end if
        
        Jpeg.Width = intXSize
        Jpeg.Height = intYSize