Probleme requete asp [Résolu]

nicolasferraris · 12/03/2007, 15h09

Bonjour,
J'ai une page asp contant un formulaire qui aliment une base ACCESS.
Avant l'enregistrement des champs dans la base, j'aimerai verifier l'existence d'un enregistrement similaire (test sur plusieurs champs), et si l'enregistrement existe déja, renvoyer l'utilisateur vers une page déterminée sans enregistrer les données dans la base.

Merci à tous

sab_etudianteBTS · 12/03/2007, 15h16

Bonjour,
Essaye ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
req="select * from table where champ1='" & request.form("chaine1") & "' and champ2='" & request.form("chaine2") "'"
 
set Rs=server.createObject("adodb.recordset")
rs.open req, cnx
 
if not Rs.eof then
    'L'enregistrement existe deja
    response.redirect("page.asp")
else
    'traitement enregistrement
end if

Poussy-Puce · 12/03/2007, 15h16

Bonjour...

Code :

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

1
2
3
4
5
6
7
8
 
dim rsVerifier 
set rsVerifier = Server.CreateObject("ADODB.Recordset")
rsVerifier.Open "select * from nomtable where champsCondition = 'condition'", objConnection
 
If not rsVerifier.EOF Then
       Response.Redirect("pageDeterminée.asp")
End If

ou sinon tu peux faire un select count(*) from ...
If rsVerifier.Fields(0).Value > 0 Then
....

nicolasferraris · 12/03/2007, 15h49

J'ai l'erreur suivante :

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/FormInscriptionRegistrationemsESSAI.asp, line 19

voici le code que j'aim mis dans le formulaire

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
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
 
<%
Dim conn
Dim rs
Dim sql
Dim req
Dim connstring
 
Set conn = Server.CreateObject("ADODB.Connection")
 
connstring="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath(".") & "/admin/ems07.mdb" 
conn.Open connstring 
 
'---------verification si l'enregistrement existe déja-------
 
 
req = "SELECT * FROM essai WHERE company_organism='"&Request.form("company_organism")&"' and email = '"&Request.form("email")&"' and last_name='"&Request.form("last_name")&"' and first_name='"&Request.form("first_name")&"' and zip_code='"&Request.form("zip_code")&"'"
 
set Rs=server.createObject("adodb.recordset")
rs.open req, cnx
 
if not Rs.eof then
    'L'enregistrement existe deja
    response.redirect("PageESSAI.asp")
else
 
'---------Ajout de l'enregistrement dans la table essai-------
 
sql = "SELECT * from essai "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
 
if Request("formRempli") = 1 then
rs.addnew
rs.fields("company_organism")=trim(request.form("company_organism"))
rs.fields("last_name")=trim(request.form("last_name"))
rs.fields("first_name")=trim(request.form("first_name"))
rs.fields("service_laboratory")=trim(request.form("service_laboratory"))
rs.fields("address1")=trim(request.form("address1"))
rs.fields("address2")=trim(request.form("address2"))
rs.fields("zip_code")=trim(request.form("zip_code"))
rs.fields("city")=trim(request.form("city"))
rs.fields("country")=trim(request.form("country"))
rs.fields("phone")=trim(request.form("phone"))
rs.fields("fax")=trim(request.form("fax"))
rs.fields("email")=trim(request.form("email"))
rs.fields("genre")=trim(request.form("genre"))
rs.fields("comments")=trim(request.form("comments"))
rs.fields("company_organism_invoice")=trim(request.form("company_organism_invoice"))
rs.fields("last_name_invoice")=trim(request.form("last_name_invoice"))
rs.fields("first_name_invoice")=trim(request.form("first_name_invoice"))
rs.fields("service_laboratory_invoice")=trim(request.form("service_laboratory_invoice"))
rs.fields("address1_invoice")=trim(request.form("address1_invoice"))
rs.fields("address2_invoice")=trim(request.form("address2_invoice"))
rs.fields("zip_code_invoice")=trim(request.form("zip_code_invoice"))
rs.fields("city_invoice")=trim(request.form("city_invoice"))
rs.fields("country_invoice")=trim(request.form("country_invoice"))
rs.fields("vat_invoice")=trim(request.form("vat_invoice"))
rs.fields("phone_invoice")=trim(request.form("phone_invoice"))
rs.fields("fax_invoice")=trim(request.form("fax_invoice"))
rs.fields("email_invoice")=trim(request.form("email_invoice"))
rs.fields("genre_invoice")=trim(request.form("genre_invoice"))
rs.fields("devise")=trim(request.form("devise"))
rs.fields("langue")=trim(request.form("langue"))
rs.fields("cours")=trim(request.form("cours"))
rs.fields("membre")=trim(request.form("membre"))
rs.fields("personne_accompagnant")=trim(request.form("personne_accompagnant"))
rs.fields("genre_accompagnant")=trim(request.form("genre_accompagnant"))
rs.fields("nom_accompagnant")=trim(request.form("nom_accompagnant"))
rs.fields("prenom_accompagnant")=trim(request.form("prenom_accompagnant"))
 
 
rs.update
rs.close
set rs=nothing
 
