connect('DBI:mysql:sps:localhost', 'spsdb_user','', { PrintError => 0}) || die $DBI::errstr; my @membertypes = ("18"); # 2 is Founding, 18 is Founders foreach my $elem (@membertypes) { my $SQL = "SELECT member_type from member_type where membertype_id = \"".$elem."\""; my $cursor = $dbh->prepare($SQL); $cursor->execute; my @fields; @fields = $cursor->fetchrow; my $color; SWITCH: { if ($elem eq "2") { $color = "#543333"; } if ($elem eq "18") { $color = "#666"; } my $nothing = 1; } # my $buffer = "

$fields[0]"; # if ($elem eq "2") { # $buffer .= "s"; # } # $buffer .="

"; my $SQL2 = "SELECT fname, lname, mail_city, mail_state, url, title from member where member = \"1\" and membertype_id = \"$elem\" order by lname"; my $cursor2 = $dbh->prepare($SQL2); $cursor2->execute; my @fields2; while (@fields2 = $cursor2->fetchrow) { my $title = ""; if ($fields2[5]) { $title = ", ".$fields2[5]; } $buffer .= "

"; if ($elem != "2" and $fields2[4]) { if (!($fields2[4] =~ /^http/)) { $fields2[4] =~ s/^/http\:\/\//; } $buffer .= "".$fields2[0]." ".$fields2[1].$title.""; } else { $buffer .= $fields2[0]." ".$fields2[1].$title; } $buffer .= "
"; $buffer .= "$fields2[2], $fields2[3]


"; } $cursor2->finish; $cursor->finish; print $buffer . "
"; print "

Questions about Sustaining Members? Contact Greg Leasure at greg\@societyhq.com\.


"; } !>