<% call doUserGroup() call doClear() sub doUserGroup() dim tmpTable,tt,tmpstr set tmpTable=user.getTable("group",1) tmpTable.doItemBegin() for tt=1 to tmpTable.getRow() tmpstr=tmpstr&vbcrlf&("document.write("" "&tmpTable.getItemValue("name")&" "");") tmpTable.doItemMove() next put(tmpstr) tmpstr=empty end sub %>