Find adresse ud fra telefon nummer

Hej Exp

Fandt denne kode her inde på exp.dk

<?php

    // Ændr nummer
    $nummer = "20 87 78 11";

    $nummer = str_replace( " ", "+", $nummer );
    $url = "http://www.degulesider.dk/vbw/super/resultat.do?compTrade=&compZip=&compCity=&compAddress=&compRegionID=&Image51.x=0&Image51.y=0&compPhone=";
    $resnum = "/<strong>Navne<\/strong>\s+- (\d+)\s+resultat\s+af <strong>(\d+)<\/strong>(.*)/s";
    $navn = '/<td class="navn" align="left" valign="middle">(.*?)<\/td>/';
    $adr = '/<table border="0" cellspacing="0" cellpadding="0">\s+<tr>\s+<td style="width: 22px;"><\/td>\s+<td>(.*?)<\/td>\s+<\/tr>\s+<\/table>/s';

    $cont = file_get_contents( $url . $nummer );

    preg_match( $resnum, $cont, $m );
    $antal = $m[2];
    $rest = $m[3];
    preg_match( $navn, $rest, $n );
    $navn = $n[1];
    preg_match( $adr, $rest, $a );
    $adresse = $a[1];
   
    echo "Der var $antal match" . ( $antal != 1 ? 'es' : '' ) . "...<br><br>";
    echo "$navn<br>";
    echo $adresse;

?>

Men koden er fra 02/01-2005 og den virker ikke mere er der nogen som kan omskrive den så den virker ?

Har selv prøvet men nu er Delphi ikke lige min beste side ;-)

Kunne også være godt hvis man kunne opdele dig i nogen flere grupper fx.

Navn
Efternavn
Adresse
Post nummer
By