Discussion :

[os_rasta]

VOila je doit rendre mon site aujourd'hui, sauf il me reste des petits problème assez récurrents tout de même.

Tout d'abord, pour le formulaire administrateur, j'ai ce code:

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
<% 
                                     	dim guignol
										  	dim datarticle 
											dim nom_article 
											dim nomlien 
											dim pblarticle 
											dim objCnx 
											dim dateart 
											dim mySql
											if Len(Request.Form("Btn_enregistrer")) > 0 Then
     										flot =Request.Form("num_article")
											datarticle =Request.Form("datzrticle")
											nom_article =Request.Form("nom_article")
											dateart =Request.Form("date_article")
											nomlien =Request.Form("lien article")											
											pblarticle =Request.Form("publ_article")
											set objCnx = dbConnect("BNW0001B" , "IUSR_BNW0001B" , "VF85DS" , "") 
											mySql="Insert Into BREVE( nom_breve, date_breve, lien, num_publication) VALUES ( ' " & nomarticle & " ' , ' " & datarticle & " ' ,  ' " & nomlien & " ' , ' " & pblarticle & " ' )"										
											objCnx.Execute( mySql )
											dbDisconnect( objCnx )
											end if
											%>

Il marche mais une fois que j'ouvre lâ table brève surprise elle est bien incrémentée d'une nouvel enregistrement mais toute les valeur sont à zero?
Si quelqu'un voit d'ou ça peut venir je vois pas.

Deuxième soucis:

Lors de mon insertion d'actualité dans ma page actualité, j'ai deux tableau qui se crée pour n'importe quelle semaine. DOnc le code doit avoir une petite erreur mais je vois pas ou, car je lit bien mon tableau pour ensuite renvoyer chaque ligne sous forme de tableau sous ma page non?
VOici le code

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
<%
											if Len(Request.Form("Cmd_semaine")) > 0 Then
dim objRecordset
dim numero
dim i
dim j
dim objCnx
numero=Request.Form("num_semaine")	
i=2
j=0
dim tab (50,5)
dim SQL
set objCnx = dbConnect("BNW0001B" , "IUSR_BNW0001B" , "VF85DS" , "") 
 
 
                        SQL= " SELECT num_cas , nom_cas , lien ,date_cas , date_publication FROM CASPRATIQUE, PUBLICATION WHERE PUBLICATION.num_publication=CASPRATIQUE.num_publication ORDER BY date_publication"
 
set objRecordset=Server.CreateObject("ADODB.Recordset")
objRecordset.Open SQL, objCnx
Do While Not objRecordset.EOF
                                    tab(i, 1)=objRecodset(CStr(num_cas))
                                    tab(i,2)=objRecodset(CStr(nom_cas))
                                    tab(i,3)=objRecodset(CStr(lien))
                  					  tab(i,4)=objRecodset(CStr(date_cas))
                                     tab(i,5)=objRecodset(CStr(date_publication))
 
                                   i=i+1
 
										objRecordset.MoveNext
 
										Loop
										objRecordset.Close
										Set objRecordset=Nothing                    
	end if
											%>
 
											<%
											FOR j =1 to i
											%>
							<table border="1" width="100%" height="37">				
                            <tr>
                              <td width="87%" height="27" valign="top"><input type="text" name="Txt_titre" size="73" value="<%=tab(j,1)%>"></td>
                              <td width="13%" height="27" valign="top"><input type="text" name="date" size="20" value="<%=tab(j, 2)%>"></td>
                            </tr>
                            <tr>
                              <td width="87%" height="1">
                                <form method="POST" action="--WEBBOT-SELF--">
                                  <!--webbot bot="SaveResults" startspan
                                  U-File="_private/form_results.txt"
                                  S-Format="TEXT/CSV" S-Label-Fields="TRUE" --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="1"><!--webbot
                                  bot="SaveResults" endspan -->
                                  <p><input type="button" value="Telecharger" name="Cmd_actutel" value="<%=tab(j, 3)%>"></p>
                                </form>
                              </td>
                              <td width="13%" height="1">
                                <form method="POST" action="--WEBBOT-SELF--">
                                  <!--webbot bot="SaveResults" startspan
                                  U-File="_private/form_results.txt"
                                  S-Format="TEXT/CSV" S-Label-Fields="TRUE" --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="2"><!--webbot
                                  bot="SaveResults" endspan -->
                                  <p><input type="button" value="Commentaire" name="Cmd_commentaire" value="<%=tab(j, 4)%>"></p>
                                </form>
                              </td>
                            </tr>
 
 </table>
 
 <%
                                 NEXT 
                            %>