'---------Renvoie vers le formulaire FormRegistrationRecapems.asp avec passage de parametre------
response.redirect ("FormRegistrationRechercheESSAI.asp?email=" & trim(request.form("email")) & "&company_organism=" & trim(request.form("company_organism"))& "&last_name=" & trim(request.form("last_name"))& "&first_name=" & trim(request.form("first_name"))& "&zip_code=" & trim(request.form("zip_code")))
end if
end if
%>
 
<html>
 
<head>
<meta http-equiv="Content-Language" content="fr">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
 
<title>EMSLIBS 2007 - Inscriptions</title>
<base target="_self">
 
</head>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}
 
function MM_validateForm() { //v4.0
  var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
  for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
    if (val) { nm=val.name; if ((val=val.value)!="") {
      if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
        if (p<1 || p==(val.length-1)) errors+='- '+nm+'  doit contenir une adresse valide.\n';
      } else if (test!='R') { num = parseFloat(val);
        if (isNaN(val)) errors+='- '+nm+' must contain only number.\n';
        if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
          min=test.substring(8,p); max=test.substring(p+1);
          if (num<min || max<num) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
    } } } else if (test.charAt(0) == 'R') errors += '- '+nm+' est requis.\n'; }
  } if (errors) alert('Vous devez remplir tous les champs obligatoires :\n'+errors);
  document.MM_returnValue = (errors == '');
}
//-->
</script>
 
 
<body>
 
 
 
 
<p><b><font face="Arial" color="#5A617E">Inscriptions</font></b></p>
<hr color="#FA7123" align="left">
 
<div align="left">
<p class="MsoNormal"><b><i><span style="font-size:10.0pt;font-family:Arial">
Votre inscription sera définitive dès l'envoi du règlement correspondant aux 
éléments renseignés dans le formulaire.</span></i></b><i><span style="font-size:10.0pt;font-family:Arial"><br>
Si vous le désirez vous pouvez
<a target="_blank" title="http://www.analyses.fr/BulletinInscription.pdf" style="color: blue; text-decoration: underline; text-underline: single" href="http://www.emslibs.com/BulletinInscriptionFR.pdf">télécharger</a> ce formulaire et nous le retourner rempli par télécopie au +33 
(0)4-76-52-24-50, ou par courrier à : EURADIF - 52 chemin des jacinthes - 38330 
BIVIERS - FRANCE.</span></i></div>
<form action="FormInscriptionRegistrationemsESSAI.asp?formRempli=1" method="post">
 
	<div align="center">
		&nbsp;<p><font face="Arial"><b><font color="#5A617E">Coordonnées</font><br>
		</b><font size="2">(*les champs précédés d'un astérisque sont 
		obligatoires)</font><b><br>
&nbsp;</b></font></p>
		<table border="1" width="48%" id="table1" style="border-collapse: collapse">
 
			<tr><td align="right">
<font size="2" face="Arial">*Société/organisme :</font></td><td>
				<font face="Arial">
				<input name="company_organism"  size="25" ></font><font size="2" face="Arial">
				</font>
</td></tr>
 
 
 
			<tr>
				<td align="right">
				<p align="right">
				<font face="Arial" color="#000000" size="2">
								Service/laboratoire: </font></td>
				<td>
				<font face="Arial">
				<input name="service_laboratory" size="50"></font></td>
			</tr>
					<tr><td align="right">
<font size="2" face="Arial">*Adresse1 :</font></td><td>
						<font face="Arial">
						<input name="address1" type="text" size="25"></font><font size="2" face="Arial">
						</font>
</td></tr>			<tr>
				<td align="right"><font face="Arial" size="2">Adresse2&nbsp; :</font></td>
				<td>
				<font face="Arial">
				<input name="address2" size="50"></font></td>
			</tr>
			<tr><td align="right">
<font size="2" face="Arial">*Code postal :</font></td><td>
				<font face="Arial">
				<input name="zip_code" type="text" size="25"></font><font size="2" face="Arial">
				</font>
</td></tr>		
		<tr><td align="right">
<font size="2" face="Arial">*Ville :</font></td><td>
			<font face="Arial">
			<input name="city" type="text" size="25"></font><font size="2" face="Arial">
			</font>
