Source Ada du script formulaire

--
--  Samuel Tardieu 1995
--

with CGI, Text_IO; use CGI, Text_IO;

procedure Formulaire is

--  Démonstration avec la méthode POST d'un simple formulaire. La librairie
--  CGI pour Ada95 peut être trouvée à peu près partout.

begin
   
   --  Put the header
   Put_CGI_Header;

   --  Put the content
   Put_HTML_Head ("Démo de traitement d'un formulaire");
   Put_Html_Heading ("Ceci est le résultat du questionnaire", 1);
   Put_Line (Value ("nom") & " " & Value ("prenom") & ", dont la couleur ");
   Put_Line ("favorite est " & Value ("couleur") & ", vous avez répondu ");
   Put_Line (Value ("choix") & " à la question car vous pensez que ");
   Put_Line (Value ("text"));

   --  List of variables
   Put_Line ("<HR>Voici la liste des variables que vous avez saisi...<P>");
   Put_Variables;
   Put_Line ("</BODY></HTML>");

end Formulaire;