Voila les deux bug que j'ai sur mon site si quelqu'un pouvait m'aider merci!!
Cordialement

[Crazyblinkgirl]

Bonjour,

Pour ton premier problème, cela ne serait pas nom_article au lieu de nomarticle ? :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 mySql="Insert Into BREVE( nom_breve, date_breve, lien, num_publication) VALUES ( ' " & nom_article& " ' , ' " & datarticle & " ' ,  ' " & nomlien & " ' , ' " & pblarticle & " ' )"

Sinon affiches ta requete pour voir si tu récupères bien les valeurs.

[os_rasta]

Merci j'avais pas vu lol
Par contre ça vient pas de la lol voila la ligne de mon enregistrement sous sql server après avoir effectuer ma requete:

voila le lien:
http://rapidshare.de/files/15545018/requete.bmp.html

[Crazyblinkgirl]

Dsl je ne peux pas y accéder du taf

Tu peux essayer de tester ta requête directement en base, tu verras plus facilement ou ca coince.

[os_rasta]

Je fait comment?
response.write(Sql)

C'est ça parce que ça marche pas?

Je suis vraiment débutant en asp désolé
Mais merci de ton aide

[Crazyblinkgirl]

Oui mais avec mysql au lieu de sql :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

response.write(mySql)

[os_rasta]

Insert Into BREVE( nom_breve, date_breve, lien, num_publication) VALUES ( ' ' , ' ' , ' ' , ' ' )

Voila ce que ça me donne comme resultat lol

[Crazyblinkgirl]

C'est donc que tu ne récupères pas la valeur de tes champs.

Le "action" de ton form doit être la page sur laquelle tu récupères tes valeurs. Affiches les pour être sur de ce que tu obtiens.

[os_rasta]

Ouais en fait il prend pas la valeur du request.form("")
DOnc je sais pas je le nomme peut etre mal. Ce qui est byzarre c'est que ça marche sous l'autre page (ou il y a mes tableaux) ou je met le numero dans un formulaire.

Donc je vais chercher si vous avez une idée merci
Merci Crazyblinkgirl pour ton aide

[Crazyblinkgirl]

Montres nous le code de la page en question

[os_rasta]

Sur cette page le request.form marche:

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
<% 
                                        dim guignol 
                                   dim datarticle 
                                 dim nom_article 
                                 dim nomlien 
                                 dim pblarticle 
                                 dim objCnx 
                                 dim dateart 
                                 dim mySql 
                                 if Len(Request.Form("Btn_enregistrer")) > 0 Then 
                                   flot =Request.Form("num_article") 
                                 datarticle =Request.Form("datzrticle") 
                                 nom_article =Request.Form("nom_article") 
                                 dateart =Request.Form("date_article") 
                                 nomlien =Request.Form("lien article")                                  
                                 pblarticle =Request.Form("publ_article") 
                                 set objCnx = dbConnect("BNW0001B" , "IUSR_BNW0001B" , "VF85DS" , "") 
                                 mySql="Insert Into BREVE( nom_breve, date_breve, lien, num_publication) VALUES ( ' " & nomarticle & " ' , ' " & datarticle & " ' ,  ' " & nomlien & " ' , ' " & pblarticle & " ' )"                               
                                 objCnx.Execute( mySql ) 
                                 dbDisconnect( objCnx ) 
                                 end if 
                                 %>

[Crazyblinkgirl]

Ben c'est pas la page sur laquelle les champs de ta requête sont vides?

[os_rasta]

Voila le code de la page en question:

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
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
 
<html>
 
<!-- EVOLUTION INTRANET VERSION 31 -->     
<% evolutionintranetversion = 31 %> 
 
<!-- #INCLUDE VIRTUAL="/commun/n-debut.inc" -->
<!-- #INCLUDE VIRTUAL="/commun/vuedb.inc" -->	
	<%
if not ((oAgent.MembreDe("GN00164") = true) _
or (oAgent.MembreDe("GN08800") = true)) then
response.redirect "/commun/asp/interdit.asp"
end if
%> 
 
