whois script

er der nogen der kan hjælpe mig med at få det Scripts at virke med disse typer

com
net
org
eu
se
info
biz
nu

<?
if ($_GET['Tjeck'])
{
    $Dot_Now = $_POST['Dot'];

    define('DK_SERVER',"whois.dk-hostmaster.dk");

    ## Tjeck funktion
    function isTaken($Server,$Domain,$Dot)
    {
        if ( $fp = fsockopen( $Server, 43, $ern, $ers, 5 ) )
        {
            fwrite( $fp, $Domain . $Dot . "\r\n" );
            $cnt = '';
            while ( !feof( $fp ) )
            {
                $cnt .= fread( $fp, 2048 );
            }
            fclose( $fp );
            return !preg_match( '!No entries found!', $cnt );
        }
    }

    // Designet toppen
    function TopDesign($Domain,$Dot,$Color)
    {
        echo '
        <table width="300" cellpadding="0" cellspacing="0" bgcolor="'. $Color .'">
        <tr>
        <td width="200">'.$Domain . $Dot .'</td>
        <td>
        ';
    }

    //Designet Bunden
    function BundDesign()
    {
        echo '
        <td>
        </tr>
        </table>
        ';
    }

    function Done_Yes()
    {
        echo '<img src="yes.gif"> Ledig';
    }
    function Done_No()
    {
        echo '<img src="no.gif"> Taget';
    }

    ## .dk domains
    if ($Dot_Now == "dk" OR $Dot_Now == "all")
    {
        function isTakenDK($domain)
        {
            if ( $fp = fsockopen( DK_SERVER , 43, $ern, $ers, 5 ) )
            {
                fwrite( $fp, $domain . "\r\n" );
                $cnt = '';
                while ( !feof( $fp ) )
                {
                    $cnt .= fread( $fp, 2048 );
                }
                fclose( $fp );
                return !preg_match( '!No entries found!', $cnt );
            }
        }
   
        TopDesign($_POST['Domain'],".dk","#EFEFEF");
   
        $domains = $_POST['Domain'] .".dk";
   
        if (isTakenDK($domains))
        {
            Done_No();
        }
        else
        {
            Done_Yes();   
        }
   
        BundDesign();
    }

}
?>