</td></tr>		
			<tr><td align="right">
<font size="2" face="Arial">*Pays :</font></td><td>
				<font face="Arial">
				<input name="country" type="text" size="25"></font><font size="2" face="Arial">
				</font>
</td></tr>		
			<tr>
				<td align="right">&nbsp;</td>
				<td> 
                              <font face="Arial" size="2"> 
                              <input type=radio value="mr" name=genre>
                              M<font color=#be0000> </font> 
                              </font> 
                              <font size="2" face="Arial, Helvetica, sans-serif"> 
                              <font face="Arial"> 
                              <input 
            type=radio value="mme" name=genre></font><font size="2" face="Arial">
                              Mme  
                              </font><font face="Arial">  
                              <input type=radio value="mlle" name=genre ></font><font size="2" face="Arial">
                              Mlle</font></font></td></tr>
			<tr>
				<td align="right"><font face="Arial" size="2">Prénom :</font></td>
				<td>
				<font face="Arial">
				<input name="first_name" size="50" tabindex="11"</td></font><font size="2" face="Arial"></tr>
		<tr><td align="right">
<font size="2" face="Arial">*Nom :</font></td><td>
			<font face="Arial">
			<input name="last_name" type="text" size="25"></font><font size="2" face="Arial">
			</font>
</td></tr>		
 
			<tr><td align="right">
<font size="2" face="Arial">*Téléphone :</font></td><td>
				<font face="Arial">
				<input name="phone" type="text" size="25"></font><font size="2" face="Arial">
				</font>
</td></tr>		
			<tr>
				<td align="right"><font face="Arial" size="2">Fax :</font></td>
				<td>
				<font face="Arial">
				<input name="fax" size="25" tabindex="14" style="float: left"></font></td>
			</tr>
			<tr><td align="right">
<font size="2" face="Arial">*Email :</font></td><td>
				<font face="Arial">
				<input name="email" type="text" size="50" ></font><font size="2" face="Arial">
				</font>
</td></tr>		
		</table>
	</div>
	<p align="center">&nbsp;</p>
	<p align="center"><font face="Arial"><b><font color="#5A617E">Inscription congrès EMSLIBS 
	2007</font><br>
