Mise en page de résultat Requet dans boucles...

Bonjour, Je souhaite afficher dans 3 colonnes différentes le résultat de ma recherche. Etant donné que les résultats sont tous différents, comment faire pour que dans la colonne une seule les mots clés s'affichent, dans la colonne 2 les temoignages et dans la colonne 3 une liste d'entreprise...
Voici le code :

<table width="100%"  border="0" cellspacing="0" cellpadding="0">
                                  <tr valign="top">
                                    <td width="33%" valign="top" class="style3"><div align="center" class="style3">
                                      <div align="left"><b>Mots cl&eacute;s</b></div>
                                    </div></td>
                                    <td><div align="center" class="style3">
                                      <div align="left"><b>T&eacute;moignages et analyses </b></div>
                                    </div></td>
                                    <td width="33%"><div align="center" class="style3">
                                      <div align="left"><b>Sp&eacute;cialistes</b></div>
                                    </div></td>
                                  </tr>
                                  <tr valign="top">
                                    <td width="33%"><%

SQLrecherche1 = "SELECT dictionary_concepts.id_indices, dictionary_keywords.label_fr AS dictionary_keywords_label_fr, dictionary_keywords.id_concepts, dictionary_keywords.id AS dictionary_keywords_id FROM dictionary_concepts INNER JOIN dictionary_keywords ON dictionary_concepts.id = dictionary_keywords.id_concepts WHERE dictionary_keywords.label_fr like '%"& Vrecherche &"%' ORDER BY  dictionary_concepts.id_indices, dictionary_keywords.label_fr;"
SQLrecherche2 = ""
SQLrecherche3 = ""
SQLrecherche4 = ""
Set rsrecherche = server.createobject("ADODB.Recordset")

rsrecherche.Open SQLrecherche1, Conn, 3, 3
while not rsrecherche.EOF
Vid_indices = rsrecherche("id_indices")
Vid_keywords = rsrecherche("dictionary_keywords_id")


response.write "<a  href='../fixe_fr/definition.asp?id_indices="& Vid_indices &"&id_keywords="& rsrecherche("dictionary_keywords_id") &"'><span class='style3'>"&rsrecherche("dictionary_keywords_label_fr")&"</a><br>"

' La requête qui va bien ;)
SQLtemoignage = "SELECT * FROM company_object_expert_release_keywords WHERE company_object_expert_release_keywords.id_keyword=" & Vid_keywords & ""
' Récupère le recordset
Set temoignage = server.createobject("ADODB.Recordset")
temoignage.Open SQLtemoignage, Conn, 3, 3
while not temoignage.EOF
SQLtitretemoignage = "SELECT title_fr, id FROM company_object_expert_release WHERE company_object_expert_release.id=" & temoignage("id_expert_release") & ""
Set titretemoignage = server.createobject("ADODB.Recordset")
titretemoignage.Open SQLtitretemoignage, Conn, 3, 3
response.write "- <a  href='../fixe_fr/displaytemoignage.asp?id_expert="& titretemoignage("id") &"' align='right' class='style3'>"& titretemoignage("title_fr") &"</span></a><br><br>"
titretemoignage.close : set titretemoignage = nothing
temoignage.MOVENEXT ' fiche suivante
wend
temoignage.close : set temoignage = nothing
response.write "</td>"
response.write "<td width='33%'>"
  
SQLannuaire = "SELECT dictionary_keywords.id, company_main.level, company_object_card_index.corporate, company_object_card_index.ref_company AS company_object_card_index_ref_company, company_objects_unlink.logo_yellowpage, company_objects_main.card_paper, company_object_card_index.url FROM company_objects_main INNER JOIN ((((dictionary_keywords INNER JOIN company_object_card_index_keywords ON dictionary_keywords.id = company_object_card_index_keywords.id_keyword) INNER JOIN company_main ON company_object_card_index_keywords.ref_company = company_main.ref_company) INNER JOIN company_object_card_index ON company_main.ref_company = company_object_card_index.ref_company) INNER JOIN company_objects_unlink ON company_object_card_index.ref_company = company_objects_unlink.ref_company) ON company_objects_main.ref_company = company_object_card_index.ref_company WHERE (((dictionary_keywords.id)=" & Vid_keywords & ")) ORDER BY company_main.level, company_object_card_index.corporate;"
' Récupère le recordset
Set annuaire = server.createobject("ADODB.Recordset")
annuaire.Open SQLannuaire, Conn, 3, 3
while not annuaire.EOF
if annuaire("card_paper") = ("0") then
Vcard_paper = ("")
else
Vcard_paper = "<img src='../img_fr/guide.gif' border='0' hspace='2'>"
end if
response.write ""&Vcard_paper&"<a href='../fixe_fr/displayfiche.asp?ref_company="&annuaire("company_object_card_index_ref_company")&"'><span class='style3'><b><u>"& annuaire("corporate") &"</b></u></span></a><br><br>"
response.write ""
annuaire.MOVENEXT ' fiche suivante
wend
annuaire.close : set annuaire = nothing

response.write "</td>"


rsrecherche.MOVENEXT ' fiche suivante
wend
rsrecherche.close

%>
                                  </tr>
                                </table>