Faites vous aider par votre interpréteur.

En bon français voici les étapes:

1. Je vais établir ma requête SQL


2. Je me connecte à ma base
3. Je teste qu'il y a bien un résultat correspondant a ma requête, sinon je ferme ma connexion et je redirige. Ici je pourrais passer un message d’erreur mais ce n’est pas le but de cet article.
4. Je compte le nombre de colonnes de mon recordset.
5. Je crée un tableau avec. Ce tableau sera alimenté dans une boucle. Cela pourrait être utile de le conserver pendant un petit moment. En me relisant cela me fait penser qu'on pourrait mettre le résultat dans une variable de session a fin de donner la main a l'administrateur pour faire une espèce de ctrl+z... Désolé je m'égare mais ce sera peut être l'objet d'un prochain article.
6. Je fais écrire le form à mon copain asp. Je me retrouve donc avec un formulaire formaté comme je veux et rempli avec les bonnes valeurs.
7. En option, je pourrais habiller mon form en appliquant des feuilles de style ou en faisant des test sur le type de champ.

Et bien voila, après la mise en condition et l’explication passons à l’action :

<% ' une var en dur on va dire qu'elle serait recupérée comme ceci: ' request.querystring("leclient") leclient = 1 ' une requette avec jointure de quelques tables SqlClient = "SELECT * FROM ((client LEFT JOIN communication"_ &" ON client.id_client = communication.id_client) LEFT JOIN "_ &"messageinterne ON client.id_client = "_ &"messageinterne.id_client) LEFT JOIN vie_privee ON "_ &"client.id_client = vie_privee.id_client "_ &"WHERE client.id_client ="&leclient    ' Curseur de recuperation des infos de ma requette ' ------------------------------------------------ Set RsClient = Server.CreateObject("ADODB.Recordset") RsClient.ActiveConnection = Session("ConnData") RsClient.Source = SqlClient RsClient.CursorType = 1 RsClient.CursorLocation = 2 RsClient.LockType = 3 RsClient.Open() ' si je n'ai pas un seul recorset je redirige ' ------------------------------------------- if RsClient.recordcount = 1 then ' je compte le nombre de colonnes de mon recordset ' ------------------------------------------------ nbchamps = RsClient.fields.count ' Je passe a type numerique pour donner le nombre d'indices de tableau nbIndices = Cint(nbchamps) ' Création de mon tableau ' ----------------------- dim leTabNomChamps() ' redimensionnement avec le bon nombre d'indices ' ---------------------------------------------- Redim preserve leTabNomChamps(nbIndices-1) ' debut d'affichage du form ' ------------------------- leFormDebut = "<form name=""form1"" method=""post"" "_ &"action="""&votreAction&""">" response.write leFormDebut & "<br>" ' boucle pour créer mes champs de form ' ------------------------------------ for i = 0 to nbchamps-1 ' remplissage de mon tableau leTabNomChamps(i) = RsClient(i).Name LeTypeDeChamp = RsClient(i).Type response.write "<input type=""text"" name="""&RsClient(i).Name&""" "_ &" value=""" &RsClient(""&RsClient(i).Name&"") &""" "_ &"class=""contenutextarea"" maxlength=""30""> "_ &"type : "&LeTypeDeChamp&" Nom de champ : <b>"&RsClient(i).Name&"</b><br>"& Vbcrlf+Chr(13)+Chr(13) next leFormFin = "<input type=""submit"" name=""Submit"" value=""Valider les modifications""><br></form>" response.write leFormFin & "<br>" else       RsClient.Close       response.redirect ("clients.asp") end if RsClient.Close %>

Je tiens a préciser que je me suis un petit peu inspiré de cet article :
http://www.asp-php.net/tutorial/asp-php/recordset.php

Bien en guise de conclusion je dirais que c'est seulement un debut, pour l'instant je ne fais que des types texte, mais avec un peu d'imagination on pourrait adapter l'aspect visuel du formulaire.

J'espère que cela vous servira a gagner un peu de votre precieux temps.