Discussion :

[Damish]

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>

[Mateache]

Dans ton code je ne vois pas tes listes déroulantes ...

[Damish]

jpense que tu n'en a pas besoin en plus elle sont rempli a partir d'une base de donnée c'est en fait le resultat du request qui symbolise mes liste deroulantes(ty , ori etc...) merci pour l'aide au fait

[pc75]

Bonjour,

Au début de ton code, tu as fait des response.write des variables.

As tu vérifié que toutes tes variables qui doivent contenir quelquechose s'affichent bien ?

Comment appelles tu ta page qui contient ce select ?

[Damish]

en fait deja mais ca c'est une autre histoire mes request.form sont vide et la page s'appelle AffichageDoc.asp

[Damish]

mais vraiment mon probleme c'est de former mon select jpense que le fond y est enfin je pense mais ca marche pas....

[pc75]

mais vraiment mon probleme c'est de former mon select jpense que le fond y est enfin je pense mais ca marche pas....

Si tes variables sont vides, c'est normal que ta chaine sql ne change pas, puisque tu testes la valeur de ces variables pour modifier ton sql.

PS : Peux tu nous donner le résultat du response.write sql ?