Upload com função ASP para verificar extensão

Boa noite! Estou com dificuldades de fazer funcionar a função em ASP para verificação / validação da extensão. Todas as imagens que eu faço upload, se eu der um response.write ele escreve a extensão .tmp mesmo sendo jpg. Por isso cai na condição do response.redirect("UploadImagemMSGERRO.asp"). Funciona se eu não usar a função, porém da erro de ASP se eu tentar carregar um arquivo que não seja uma imagem.

O que eu estou fazendo de errado?

Set upl = Server.CreateObject("SoftArtisans.FileUp")

Function extensao(nmArquivo)

nmArquivo = split(nmArquivo,".")

extensao = nmArquivo(uBound(nmArquivo))

End Function

IF ucase(extensao(upl.form("txtArquivo1"))) = JPG OR ucase(extensao(upl.form("txtArquivo1"))) = JPEG OR ucase(extensao(upl.form("txtArquivo1"))) = GIF OR ucase(extensao(upl.form("txtArquivo1"))) = BMP THEN

response.redirect("UploadImagemMSGERRO.asp")

'###ENVIA A IMAGEM E FAZ O RESIZE - INICIO

upl.Path = "Caminho da Imagem"

upl.form("txtArquivo1").Save

upl.Form("txtArquivo1").SaveAs "Caminho da Imagem"

Set upl = Nothing

Set Jpeg = Server.CreateObject("Persits.Jpeg")

'Caminho da Imagem

Path = "Caminho da Imagem"

Jpeg.Open Path

'Especifica o tamanho da imagem

Jpeg.Width = 200

Jpeg.Height = 80

'Esse método é opcional, usado para melhorar o visual da imagem

Jpeg.Sharpen 1, 150

'Cria um thumbnail e o grava no caminho especificado

Jpeg.Save "Caminho da Imagem"

set Jpeg = nothing

response.redirect("UploadImagemMSG.asp")

else

response.redirect("UploadImagemMSGERRO.asp")

end if