&nbsp;</b></font></p>
	<div align="center">
		<table border="1" width="84%" style="border-collapse: collapse" id="table2">
			<tr>
				<td width="22%">&nbsp;</td>
				<td width="17%">
				<p align="center"><b><font size="2" face="Arial">Normal<br>
				</font></b><font face="Arial">
				<input type="radio" value="normal" name="membre" tabindex="8" style="font-weight: 700"></font><b><font size="2" face="Arial"> 
				</font></b></td>
				<td width="15%" align="center">
				<font size="2" face="Arial"> 
				<b>Etudiant<br>
				</b><font face="Arial">
				<input type="radio" name="membre" value="etudiant" tabindex="10" style="font-weight: 700"></font></font></td>
				<td width="15%">
				<p align="center"><font size="2" face="Arial"> 
				<b>Personne accompagnante<br>
				<input type="checkbox" name="personne_accompagnant" value="1"></b></font></td>
			</tr>
			<tr>
				<td width="22%" align="center">
				<p align="center"><b><font size="2" face="Arial">Conditions</font></b></td>
				<td width="17%">
				<p align="center"><font face="Arial" size="2">NEANT</font></td>
				<td width="15%" align="center">
				<font face="Arial" size="2">photocopie carte 
				étudiant</font></td>
				<td width="15%">
				<p align="center"><font face="Arial" size="2">NEANT</font></td>
			</tr>
			<tr>
				<td width="22%" align="center">
				<p align="center"><b><font face="Arial" size="2">Tarifs <br>
				(inscription avant le 30/06/07)</font></b></td>
				<td width="17%">
				<p align="center"><font face="Arial" size="2">550 euros TTC.*</font></td>
				<td width="15%" align="center">
				<font face="Arial" size="2">330 euros TTC.*</font></td>
				<td width="15%">
				<p align="center"><font size="2" face="Arial">100 euros T.T.C.**</font></td>
			</tr>
			<tr>
				<td width="22%" align="center">
				<p align="center"><i><b><font face="Arial" size="2">Tarifs <br>
				(inscription après le 30/06/07)</font></b></i></td>
				<td width="17%">
				<p align="center"><i><font face="Arial" size="2">650 euros
				</font></i><font face="Arial" size="2">TTC.*</font></td>
				<td width="15%" align="center">
				<i><font face="Arial" size="2">430 euros </font></i>
				<font face="Arial" size="2">TTC.*</font></td>
				<td width="15%">
				<p align="center"><font size="2" face="Arial">200 euros T.T.C.**</font></td>
			</tr>
		</table>
		</div>
	<div class="Section1">
		<p class="MsoNormal"><i><font face="Arial" size="2">
		<span style="font-size: 10pt; font-style: italic; font-family: Arial">* 
		</span></font><span style="font-size: 10.0pt; font-family: Arial">Les 
		frais d’inscription comprennent&nbsp;: la participation&nbsp; aux conférences, aux 
		cours (inscription spécifique obligatoire), les déjeuners, les pauses 
		café, le diner de gala, les cocktails, les documents du congrès (livret 
		de résumés, programme)<b>, </b>mais ne comprennent pas l’hébergement.</span><span style="font-size:10.0pt;font-family:Arial"><br>
		Le c</span><span style="font-size: 10.0pt; font-family: Arial">omité 
		d’organisation rappelle à cet égard que le mois de septembre est un mois 
		touristique à Paris, et qu’il est souhaitable de réserver son hôtel au 
		plus tôt (onglet «&nbsp;Hôtels)</span><font face="Arial" size="2"><span style="font-size: 10pt; font-style: italic; font-family: Arial"><br>
		** Pour les personnes accompagnantes les frais d’inscription comprennent 
		uniquement le diner de Gala.</span></font></i></p></div>
	<p align="center"><i><b>
	<font face="Arial, Helvetica, sans-serif" color="#5A617E">Personne 
	accompagnante</font></b></i></p>
	<div align="center">
		<table border="0" width="60%" id="table4">
			<tr>
				<td>&nbsp;</td>
				<td><b><font size="2" face="Arial">Prénom</font></b></td>
				<td><b><font size="2" face="Arial">Nom</font></b></td>
			</tr>
			<tr>
				<td><font size="2" face="Arial, Helvetica, sans-serif"> 
                              <input type=radio value="mr" 
            name=genre_accompagnant>
                              M<font color=#be0000> </font> 
                              <input 
            type=radio value="mme" name=genre_accompagnant>
                              Mme  
                              <input type=radio value="mlle" name=genre_accompagnant >
                              Mlle</font></td>
				<td>
				<input name="prenom_accompagnant" size="20"></td>
				<td>
				<input name="nom_accompagnant" size="30"></td>
			</tr>
		</table>
	</div>
	<p align="center"><font size="2" face="Arial, Helvetica, sans-serif"> 
                              &nbsp; </font>
				&nbsp;</p>
	<p align="center"><font face="Arial"><b><font color="#5A617E">Inscription 
	Cours EMSLIBS 
	2007</font><br>
&nbsp;</b></font></p>
	<div align="center">
		<table border="1" width="84%" style="border-collapse: collapse" id="table3">
			<tr>
				<td width="22%">&nbsp;</td>
				<td width="17%">
				<p align="center"><b><font face="Arial" size="2">Session 1<br>
				</font></b><font face="Arial">
				<input type="radio" value="session1" name="cours" tabindex="8" style="font-weight: 700"></font><b><font size="2" face="Arial"> 
				</font></b></td>
				<td width="15%" align="center">
				<font size="2" face="Arial"> 
				<b>Session 2<br>
				</b><font face="Arial">
				<input type="radio" name="cours" value="session2" tabindex="10" style="font-weight: 700"></font></font></td>
			</tr>
			<tr>
				<td width="22%" align="center">
				<p align="center"><b><font face="Arial" size="2">Tarifs <br>
				(inscription avant le 30/06/07)</font></b></td>
				<td width="17%">
				<p align="center"><font face="Arial" size="2">100 euros TTC.*</font></td>
				<td width="15%" align="center">
				<font face="Arial" size="2">100 euros TTC.*</font></td>
			</tr>
			<tr>
				<td width="22%" align="center">
				<p align="center"><i><b><font face="Arial" size="2">Tarifs <br>
				(inscription après le 30/06/07)</font></b></i></td>
				<td width="17%">
				<p align="center"><i><font face="Arial" size="2">150 euros 
				</font></i><font face="Arial" size="2">TTC.*</font></td>
				<td width="15%" align="center">
				<i><font face="Arial" size="2">150 euros </font></i>
				<font face="Arial" size="2">TTC.*</font></td>
			</tr>
		</table>
		</div>
	<p align="left"><i><font face="Arial" size="2">
		<span style="font-size: 10pt; font-style: italic; font-family: Arial">* 
	Les frais d’inscription comprennent&nbsp;: les pauses cafés.</span></font></i></p>
	<p align="center"><b><font face="Arial" color="#5A617E">Coordonnées 
	facturation</font></b><font face="Arial"><b><br>
	</b><font size="2">(*les champs précédés d'un astérisque sont 
		obligatoires)</font></font></p>
	<div align="center">
		<table border="1" width="51%">
			<tr>
				<td align="right">
				<font size="2" face="Arial">*Société/organisme :</font></td>
				<td>
				<input name="company_organism_invoice" size="50"></td>
			</tr>
			<tr>
				<td align="right">
				<p align="right">
				<font face="Arial" color="#000000" size="2">
								Service/laboratoire: </font></td>
				<td>
				<input name="service_laboratory_invoice" size="50"></td>
			</tr>
			<tr>
				<td align="right">
