Page Not Working

[john_robot]

<?php

error_reporting(E_ALL & ~E_NOTICE);
define('NO_REGISTER_GLOBALS', 1);
define('THIS_SCRIPT','chat');


require_once('./global.php');

$advertising = "";

$direktory = "./images/banners";
$handle=opendir($direktory);
while ($file = readdir($handle)) {
$filelist[] = $file;
}
asort($filelist);
while (list ($a, $file) = each ($filelist)) {
if ($file == "." || $file == ".." || $file == "index.htm" || $file == "CVS") {
} else {

$bild = "./images/banners/$file";
$info = getimagesize($bild);
$id = filesize($bild);
$size = round ($id / 1024 ,2);

$advertising .= "<IMG SRC=\"".$vbulletin->options['bburl']."/images/banners/".$file."\"><BR>Pixel : ". $info[0] ." x " . $info[1] ." ca. ".$size." KB";

$advertising .= "
<BR>
<BR>
<table cellpadding=\"0\" cellspacing=\"0\" border=\"0\" width=\"745px\">
<tr>
<td class=\"smallfont\" align=\"left\">
Source Code to be linked:</td><td class=\"smallfont\" align=\"right\">
(Box Double-Click copies source code to clipboard)
</td>
</tr>
</table>";

$advertising .= "<a ondblclick='java_script_:window.clipboardData.setD ata(\"Text\",
this.innerText); alert(\"Source Code copied into clipboard.\");'>
<pre><div class=\"alt2\" style=\"margin:0px; padding:6px; border:1px inset;
width:745px; height:70px; overflow:auto; text-align:left\">
<code style=\"white-space:nowrap\">
&lt;!-- " . $vbulletin->options['bburl'] ." Advertising Start --&gt;<BR>
&lt;A HREF=\"".$vbulletin->options['bburl']."\"&gt;<BR>&lt;IMG SRC=\"".$vbulletin->options['bburl']."/images/banners/".$file."\" border=\"0\" &gt;&lt;/A&gt;<BR>
&lt;!-- " . $vbulletin->options['bburl'] ." Advertising End --&gt;
</code></pre>
</A><BR><BR>";

}

}

eval('$navbar = "' . fetch_template('navbar') . '";');
eval('print_output("' . fetch_template('LinkMe') . '");');

?>


The above code stopped working after I upgrade to the latest version of VB - Pls tell me what I have to do to get this working again.

The URL is http://www.hotwebhostingtalk.com/LinkMe.php