MapRoot()

Mapeia o caminho relativo para a raiz do site a partir da pasta atual.

Function MapRoot()

Dim MyPath, MyRoot
Dim MyArray
Dim i, j

MyPath = AspSelf()
MyRoot = ""
MyArray = Split(MyPath, "/")
j = UBound(MyArray) - 2

For i = j To 0 Step -1
MyRoot = MyRoot & "../"
Next

MapRoot = MyRoot

End Function