<font size="2" face="Arial">*Adresse1 :</font></td>
				<td>
				<input name="address1_invoice" size="50"></td>
			</tr>
			<tr>
				<td align="right"><font face="Arial" size="2">Adresse2&nbsp; :</font></td>
				<td>
				<input name="address2_invoice" size="50"></td>
			</tr>
			<tr>
				<td align="right">
<font size="2" face="Arial">*Code postal :</font></td>
				<td>
				<input name="zip_code_invoice" size="50"></td>
			</tr>
			<tr>
				<td align="right">
<font size="2" face="Arial">*Ville :</font></td>
				<td>
				<input name="city_invoice" size="50"></td>
			</tr>
			<tr>
				<td align="right">
<font size="2" face="Arial">*Pays :</font></td>
				<td>
				<input name="country_invoice" size="50"></td>
			</tr>
			<tr>
				<td align="right"><font face="Arial" size="2">N° TVA intracom :</font></td>
				<td>
				<input name="vat_invoice" size="50"></td>
			</tr>
			<tr>
				<td align="right">&nbsp;</td>
				<td> 
                              <font size="2" face="Arial, Helvetica, sans-serif"> 
                              <input type=radio value="mr" 
            name=genre_invoice>
                              M<font color=#be0000> </font> 
                              <input 
            type=radio value="mme" name=genre_invoice>
                              Mme  
                              <input type=radio value="mlle" name=genre_invoice >
                              Mlle</font></td>
			</tr>
			<tr>
				<td align="right"><font face="Arial" size="2">Prénom :</font></td>
				<td>
				<input name="first_name_invoice" size="50"></td>
			</tr>
			<tr>
				<td align="right">
<font size="2" face="Arial">*Nom :</font></td>
				<td>
				<input name="last_name_invoice" size="50"></td>
			</tr>
			<tr>
				<td align="right">
<font size="2" face="Arial">*Téléphone :</font></td>
				<td>
				<input name="phone_invoice" size="25"></td>
			</tr>
			<tr>
				<td align="right"><font face="Arial" size="2">Fax :</font></td>
				<td>
				<input name="fax_invoice" size="25"></td>
			</tr>
			<tr>
				<td align="right"><font face="Arial" size="2">*Email :</font></td>
				<td>
				<input name="email_invoice" size="50"></td>
			</tr>
		</table>
		</div>
	<p>&nbsp;</p>
	<p align="center"><font face="Arial" color="#5A617E"><b>Commentaires</b></font><br>
	<textarea rows="3" name="comments" cols="100"></textarea></p>
 
 
	<p align="center">
 
 
<input
    type="submit"
    name="B1"
 
onclick="MM_validateForm('company_organism','','R','address1','','R','zip_code','','R','city','','R','country','','R','last_name','','R','phone','','R','email','','RisEmail','company_organism_invoice','','R','address1_invoice','','R','zip_code_invoice','','R','city_invoice','','R','country_invoice','','R','last_name_invoice','','R','phone_invoice','','R','email_invoice','','RisEmail');return document.MM_returnValue"
    value="Suivant">
 
 
 
	<input type="reset" value="Rétablir" name="B3"></p>
 
<input type="hidden" name="devise" value="EUR">
<input type="hidden" name="langue" value="FR">
 
</form>
 
</body>
 
</html>
<%conn.close
set conn=nothing
%>

sab_etudianteBTS · 12/03/2007, 15h58

Re,
Deja j'observe une petite erreur (peut etre de copier/coller) mais quand tu effectue ta connexion ta variable se nomme conn, et ensuite quand tu execute ta requete tu utilise cnx comme connexion!

Ensuite, juste suposition, si ton code_zip est de type entier, alors retire tes quote, ils sont inutiles ici.

sab_etudianteBTS · 12/03/2007, 16h55

Quelle est la ligne 19 la dedans?
A mon avis c ta requete qui ne va pas : affiche la et exécute la directement dans ton SGBD pour voir si c bien ca qui bloque.

