[Kars10]

Here is the smilie-code from PhbBB.
Maybe we could re-write this for vb?!?

PHP Code:

// DB queries for top Smileys: 

$query = "SELECT * FROM smiles GROUP BY smile_url"; 

$all_smileys = mysql_query($query, $db); 

$topten = array(); 
$total_smiles = 0; 

while ($aktsmile = mysql_fetch_array($all_smileys))  { 

     $aktcount = 0; 
     
     
    $query2 = "SELECT post_text FROM posts_text 
              WHERE post_text LIKE '%$aktsmile[smile_url]%'"; 
               
    $all_posts = mysql_query($query2, $db);           
    while ($aktpost = mysql_fetch_array($all_posts)) { 

         $aktcount = $aktcount + substr_count ($aktpost[post_text], $aktsmile[smile_url]); 
    }   
     

    $topten[$aktsmile[smile_url]] = $aktcount; 
    $total_smiles = $total_smiles + $aktcount; 
     
    }