[Resolvido] Input file

Olá pessoal

Estou fazendo um sistema de upload com o componente ASPUpload.

Está tudo funcionando eu só tenho 2 dúvidas

1' -Existe alguma forma de pegar o nome do arquivo do input file(para poder trabalhar com a imagem na hora de fazer o redmensionamento)

2 - Existe alguma forma de modificar o nome da imagem andes de salva-lá?

Desde já agradeço! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

código:

Function Trocar_Imagem()
caminho = Request.ServerVariables("APPL_PHYSICAL_PATH")
pasta_nome = "projeto\upload_teste\imagens_user_id_=_"&auxiliar(Session("Usuario_id"))
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objUpload = Server.CreateObject("Persits.Upload")
Set objJpeg = Server.CreateObject("Persits.Jpeg")
Set Sql_Caminho = Server.CreateObject("ADODB.Command")
caminho_final = caminho&pasta_nome

If Request.QueryString("trade_image") = "tradeit" Then

If not objFSO.FolderExists(caminho_final) = True Then
set objFolder = objFSO.CreateFolder(caminho_final)
objUpload.Save(caminho_final)
objJpeg.Open(caminho_final&"\trancada.jpg")
Largura = 96
objJpeg.Width = Largura
ObjJpeg.Height = Jpeg.OriginalHeight * Largura / Jpeg.OriginalWidth
objJpeg.Save(caminho_final&"\thumb_"&Session("Usuario_id"))
Else
objUpload.Save(caminho_final)
objJpeg.Open(caminho_final&"\trancada.jpg")
Largura = 96
objJpeg.Width = Largura
ObjJpeg.Height = objJpeg.OriginalHeight * Largura /objJpeg.OriginalWidth
objJpeg.Save(caminho_final&"\thumb_"&Session("Usuario_id")&".jpg")
End If

End If

End Function