nicolasferraris · 12/03/2007, 17h02

c'est le premier :
rs.Open sql, conn, 3, 3

nicolasferraris · 12/03/2007, 17h14

Si je met en dur les valeurs des request.form dans la requête sous ACCESS,
ca marche

sab_etudianteBTS · 12/03/2007, 20h21

Re (dsl de répondre ke maintenant!)
Essaye de mettre des response.write devant tous tes request.form dans ta requete, je pense ke ca vient de la...
Test et dis moi si ca fonctionne!

Immobilis · 12/03/2007, 21h37

Salut,

Un peu de respect s'il te plaît. Ne mets pas tout le code de ta page...

A mon avis c'est ta requete SQL qui n'est pas bonne. Essaye de la passer dans Access pour voir.

Et puis merci de ne pas faire de multipost

A+

kaiser59 · 12/03/2007, 23h44

Salut,

Tu sais que tu n'es pas obligé de faire du vba avec asp

Sinon comme le dis sab_etudianteBTS, si tu utilises con pour te connecter alors mais rs.open sql, conn et non pas cnx choisi l'un ou l'autre

Ensuite :

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
 
<%
if Request("formRempli") = 1 then
rs.addnew
rs.fields("company_organism")=trim(request.form("company_organism"))
rs.fields("last_name")=trim(request.form("last_name"))
rs.fields("first_name")=trim(request.form("first_name"))
rs.fields("service_laboratory")=trim(request.form("service_laboratory"))
rs.fields("address1")=trim(request.form("address1"))
rs.fields("address2")=trim(request.form("address2"))
rs.fields("zip_code")=trim(request.form("zip_code"))
rs.fields("city")=trim(request.form("city"))
rs.fields("country")=trim(request.form("country"))
rs.fields("phone")=trim(request.form("phone"))
rs.fields("fax")=trim(request.form("fax"))
rs.fields("email")=trim(request.form("email"))
rs.fields("genre")=trim(request.form("genre"))
rs.fields("comments")=trim(request.form("comments"))
rs.fields("company_organism_invoice")=trim(request.form("company_organism_invoice"))
rs.fields("last_name_invoice")=trim(request.form("last_name_invoice"))
rs.fields("first_name_invoice")=trim(request.form("first_name_invoice"))
rs.fields("service_laboratory_invoice")=trim(request.form("service_laboratory_invoice"))
rs.fields("address1_invoice")=trim(request.form("address1_invoice"))
rs.fields("address2_invoice")=trim(request.form("address2_invoice"))
rs.fields("zip_code_invoice")=trim(request.form("zip_code_invoice"))
rs.fields("city_invoice")=trim(request.form("city_invoice"))
rs.fields("country_invoice")=trim(request.form("country_invoice"))
rs.fields("vat_invoice")=trim(request.form("vat_invoice"))
rs.fields("phone_invoice")=trim(request.form("phone_invoice"))
rs.fields("fax_invoice")=trim(request.form("fax_invoice"))
rs.fields("email_invoice")=trim(request.form("email_invoice"))
rs.fields("genre_invoice")=trim(request.form("genre_invoice"))
rs.fields("devise")=trim(request.form("devise"))
rs.fields("langue")=trim(request.form("langue"))
rs.fields("cours")=trim(request.form("cours"))
rs.fields("membre")=trim(request.form("membre"))
rs.fields("personne_accompagnant")=trim(request.form("personne_accompagnant"))
rs.fields("genre_accompagnant")=trim(request.form("genre_accompagnant"))
rs.fields("nom_accompagnant")=trim(request.form("nom_accompagnant"))
rs.fields("prenom_accompagnant")=trim(request.form("prenom_accompagnant"))
 
 
rs.update
rs.close
set rs=nothing
...
%>

Excuse mais c'est quoi ce bordel

il te suffit juste de faire :

Code :

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

1
2
3
4
5
6
7
8
 
<%
...
Sql="Insert into ESSAI (Compagny_organisme, Last_name, first_name, service_laboratory,...) values ('"& request.form("company_organism") &"','"& request.form("last_name") &"',...')"
Rs.open Sql, conn
 
Response.redirect "FormRegistrationRechercheESSAI.asp?email=..."
%>

