CRÉER UN FORMULAIRE À PARTIR D'UNE REQUETE SQL

//--- Affiche une requete SQL 
function AfficherFormulaire($sql,$nbChampsEnMoins=0, $TailleMax=0){
	
	$rst = mysql_query($sql);
	
	if (!$rst){
	   echo "Erreur :" . mysql_error() . "<br>";
	   
	}else{	
		//--- Nombre d'enregistrements	
		$nbLig = mysql_num_rows($rst);
		
		//--- Nombre de colonnes			
		$nbCol = mysql_num_fields($rst) - $nbChampsEnMoins;
		
		//--- Début du tableau
		echo '<table width="100%" cellpadding="0" cellspacing="0">';
		
		//--- Affichage noms des colonnes
		$i = 0;
		echo '<tr>';
		for ($j = 0; $j < $nbCol; $j++)
		{ 
		   	$type  = mysql_field_type($rst, $j);
		   	$name  = mysql_field_name($rst, $j);
		   	$len  = mysql_field_len($rst, $j);
	  		$flags = mysql_field_flags($rst, $j);

			//--- Zone de texte
			if ($type == 'string' && $len > 1){
				echo '<tr>';
				echo '	<td width="30%">'. $name . ' :';
				if ($flags == 'not_null') echo '*';
				echo '	</td>';
				echo '	<td>';
				echo '		<input type="text" name="'. $name . '"';
				echo '			value="' . $_POST[$name] . '"';
				echo '			maxlength="' . $len . '"';
				if ($len > $TailleMax){
					echo '			size="' . $TailleMax . '"></td>';
				}else{
					echo '			size="' . $len . '"></td>';
				}
				echo '	<td width="20%"></td>';
				echo '</tr>';
				
			//--- Case à cocher
			}elseif ($type == 'int' && $len == 1){
				echo '<tr>';
				echo '	<td width="30%">'. $name . ' :</td>';
				echo '	<td>';
				echo '		<input type="checkbox" name="'. $name . '"';
				echo '			value="1"';
				if ($_POST[$name] == '1'){
					echo '			checked';
				}
				echo '	class="checkbox"></td>';
				echo '	<td width="20%"></td>';
				echo '</tr>';
				
			//--- Zone de texte numérique
			}elseif ($type == 'int'){
				echo '<tr>';
				echo '	<td width="30%">'. $name . ' :';
				if ($flags == 'not_null') echo '*';
				echo '	</td>';
				echo '	<td>';
				echo '		<input type="text" name="'. $name . '"';
				echo '			value="' . $_POST[$name] . '"';
				echo '			maxlength="' . $len . '"';
				if ($len > $TailleMax){
					echo ' size="' . $TailleMax . '"></td>';
				}else{
					echo ' size="' . $len . '" onChange="if (isNaN(this.value)) this.value = \'\' ;"></td>';
				}
				echo '	<td width="20%"></td>';
				echo '</tr>';
				
			//--- Case à cocher
			}
		}
		echo '</tr>';

		//--- Fin du tableau
		echo '</table>';
	}
}