Sobre el componente de SoftArtisans

[Zippo3000]

Hola a todos, quisiera saber como hago para obtener la extension del archivo a subir una vez que lo tomo del formulario

Set oUpLoad = Server.CreateObject("SoftArtisans.FileUp")
oUpLoad.Path = Server.MapPath( "../Pics/" )

if UCase( Right( oUpLoad.form("Img1"), 4 ) ) = ".JPG" then
oUpLoad.form("Img1").SaveAs Server.MapPath("../Pics/" & IdPro & ".jpg" )
Response.Write "<li>Imagen peque&ntilde;a cargada con &eacute;xito! (*.jpg)</li>"
elseif UCase( Right( oUpLoad.form("Img1"), 4 ) ) = ".GIF" then
oUpLoad.form("Img1").SaveAs Server.MapPath("../Pics/" & IdPro & ".gif" )
Response.Write "<li>Imagen peque&ntilde;a cargada con &eacute;xito! (*.gif)</li>"
else
Response.Write "<li>Imagen peque&ntilde;a NO CARGADA. Tipo de archivo no aceptado</li>"
end if

Mi idea era la de obtenerlo cuando lo estoy por subir, pero se guarda como .TMP en la carpeta especificada inicialmentte.

Alguien sabe de esto?
desde ya muchas gracias

[Zippo3000]

Acabo de encontrar una solucion, por lo menos temporal, de como resolver el problema de obtener la extension del archivo, usando la propiedad

oUpLoad.form("Imagen a subir").UserFileName