<head>
	<!-- TemplateBeginEditable name="Titre de la fenêtre" -->
	<title>
        Page large
	</title>
    <!-- TemplateEndEditable -->
 
	<script language="javascript" src="/commun/n-commun.js"></script>
	<link rel="stylesheet" type="text/css" href="/commun/n-style.css">
 
	<!-- TemplateBeginEditable name="Fonctions et menus" -->
		<!-- #INCLUDE FILE="appli.inc" -->
	<!-- TemplateEndEditable -->
 
</head>
<body onload="bodyLoad()" onresize="bodyResize()">
	<a name="hautpage"></a>
 
    <!-- #INCLUDE VIRTUAL="/commun/n-haut.inc" -->
	<table id="tablePage" cellspacing="0">
	<!-- #INCLUDE FILE="appli.inc" -->
					<tr>
						<td>
                            <table border="1" width="100%" height="362">
                              <tr>
                                <td width="100%" height="356" valign="top"><font color="#008080"><b><u><br>
                                  Numéro de semaine:</u></b></font>
                                  <form method="POST" action="--WEBBOT-SELF--">
                                    <!--webbot bot="SaveResults" startspan
                                    U-File="_private/form_results.txt"
                                    S-Format="TEXT/CSV" S-Label-Fields="TRUE" --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"><!--webbot
                                    bot="SaveResults" endspan --><p><input type="text" name="num_semaine" size="12"><input type="submit" value="Mettre en ligne" name="Cmd_semaine"></p>
                                  </form>
 
                                  <p><font color="#008080"><b><u>
                                  1) Insérer
                                  une nouvelle actualité sur le site Intranet:<br>
                                  </u></b></font>
                                  </p>
                                  <table border="1" width="716" height="11" bordercolor="#008080" bordercolorlight="#FFFFFF" bordercolordark="#008080">
                                    <tr>
                                      <td width="107" height="35">Numéro de
                                        l'article</td>
                                      <td width="107" height="35">Date de
                                        l'article</td>
                                      <td width="107" height="35">Nom de
                                        l'article</td>
                                      <td width="101" height="35">Lien de
                                        l'article</td>
                                      <td width="68" height="35">Numéro de
                                        publication</td>
                                      <td width="74" height="35">Date de
                                        publication</td>
                                      <td width="99" height="35">Enregistrer</td>
                                    </tr>
                                    <tr>
                                      <td width="107" height="1">
                                        <input type="text" name="num_article" size="14">
                                      </td>
                                      <td width="107" height="1">
                                        <input type="text" name="date_article" size="14">
                                      </td>
                                      <td width="107" height="1">
                                        <input type="text" name="nom_article" size="14">
                                      </td>
                                      <td width="101" height="1">
                                        <input type="text" name="lien_article" size="13">
                                      </td>
                                      <td width="68" height="1">
                                        <input type="text" name="publ_article" size="14">
                                      </td>
                                      <td width="74" height="1">
                                        <input type="text" name="dateartipub" size="9">
                                      </td>
                                      <td width="99" height="1">
                                        <form method="POST" action="--WEBBOT-SELF--">
                                          <!--webbot bot="SaveResults" startspan
                                          U-File="_private/form_results.txt"
                                          S-Format="TEXT/CSV"
                                          S-Label-Fields="TRUE" --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="1"><!--webbot
                                          bot="SaveResults" endspan -->
                                          <p><input type="submit" value="Enregistrer" name="Btn_enregistrer"></p>
                                        </form>
 
                                      </td>
 
                                      <td width="5">
 
										 </tr>
                                  </table>
                                  <p><font color="#008080"><b><u>2) Insérer un
                                  nouveau dossier juridique sur le site Intranet:</u></b></font></p>
                                  <table border="1" width="86%" height="38" bordercolor="#008080" bordercolordark="#008080" bordercolorlight="#FFFFFF">
                                    <tr>
                                      <td width="16%" height="32">Nom de
                                        dossier</td>
                                      <td width="16%" height="32">date dossier</td>
                                      <td width="20%" height="32">Lien</td>
                                      <td width="27%" height="32">Numéro de
                                        publication</td>
                                      <td width="33%" height="32">Enregistrer</td>
                                    </tr>
                                    <tr>
                                      <td width="16%" height="1">
                                        <input type="text" name="nom_dossier" size="11">
                                      </td>
                                      <td width="16%" height="1">
                                        <input type="text" name="date_dossier" size="11">
                                      </td>
                                      <td width="20%" height="1">
                                        <input type="text" name="lien_dossier" size="11">
                                      </td>
                                      <td width="27%" height="1">
                                        <input type="text" name="num_pubdossier" size="14">
                                      </td>
                                      <td width="33%" height="1">
                                        <form method="POST" action="--WEBBOT-SELF--">
                                          <!--webbot bot="SaveResults" startspan
                                          U-File="_private/form_results.txt"
                                          S-Format="TEXT/CSV"
                                          S-Label-Fields="TRUE" --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="2"><!--webbot
                                          bot="SaveResults" endspan -->
                                          <p><input type="submit" value="Enregistrer" name="Btn_dossier"></p>
                                        </form>
                                      </td>
                                    </tr>
                                  </table>
                                  <p><font color="#008080"><b><u>3) Insérer un
                                  nouveau cas pratique du site:</u></b></font></p>
                                  <table border="1" width="82%" height="1" bordercolor="#008080" bordercolorlight="#FFFFFF" bordercolordark="#008080">
                                    <tr>
                                      <td width="12%" height="31">Numéro de cas
                                        pratique</td>
                                      <td width="19%" height="31">Nom du cas
                                        pratique</td>
                                      <td width="15%" height="31">Date du cas
                                        pratique</td>
                                      <td width="18%" height="31">Lien</td>
                                      <td width="24%" height="31">Numéro de
                                        domaine</td>
                                      <td width="22%" height="31">Numéro de
                                        Publication</td>
                                      <td width="25%" height="31">Enregistrer</td>
                                    </tr>
                                    <tr>
                                      <td width="12%" height="1">
                                        <input type="text" name="num_cas" size="9">
                                      </td>
                                      <td width="19%" height="1">
                                        <input type="text" name="nom_cas" size="10">
                                      </td>
                                      <td width="15%" height="1">
                                        <input type="text" name="date_cas" size="9">
                                      </td>
                                      <td width="18%" height="1">
                                        <input type="text" name="lien_doc" size="8">
                                      </td>
                                      <td width="24%" height="1">
                                        <input type="text" name="num_domaine" size="9">
                                      </td>
                                      <td width="22%" height="1"><input type="text" name="num_publcas" size="9"></td>
                                      <td width="153%" height="1">
                                        <form method="POST" action="--WEBBOT-SELF--">
                                          <!--webbot bot="SaveResults" startspan
                                          U-File="_private/form_results.txt"
                                          S-Format="TEXT/CSV"
                                          S-Label-Fields="TRUE" --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="3"><!--webbot
                                          bot="SaveResults" endspan -->
                                          <p><input type="submit" value="Enregistrer" name="cmd_cas"></p>
                                        </form>
                                      </td>
                                    </tr>
                                  </table>
                                  <p><font color="#008080"><b><u>4) Insérer un
                                  nouveau lien vers un site:&nbsp;</u></b></font></p>
                                  <table border="1" width="106%" height="1" bordercolorlight="#FFFFFF" bordercolordark="#008080" bordercolor="#008080">
                                    <tr>
                                      <td width="13%" height="16">Numéro du
                                        site</td>
                                      <td width="14%" height="16">Nom site</td>
                                      <td width="16%" height="16">Numéro de
                                        publication</td>
                                      <td width="22%" height="16">Numéro de
                                        catégorie</td>
                                      <td width="21%" height="16">date de
                                        publication</td>
                                      <td width="43%" height="16">Enregistrer</td>
                                    </tr>
                                    <tr>
                                      <td width="13%" height="1"><input type="text" name="num_site" size="11"></td>
                                      <td width="14%" height="1"><input type="text" name="nom_site" size="12"></td>
                                      <td width="16%" height="1"><input type="text" name="num_sitepub" size="10"></td>
                                      <td width="22%" height="1"><input type="text" name="num_categorie" size="12"></td>
                                      <td width="21%" height="1"><input type="text" name="date_sitepub" size="14"></td>
                                      <td width="43%" height="1">
                                        <form method="POST" action="--WEBBOT-SELF--">
                                          <!--webbot bot="SaveResults" startspan
                                          U-File="_private/form_results.txt"
                                          S-Format="TEXT/CSV"
                                          S-Label-Fields="TRUE" --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="4"><!--webbot
                                          bot="SaveResults" endspan -->
                                          <p><input type="submit" value="Enregistrer" name="Cmd_site"></p>
                                        </form>
                                      </td>
                                    </tr>
                                  </table>
                                </td>
                              </tr>
                            </table>
							<table id="tableLigneDateMiseAJour" cellpadding="0" cellspacing="0">
								<tr>
									<td id="dateMiseAJourLarge">
							<!-- Cellule réservée à la date de mise à jour --><br> Mise
                                    à jour le
										<%  =affichedatemiseajour%>	
 
 
									</td>
									<td id="liseretCaseBottomMenuN3N4Large"></td>
									<td id="dateMiseAJourLargecaseBottomMenuN3N4Large">
									<!-- TemplateBeginEditable name="DateMiseAJour" -->
										&nbsp;
                                    <!-- TemplateEndEditable -->
									</td>
									<td id="boutonHautPage">
									<!-- TemplateBeginEditable name="BoutonBasDePage" -->
 
										<!-- Cellule réservée à l'ajout de bouton en bas de page -->
 
									<!-- TemplateEndEditable -->
									</td>
								</tr>
							</table>
						</td>
					</tr>
				</table>
    <table>
     <td>
			<td id="liseretBordDroit"></td>
      										<% 
                                     	dim guignol
										  	dim datarticle 
											dim nom_article 
											dim nomlien 
											dim pblarticle 
											dim objCnx 
											dim dateart 
											dim mySql
											if Len(Request.Form("Btn_enregistrer")) > 0 Then
     										flot =Request.Form("num_article")
											datarticle =Request.Form("datzrticle")
											nom_article =Request.Form("nom_article")
											dateart =Request.Form("date_article")
											nomlien =Request.Form("lien article")											
											pblarticle =Request.Form("publ_article")
											response.write("juridique" + Request.Form("nom_article"))
 
											set objCnx = dbConnect("BNW0001B" , "IUSR_BNW0001B" , "VF85DS" , "") 
											mySql="Insert Into BREVE( nom_breve, date_breve, lien, num_publication) VALUES ( ' " & nom_article & " ' , ' " & datarticle & " ' ,  ' " & nomlien & " ' , ' " & pblarticle & " ' )"										
											objCnx.Execute( mySql )
											dbDisconnect( objCnx )
											end if
											%>
 
											<%
										  	dim datedossier
											dim  liendossier
											dim numpubdossier 
											dim nomdossier
											dim  toto
											if Len(Request.Form("Btn_dossier")) > 0 Then
     										nomdossier =Request.Form("nom_dossier")
											datedossier =Request.Form("date_dossier")
											numpubdossier =Request.Form("num_pubdossier")
											liendossier =Request.Form("lien_dossier")
											set objCnx = dbConnect("BNW0001B" , "IUSR_BNW0001B" , "VF85DS" , "") 
											toto ="Insert Into JURIDIQUE( nom_dossier, date_juridique, lien, num_publication) VALUES ( ' " & nomdossier & " ' , ' " & datedossier & " ' ,  ' " & liendossier & " ' , ' " & numpubdossier & " ' )"										
											objCnx.Execute (toto)
											dbDisconnect( objCnx )
											end if
											%>
 
											<%
											dim nomcas
											dim  datecas
											dim liencas  
											dim numcategorie
											dim numpublcas
											dim  doc
											if Len(Request.Form("cmd_cas")) > 0 Then
     										nomcas =Request.Form("nom_cas")
											datecas =Request.Form("date_cas")
											numpublcas =Request.Form("num_publcas")
											numcategorie =Request.Form("num_domaine")
											liencas  =Request.Form("lien_doc")
											set objCnx = dbConnect("BNW0001B" , "IUSR_BNW0001B" , "VF85DS" , "") 
											doc="Insert Into DOCUMENT( nom_cas, date_cas, lien, num_dossier_legislatif, num_publication) VALUES ( ' " & nomcas & " ' , ' " &  datecas & " ' ,  ' " & liencas  & " ' , ' " & numcategorie & " ' , ' " & numpublcas & " ' )"										
											objCnx.Execute (doc)
											dbDisconnect( objCnx )
											end if
											%>
 
											<%
											dim nomsite
											dim  numsitepub
											dim numcategories
											dim  lolo
											if Len(Request.Form("Cmd_site")) > 0 Then
     										nomsite =Request.Form("nom_site")
											numsitepub =Request.Form("num_sitepub")
											numcategories =Request.Form("num_categorie")
											set objCnx = dbConnect("BNW0001B" , "IUSR_BNW0001B" , "VF85DS" , "") 
											lolo="Insert Into SITE( nom_site, num_publication, num_categorie) VALUES ( ' " & nomsite & " ' , ' " &  numsitepub & " ' ,  ' " & numcategories  & " ' )"										
											objCnx.Execute (lolo)
											dbDisconnect( objCnx )
											end if
											%>
 
											<%
											dim num_semaine
											dim nmero
											dim SqL
											if Len(Request.Form("Cmd_semaine")) > 0 Then
											nmero=request.Form("num_semaine")
											set objCnx = dbConnect("BNW0001B" , "IUSR_BNW0001B" , "VF85DS" , "")
											SqL= "DELETE FROM BREVE WHERE date_fin = (SELECT date_publication FROM PUBLICATION WHERE num_publication= ' " & nmero & " ')"
											objCnx.Execute (SqL)
											dbDisconnect( objCnx)
											end if
											%> 
											<!-- #INCLUDE VIRTUAL="/commun/n-bas.inc" -->
     <p>
										<input id="idBoutonHautDePage" type='button' value='Haut de Page' class='bouton'  onclick="self.location.href='#hautpage'" NAME="idBoutonHautDePage"/>
 
     </p>
