j'ai deja envoyer cette question sur le forum du langage sql mais on m' dit qu'il y avais de l'ASP et personne ne me repond donc je la pose ici :

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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
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">&nbsp;</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>