getFileType

<%
    ' Copyright (c) 2009, reusablecode.blogspot.com; some rights reserved.
    '
    ' This work is licensed under the Creative Commons Attribution License. To view
    ' a copy of this license, visit http://creativecommons.org/licenses/by/3.0/ or
    ' send a letter to Creative Commons, 559 Nathan Abbott Way, Stanford, California
    ' 94305, USA.
 
    ' Retrieve the file type of a given file.
    function getFileType(someFile)
        dim fs
 
        set fs = Server.CreateObject("Scripting.FileSystemObject")
        getFileType = fs.GetExtensionName(Server.MapPath(someFile))
        set fs = nothing
    end function
%>