</body>

[Crazyblinkgirl]

Vérifies bien le nom de tes champs, j'ai l'impression qu'il y a des discordances :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
<input type="text" name="num_article" size="14"> 
<input type="text" name="date_article" size="14"> 
<input type="text" name="nom_article" size="14"> 
<input type="text" name="lien_article" size="13"> 
<input type="text" name="publ_article" size="14"> 
<input type="text" name="dateartipub" size="9">

Notamment ceux-ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
datarticle =Request.Form("datzrticle")
nomlien =Request.Form("lien article")                               
 
mySql="Insert Into BREVE( nom_breve, date_breve, lien, num_publication) VALUES ( ' " & nom_article & " ' , ' " & datarticle & " ' ,  ' " & nomlien & " ' , ' " & pblarticle & " ' )"

[os_rasta]

Bonjour à tous j'ai repris un peu mon code pour l'améliorer. Mais j'ai une erreur dans ma requête.
Voici l'erreur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC SQL Server Driver][SQL Server]Conflit entre l'instruction INSERT et la contrainte COLUMN FOREIGN KEY 'FK_BREVE_PUBLICATION1'. Le conflit est survenu dans la base de données 'BNW0001B', table 'PUBLICATION', column 'num_publication'.
/juridique/formulaire2.asp, line 394

