$base_title = $title;
$base_title =~ s/[^\w| ]/ /g;	#Remove non-alphanumeric characters and replace them with spaces
$base_title =~ s/ {2,}/ /g;	#remove multiple spaces
$add_date = $dateadded;       
            
    @words = split (/ /, $base_title);
	$filename = $dateadded."-" . join("-",@words) . ".html";
               
    $filename_base = $filename;
    $filename_base =~ s/\.html//g;

    # check to see if filename is being used
    $SQL = "SELECT * FROM $database_table WHERE filename = '$filename'";
    &Do_SQL;
    $i=2;
    while ($pointer = $sth->fetchrow_hashref){
        $filename = $filename_base."$i.html";
        $i++;
        $SQL = "SELECT * FROM $database_table filename = '$filename'";
        &Do_SQL;
    }
    
       
        
		$SQL = "INSERT INTO $database_table (filename) 	VALUES ('filename')";
        &Do_SQL;