Use o instrrev do asp para obter a última posição e, em seguida, intercepte-a. Você mesmo pode testá-lo. Na verdade, o processo de programação também envolve muitos testes e aos poucos você descobrirá mais coisas boas.
Copie o código da seguinte forma:<%
'Função: Obtenha a extensão do arquivo
Function getFileExt(sFileName)
getFileExt = Mid(sFileName, InstrRev(sFileName, .) + 1)
End Function
%>