<%
Option Explicit
Dim objFileSys
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
Response.Write objFileSys.GetExtensionName("c:\docs\doc1.txt") & "<P>"
Response.Write objFileSys.GetExtensionName("doc1.txt") & "<P>"
Response.Write objFileSys.GetExtensionName("doc1") & "<P>"
%>
