<% Public function curdir(lookfor) Dim file file = Request.ServerVariables("path_info") GetSubstringCount = UBound(split(file, lookfor)) If GetSubstringCount >= 1 then curdir = True Else curdir = False End If End Function %> Terra Capital