'; echo ''; include 'allhere.php'; #---------------------------------------------- #begin setup if ($_SERVER[SERVER_ADDR]!=$_SERVER[SERVER_NAME]) {$findserver=$_SERVER[SERVER_NAME]. ':' .$_SERVER[SERVER_PORT];} else {$findserver=$_SERVER[SERVER_ADDR]. ':' .$_SERVER[SERVER_PORT];} if ($_SERVER[HTTPS]=='on') {$thisserver = 'https://' .$findserver;} else {$thisserver = 'http://' .$findserver;} #echo '

ts ' .$thisserver; #ok $data_base='bidp'; #mysql $table1='direct'; $table2='countrycodes'; $connect="pear_connect"; include 'all.php'; require 'DB.php'; $connect() #mysql not mysqli or die("

Could not connect to mysql"); $link=$connect() #pear for mysql or die("

Could not link to mysql"); $link->setFetchMode(DB_FETCHMODE_ASSOC); #end setup #---------------------------------------------- ?> BIDP organisation lists: related '; echo ""; echo ''; echo '

Other organisations specifically or broadly relating to development in Botswana.

'; echo ''; $sadc=$link->getAll("SELECT cc FROM $table2 WHERE sadc=1 and cc!='bw' ORDER BY countryname"); $countsadc=count($sadc); $africa=$link->getAll("SELECT cc FROM $table2 WHERE africa=1 and cc!='bw' ORDER BY countryname"); $countafrica=count($africa); #number of countries in africa 28fe19 #$allafrica=$countafrica+1; #echo '

aa=' .$allafrica; #53 at 28fe19 $world=$link->getAll("SELECT cc FROM $table2 WHERE africa != 1 ORDER BY countryname"); $countccworld=count($world); #number of countries outside africa includes continents, strays but not africa 28fe19 #echo '

ccw=' .$countccworld; #echo '

'; #print_r($world); #ok 196 at 28fe19 echo ''; #---------------------------------------------- #---------------------------------------------- #begin first display echo '

National

'; $getnational=$link->getAll("SELECT * FROM bidp.direct WHERE jurisdiction='bw' AND name>'' AND category LIKE '%related%' ORDER BY name"); #AND exist='y' AND LEFT(deleted,10) < '1984-07-01' $countnational=count($getnational); #actual related sites #echo '

countnational=' .$countnational; #echo '

'; #print_r($getnational); echo '

'; echo ''; #echo $heading; $a=0; for ($a=0; $a<$countnational; $a++) { echo ''; echo ''; echo ''; } #echo '
' .$getnational[$a]['name']. '' .$getnational[$a]['address1']. '' .$getnational[$a]['address2']. '' .$getnational[$a]['address3']. '' .$getnational[$a]['phonework']. '
'; echo '
'; #end first display #---------------------------------------------- #---------------------------------------------- #begin second display echo '

Rest of SADC

'; #print_r($sadc); #ok $getregional=$link->getAll("SELECT * FROM bidp.direct WHERE jurisdiction != 'bw' AND (category LIKE '%related%') AND name>'' ORDER BY name"); #actual related sites echo '
'; #echo '

cs=' .$countsadc; #ok 27fe19 #echo ''; #echo $heading; $thiscode=''; $a=0; $sadccodes=''; for ($a=0; $a<$countsadc; $a++) { $thiscode=$sadc[$a]['cc']; #echo ''; #echo ''; #ok $getsadc=$link->getAll("SELECT * FROM bidp.direct WHERE jurisdiction != 'bw' AND jurisdiction='$thiscode' AND (category LIKE '%related%') AND name>'' ORDER BY name"); $countgetsadc=count($getsadc); #actual related orgs for geogroup sadc #echo ''; if ($countgetsadc>0) #there is at least 1 record { $sadclist=''; #echo ""; #echo ""; #echo ''; #echo ""; #ok $r=0; for ($r=0; $r<$countgetsadc; $r++) { #echo ''; #echo ""; #ok 28fe19 #echo ''; #ok 28fe19 $makesadc=$link->getAll("SELECT name, address1, address2, address3, phonework, jurisdiction FROM bidp.direct WHERE jurisdiction='$thiscode' AND (category LIKE '%related%') AND name>''"); #actual related orgs list for this jurisdiction #echo ''; $rname=$makesadc[$r]['name']; #echo ""; #ok 28fe19 $rad1=$getsadc[$r]['address1']; $rad2=$getsadc[$r]['address2']; $rad3=$getsadc[$r]['address3']; $rjur=$getsadc[$r]['jurisdiction']; $rwphone=$getsadc[$a]['workphone']; #echo ''; if ($r==0) {$sadclist = "";} else {$sadclist = $sadclist."";} } echo $sadclist; } } #echo '
cc=' .$thiscode. 'gs='; #print_r($getsadc); #echo '
csc=$countgetsadcgs=>'; #print_r($getsadc); #echo '
a=$a
$r $thiscodeyesms>>'; #print_r($makesadc); #echo 'rn=$rname
$rname$rad1$rad2$rad3$rwphone
$rname$rad1$rad2$rad3$rwphone
'; echo '

