Monday, November 08, 2010 at 12:04 AM.

on memberProfile () {
		<<8/14/02; 8:33:40 PM by JES
	local (htmltext);
	on add (s) {
		htmltext = htmltext + (s + "\r");};
	local (pta = html.getPageTableAddress ());
	local (bgcolors = {pta^.trbg1, pta^.trbg2});
	local (group = pta^.searchArgTable.g);
	local (member = pta^.searchArgTable.m);
	local (adrmember = mainResponder.members.getMemberTable (group, member));
	local (name = member);
	if defined (adrmember^ {
		name = adrmember^};
	pta^.title = "Profile for " + name;
	local (ctrows = 0);
	on tr (label, value) {
		local (bgcolor = "bgcolor=\"" + bgcolors[ (ctrows++%2) + 1] + "\"");
		add ("<tr " + bgcolor + "><td valign=\"top\">" + label + ":</td><td valign=\"top\" style=\"padding-left:10px;\">" + value + "</td></tr>")};
	add ("<blockquote><table cellpadding=\"3\" cellspacing=\"0\" border=\"0\" width=\"65%\">");
	tr ("Name", name);
	tr ("Email address", member);
	tr ("Membership group", group);
	if defined (adrmember^.hitcount) {
		tr ("Hit count", string.addCommas (adrmember^.hitcount))};
	if defined (adrmember^.discussionGroupInfo.["#discussionGroup"].highestMessageRead) {
		tr ("Highest message read", adrmember^.discussionGroupInfo.["#discussionGroup"].highestMessageRead)};
	if defined (adrmember^.lastVisit) {
		tr ("Last visit", adrmember^.lastVisit)};
	add ("</blockquote></table>");
	return (htmltext)}

This listing is for code that runs in the OPML Editor environment. I created these listings because I wanted the search engines to index it, so that when I want to look up something in my codebase I don't have to use the much slower search functionality in my object database. Dave Winer.