probleme de select imbriqué
voilà j'ai un probleme j'ai un formulaire avec des liste deroulantes (a choix multiple aussi) et je veux recuperer ces valeur pour les inserer dans un tableau. Ceci dit chaque liste n'est pas obligatoirement renseigner en fait c'est un peu comme un affinement de la requete si je puis dire donc voilà le code si vous pouviez m'aider ce serai sypmpa en fait la ca marche pas du tou que je renseigne ou non les champs la requete et toujours la même (en plus mes valeur ne passe passe pas dans les request mais ca c'est une autre histoire...) a oui je travaille en ASP/VbScript MERCI
bu = Request.Form("Chox1")
da1 = Request.Form("date")
da2 = Request.Form("date2")
an = Request.Form("annee")
ty = Request.Form("Type1")
ori = Request.Form("Origine1")
dom = Request.Form("Dom1")
nis = Request.Form("NatInstal1")
nic = Request.Form("NatIncid1")
response.write bu
response.write ty
response.write ori
requete="SELECT annee,num,date,table_principale.reference FROM table_document,table_principale WHERE table_principale.reference=table_document.reference AND typerex='"&ty&"' "
vand = "AND"
if ori <> "Sélectionnez votre choix" then
requete=requete & vand & " originerex='"&ori&"'"
vand="AND"
end if
if dom <> "" then
requete=requete & vand & " domainereglementaire='"&dom&"'"
vand="AND"
end if
if nis <> "" then
requete=requete & vand & " natureinstallation='"&nis&"'"
vand="AND"
end if
if nic <> "" then
requete=requete & vand & " natureincident='"&nic&"'"
end if
sql=requete
response.write sql
'Set RS = Server.CreateObject("ADODB.RecordSet")
'RS.Open sql, BaseLink
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" height="107" bgcolor="#CCCCFF">
<tr>
<td width="100%" height="107">
<table border="2" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="68" bgcolor="#FFFFFF">
<tr>
<td width="100%" height="68">
<p align="center"><font size="6">Gestion des fiches de retour
d'expérience</font><p align="center"><font size="5">Affichage des fiches
</font></td>
</tr>
</table>
</td>
</tr>
</table>
<p align="left"><font size="4">(Cliquer sur la référence pour accéder au
document)</font></p>
<p align="center"><u>En cas d'absence de liens sur la référence veuillez
contacter le pôle sécurité de la DRI au 711202</u></p>
<p align="left"> </p>
<p align="left"><font size="2"><a href="index.asp">Accueil</a> - <a href="consultation.asp">Formulaire de recherche</a> - Tableau d'affichage des
fiches</font></p>
<center>
<table border="2" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="101%" id="AutoNumber1" height="160">
<tr>
<td width="7%" height="24">
<p align="center"><b>Année</b></td>
<td width="16%" height="24">
<p align="center"><b>N° d'enregistrement</b></td>
<td width="15%" height="24">
<p align="center"><b>Date de l'événement</b></td>
<td width="34%" height="24">
<p align="center"><b>Référence (nom du document)</b></td>
</tr>
<%'do while not RS.eof%>
<tr>
<td width="7%" height="29">
<p align="center"><%'=RS("annee")%>
</td>
<td width="16%" height="29">
<p align="center"><%'=RS("num")%>
</td>
<td width="15%" height="29">
<p align="center"><%'=RS("date")%>
</td>
<td width="34%" height="29">
<p align="center"><%'=RS("reference")%>
</td>
</tr>
<%' RS.movenext
'loop%>
</table></center>
</form>
</body>
</html>
Répondre avec citation
Envoyé par Fred_D
Partager