'; #end second display #---------------------------------------------- #---------------------------------------------- #begin third display echo '

Rest of Africa

'; ##echo '

show africa='; ##print_r($africa); $getcontinental=$link->getAll("SELECT * FROM bidp.direct WHERE jurisdiction != 'bw' AND (category LIKE '%related%') AND name>'' ORDER BY name"); $countcontinental=count($getcontinental); #all except bw #echo '

countcontinental=' .$countcontinental; #echo '

'; #print_r($getcontinental); echo '

'; #echo '

cs=' .$countafrica; #ok 27fe19 #echo ''; #echo $heading; $thiscode=''; $a=0; $africacodes=''; for ($a=0; $a<$countafrica; $a++) { $thiscode=$africa[$a]['cc']; #all codes in africa #echo ''; #echo ''; #ok $getafrica=$link->getAll("SELECT * FROM bidp.direct WHERE jurisdiction != 'bw' AND jurisdiction='$thiscode' AND (category LIKE '%related%') AND name>'' ORDER BY name"); $countgetafrica=count($getafrica); #actual related sites this geogroup #echo ''; if ($countgetafrica>0) #there is at least 1 record { $africalist=''; #echo ""; #echo ""; #echo ''; #echo ""; #ok $r=0; for ($r=0; $r<$countgetafrica; $r++) { #echo ''; #echo ""; #ok 28fe19 #echo ''; #ok 28fe19 $makeafrica=$link->getAll("SELECT name, address1, address2, address3, phonework, jurisdiction FROM bidp.direct WHERE jurisdiction='$thiscode' AND (category LIKE '%related%') AND name>''"); #actual related sites this jurisdiction #echo ''; $cname=$makeafrica[$r]['name']; #echo ""; #ok 28fe19 $cad1=$makeafrica[$r]['address1']; $cad2=$makeafrica[$r]['address2']; $cad3=$makeafrica[$r]['address3']; $cjur=$getafrica[$r]['jurisdiction']; $cwphone=$makeafrica[$a]['workphone']; #echo ''; if ($r==0) {$africalist = "";} else {$africalist = $africalist."";} } echo $africalist; } } #echo '
cc=' .$thiscode. 'gs='; #print_r($getsadc); #echo '
csc=$countgetsadcgs=>'; #print_r($getsadc); #echo '
a=$a
$r $thiscodeyesms>>'; #print_r($makesadc); #echo 'rn=$rname
$cname$cad1$cad2$cad3$cwphone
$cname$cad1$cad2$cad3$cwphone
'; echo '

'; #end third display #---------------------------------------------- #---------------------------------------------- #begin 4th display echo '

Diaspora

'; #echo '

show world='; #print_r($world); #ok 28fe19 $getworld=$link->getAll("SELECT * FROM bidp.direct WHERE (category LIKE '%related%') AND name>'' ORDER BY name"); $countworld=count($getworld); #actual related sites, named in whole world 28fe19 echo '

'; #echo 'cwc=' .$countccworld. ''; #ok 27fe19 number of codes #echo ''; #echo $heading; $thiscode=''; $a=0; $worldcodes=''; for ($a=0; $a<$countccworld; $a++) { $thiscode=$world[$a]['cc']; #all non-africa list of codes #echo ''; #echo ''; #ok but not all: why not? $getworld=$link->getAll("SELECT * FROM bidp.direct WHERE jurisdiction='$thiscode' AND (category LIKE '%related%') AND name>'' ORDER BY name"); #actual related orgs for any non-africa codes $countgetworld=count($getworld); #$countgetworld=$countgetworld-$countcontinental; #echo ''; if ($countgetworld>0) #there is at least 1 record { $worldlist=''; #echo ""; #echo ""; #echo ''; #echo ""; #ok $r=0; for ($r=0; $r<$countgetworld; $r++) { #echo ''; #echo ""; #ok 28fe19 #echo ''; #ok 28fe19 $makeworld=$link->getAll("SELECT name, address1, address2, address3, phonework, jurisdiction FROM bidp.direct WHERE jurisdiction='$thiscode' AND (category LIKE '%related%') AND name>''"); #actual related orgs for this geocode #echo ''; $wname=$makeworld[$r]['name']; #echo ""; #ok 28fe19 $wad1=$makeworld[$r]['address1']; $wad2=$makeworld[$r]['address2']; $wad3=$makeworld[$r]['address3']; $wjur=$makeworld[$r]['jurisdiction']; $wwphone=$makeworld[$a]['workphone']; if ($r==0) {$worldlist = "";} else {$worldlist = $worldlist."";} } echo $worldlist; } } echo '
cc=' .$thiscode. '
gw='; #print_r($getworld); #echo '
cgw=$countgetworldgw=>'; #print_r($getworld); #echo '
a=$a
$r $thiscodeyesms>>'; #print_r($makesadc); #echo 'rn=$rname
$wname$wad1$wad2$wad3$wwphone
$wname$wad1$wad2$wad3$wwphone
'; echo '
'; #end 4th display #---------------------------------------------- echo '

Please advise the secretary if links are broken; They are as current as our resources permit.'; echo $madehere; echo '

Started before 8se11'; echo ''; echo ''; ?>