string = Root
<% Dim strRoot strRoot = Root %>
<% Private Function Root() Root = Server.Mappath("/") End Function %>