<%
Option Explicit
Dim objFileSys
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
Response.Write objFileSys.GetAbsolutePathName("") & "<P>"
Response.Write objFileSys.GetAbsolutePathName(".\") & "<P>"
Response.Write objFileSys.GetAbsolutePathName("..\") & "<P>"
Response.Write objFileSys.GetAbsolutePathName("..\..\") & "<P>"
%>
