SELECT 0
CREATE CURSOR webunique (directories C(60))
INDEX ON directories TAG dir
SELECT weblog
SCAN
	thisdir = SUBSTR(csuristem, 2, AT("/", csuristem, 2)-2)
	IF NOT SEEK(thisdir, "webunique")
		INSERT INTO webunique VALUES (thisdir)
	ENDIF
ENDSCAN
RETURN