Et comme dis Immobilis ne met pas tout le code, il est évident que personne ne vas tout lire (à moins d'être super motivé)

++

nicolasferraris · 13/03/2007, 10h16

j'ai fait la modif en remplacant cnx par con, maintenant le formulaire ne s'affiche même pas, j'ai l'erreur suivante :

ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/FormInscriptionRegistrationemsESSAI.asp, line 18

La ligne 18 correspond à :
rs.Open sql, conn, 3, 3

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
 
<%
Dim conn
Dim rs
Dim sql
Dim req
Dim connstring
 
Set conn = Server.CreateObject("ADODB.Connection")
 
connstring="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath(".") & "/admin/ems07.mdb" 
conn.Open connstring 
 
'---------verification si l'enregistrement existe déja-------
 
req = "SELECT * FROM essai WHERE company_organism='"&Request.form("company_organism")&"' and email = '"&Request.form("email")&"' and last_name='"&Request.form("last_name")&"' and first_name='"&Request.form("first_name")&"' and zip_code='"&Request.form("zip_code")&"'"
 
set rs=server.createObject("adodb.recordset")
rs.Open sql, conn, 3, 3
 
if not rs.eof then
    'L'enregistrement existe deja
    response.redirect("PageESSAI.asp")
else
 
'---------Ajout de l'enregistrement dans la table essai-------
 
sql = "SELECT * from essai "
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
 
if Request("formRempli") = 1 then
rs.addnew
rs.fields("company_organism")=trim(request.form("company_organism"))
rs.fields("last_name")=trim(request.form("last_name"))
rs.fields("first_name")=trim(request.form("first_name"))
rs.fields("service_laboratory")=trim(request.form("service_laboratory"))
rs.fields("address1")=trim(request.form("address1"))
rs.fields("address2")=trim(request.form("address2"))
rs.fields("zip_code")=trim(request.form("zip_code"))
rs.fields("city")=trim(request.form("city"))
rs.fields("country")=trim(request.form("country"))
rs.fields("phone")=trim(request.form("phone"))
rs.fields("fax")=trim(request.form("fax"))
rs.fields("email")=trim(request.form("email"))
rs.fields("genre")=trim(request.form("genre"))
rs.fields("comments")=trim(request.form("comments"))
rs.fields("company_organism_invoice")=trim(request.form("company_organism_invoice"))
rs.fields("last_name_invoice")=trim(request.form("last_name_invoice"))
rs.fields("first_name_invoice")=trim(request.form("first_name_invoice"))
rs.fields("service_laboratory_invoice")=trim(request.form("service_laboratory_invoice"))
rs.fields("address1_invoice")=trim(request.form("address1_invoice"))
rs.fields("address2_invoice")=trim(request.form("address2_invoice"))
rs.fields("zip_code_invoice")=trim(request.form("zip_code_invoice"))
rs.fields("city_invoice")=trim(request.form("city_invoice"))
rs.fields("country_invoice")=trim(request.form("country_invoice"))
rs.fields("vat_invoice")=trim(request.form("vat_invoice"))
rs.fields("phone_invoice")=trim(request.form("phone_invoice"))
rs.fields("fax_invoice")=trim(request.form("fax_invoice"))
rs.fields("email_invoice")=trim(request.form("email_invoice"))
rs.fields("genre_invoice")=trim(request.form("genre_invoice"))
rs.fields("devise")=trim(request.form("devise"))
rs.fields("langue")=trim(request.form("langue"))
rs.fields("cours")=trim(request.form("cours"))
rs.fields("membre")=trim(request.form("membre"))
rs.fields("personne_accompagnant")=trim(request.form("personne_accompagnant"))
rs.fields("genre_accompagnant")=trim(request.form("genre_accompagnant"))
rs.fields("nom_accompagnant")=trim(request.form("nom_accompagnant"))
rs.fields("prenom_accompagnant")=trim(request.form("prenom_accompagnant"))
 
 
rs.update
rs.close
set rs=nothing
 
'---------Renvoie vers le formulaire FormRegistrationRecapems.asp avec passage de parametre------
response.redirect ("FormRegistrationRechercheESSAI.asp?email=" & trim(request.form("email")) & "&company_organism=" & trim(request.form("company_organism"))& "&last_name=" & trim(request.form("last_name"))& "&first_name=" & trim(request.form("first_name"))& "&zip_code=" & trim(request.form("zip_code")))
end if
end if
%>

sab_etudianteBTS · 13/03/2007, 10h33

Il y a un truc qui cloche encore!

Dans cette ligne tu met :

Citation:

rs.Open sql, conn, 3, 3

alors que ta requete est contenue dans une variable que tu nomme req... !
Corrige cela, c'est surement ca qui bloque!

nicolasferraris · 13/03/2007, 11h06

Il y a du mieux, mais ca affiche directement la page "PageESSAI.asp"
sans passer par le formulaire auparavant

Immobilis · 17/03/2007, 10h40

Salut,

J'ai pu remarquer au cours de mes développements que la syntaxe "recordset.addnew" est instable. Toutefois, il me semble que tu fais une confusion. Si tu veux utiliser addnew il faut faire ainsi:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim rs 'recordset
Set rs = server.CreateObject("ADODB.recordset")
	rs.open "[NomDeLaTable]", conn,1,3 ' En ecriture
		rs.Addnew
			rs("Champ1") = Request.Form("frm1")
			rs("Champ2") = Request.Form("frm2")
			rs("Champ3") = Request.Form("frm3")
			(...)
		rs.Update
	rs.close
set rs = nothing

Personnellement, je te conseil d'utiliser la syntaxe SQL "INSERT INTO ..."

A+

12/03/2007, 15h09	#1
nicolasferraris Membre régulier Inscription : juin 2006 Messages : 324 Détails du profil Informations personnelles : Localisation : France, Isère (Rhône Alpes) Informations forums : Inscription : juin 2006 Messages : 324 Points : 80 Points : 80	Verifier l'existance d'un enregistrement Bonjour, J'ai une page asp contant un formulaire qui aliment une base ACCESS. Avant l'enregistrement des champs dans la base, j'aimerai verifier l'existence d'un enregistrement similaire (test sur plusieurs champs), et si l'enregistrement existe déja, renvoyer l'utilisateur vers une page déterminée sans enregistrer les données dans la base. Merci à tous
	00

12/03/2007, 17h14	#8
nicolasferraris Membre régulier Inscription : juin 2006 Messages : 324 Détails du profil Informations personnelles : Localisation : France, Isère (Rhône Alpes) Informations forums : Inscription : juin 2006 Messages : 324 Points : 80 Points : 80	suite Si je met en dur les valeurs des request.form dans la requête sous ACCESS, ca marche
	00

12/03/2007, 21h37	#10
Immobilis Expert Confirmé Sénior Inscription : mars 2004 Messages : 5 849 Détails du profil Informations forums : Inscription : mars 2004 Messages : 5 849 Points : 5 965 Points : 5 965	Salut, Un peu de respect s'il te plaît. Ne mets pas tout le code de ta page... A mon avis c'est ta requete SQL qui n'est pas bonne. Essaye de la passer dans Access pour voir. Et puis merci de ne pas faire de multipost A+ __________________ Twitter widget Minichat multicast UDP sous Mango Linq to SQL vs SQL vs Entity Framework C# Google Distance Matrix Import/export de données en ASP.Net, L'architecture multicouche, Internationalisation en ASP.Net
	00

13/03/2007, 11h06	#14
nicolasferraris Membre régulier Inscription : juin 2006 Messages : 324 Détails du profil Informations personnelles : Localisation : France, Isère (Rhône Alpes) Informations forums : Inscription : juin 2006 Messages : 324 Points : 80 Points : 80	suite Il y a du mieux, mais ca affiche directement la page "PageESSAI.asp" sans passer par le formulaire auparavant
	00

12/03/2007, 15h58	#5
sab_etudianteBTS Membre habitué Inscription : juin 2006 Messages : 211 Détails du profil Informations forums : Inscription : juin 2006 Messages : 211 Points : 134 Points : 134	Re, Deja j'observe une petite erreur (peut etre de copier/coller) mais quand tu effectue ta connexion ta variable se nomme conn, et ensuite quand tu execute ta requete tu utilise cnx comme connexion! Ensuite, juste suposition, si ton code_zip est de type entier, alors retire tes quote, ils sont inutiles ici.
	00

12/03/2007, 16h55	#6
sab_etudianteBTS Membre habitué Inscription : juin 2006 Messages : 211 Détails du profil Informations forums : Inscription : juin 2006 Messages : 211 Points : 134 Points : 134	Quelle est la ligne 19 la dedans? A mon avis c ta requete qui ne va pas : affiche la et exécute la directement dans ton SGBD pour voir si c bien ca qui bloque.
	00

12/03/2007, 17h02	#7
nicolasferraris Membre régulier Inscription : juin 2006 Messages : 324 Détails du profil Informations personnelles : Localisation : France, Isère (Rhône Alpes) Informations forums : Inscription : juin 2006 Messages : 324 Points : 80 Points : 80	c'est le premier : rs.Open sql, conn, 3, 3
	00

12/03/2007, 20h21	#9
sab_etudianteBTS Membre habitué Inscription : juin 2006 Messages : 211 Détails du profil Informations forums : Inscription : juin 2006 Messages : 211 Points : 134 Points : 134	Re (dsl de répondre ke maintenant!) Essaye de mettre des response.write devant tous tes request.form dans ta requete, je pense ke ca vient de la... Test et dis moi si ca fonctionne!
	00

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email