Voici le code de ma requête:

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
<% 
										  	dim date_article 
											dim nom_article 
											dim lien_article
											dim source 
											dim com
											dim num_pub
											dim date_fin_pub
											dim objCnx 
											dim mySql
											if Len(Request.Form("Btn_enregistrer")) > 0 Then
											date_article =Request.Form("date_article")
											nom_article =Request.Form("nom_article")
											com =Request.Form("commentaire")
											lien_article =Request.Form("lien_article")											
											num_pub =Request.Form("num_pub")
											date_fin_pub =Request.Form("date_fin_pub")
 
											set objCnx = dbConnect("BNW0001B" , "IUSR_BNW0001B" , "VF85DS" , "") 
											mySql="Insert Into BREVE ( nom_breve, date_breve, commentaire, source,  lien, date_fin, num_publication) VALUES ( ' " & nom_article & " ' , ' " & date_article & " ' ,' " & com & " ', ' " & source & " ',    ' " & lien_article & " ' , ' " & date_fin_pub & " ', ' " & num_pub & " ' ) "  											
											objCnx.Execute( mySql )
											dbDisconnect( objCnx )
											end if
											%>

Donc je vous explique deux tables une table BREVE qui récupère la clé primaire de PUBLICATION: num_publication. Je comprend pas l'erreur dans ma requête si quelqu'un voit merci

[Trutinette]

ce ne serait pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
num_pub =Request.Form("num_pub")

à changer en :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
num_pub =Request.Form("num_publcas")

?