0) { include("/usr/home/compcan/www/upload/chtenie.php3"); $res=mysql_query("select website from isps where rnumb='$r'"); $website=mysql_result($res,0,"website"); $website="http://".str_replace("http://","",strtolower($website)); $website=urlencode($website); Header("Location: http://www.computers-canada.com/light/redir/frame.html?website=$website&vendID=$r"); $ip = getenv("REMOTE_ADDR"); $time=time(); mysql_query("insert into dir_redirect values('$r','$ip','$time')"); mysql_free_result($res); exit; } include("dirtop.php"); $res=mysql_query("select rnumb from isps"); $totnumb=mysql_num_rows($res); mysql_free_result($res); ?>

ISPs directory::

Sum total: vendors

"Canada-wide","AB"=>"Alberta","BC"=>"British Columbia","MB"=>"Manitoba","NB"=>"New Brunswick", "NF"=>"Newfoundland","NS"=>"Nova Scotia","NT"=>"Northwest Territories","NU"=>"Nunavut", "ON"=>"Ontario","PE"=>"Prince Edward Island","QC"=>"Quebec","SK"=>"Saskatchewan","YK"=>"Yukon"); $num_prov=count($p); $nsplit=1; print " "; $num_prov_split=(int) ($num_prov/$nsplit); reset($p); for($itd=1;$itd<=$nsplit;$itd++) { print "\n"; } ?>   "; $imin=($itd-1)*$num_prov_split; if($itd!=$nsplit) $imax=$itd*$num_prov_split; else $imax=$num_prov; for($i=$imin;$i<$imax;$i++) {$tempprov=key($p); $tempprovname=$p[$tempprov]; next($p); if ($tempprov=="cw") $tempprov=""; list($num)=mysql_fetch_row($res=mysql_query("select count(*) from isps where province='$tempprov'")); mysql_free_result($res); print " $tempprovname"; print " ($num) \n"; } print" If you can't find your favorite site or ISP in this directory, contact us and we'll add them.