You can use:
strShortPath = Left(strPath_Info, InstrRev(strPath_Info, "/"))
where strPath_Info is http://www.xyzcompany.com/directory/asppasge.asp
and strShortPath contains: http://www.xyzcompany.com/directory/
(now that I'm typing it, I'm not sure if it also returns the / at the end, please check and if not add it)
Pierre
Join the Snitz WebRing