Discussion :

[twizell]

Bonjour,

J'ai écrit une page asp qui va chercher dans une BD un Record précis. Je n'ai aucune boucle.

Sur certain ordinateur, je n'ai aucune erreur sur d'autre j'ai l'erreur: Error 80020009. Exception occurred line 70

Quelqu'un pourrait m'indiquer quel est mon erreur

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
 
Set conn = ConnectionOracle("GENP","brocanteur_owner","spvm")
		'Nous batissons la requête
		sql_stmt = "SELECT BROCANTEUR_OWNER.BROCANTEUR.NO_COMMERCE, BROCANTEUR_OWNER.BROCANTEUR.RAISON_SOCIALE FROM " & _
		"BROCANTEUR_OWNER.BROCANTEUR WHERE BROCANTEUR_OWNER.BROCANTEUR.STATUT = 'A' ORDER BY BROCANTEUR_OWNER.BROCANTEUR.NO_COMMERCE"
 
		Set Recordset = Server.CreateObject("ADODB.Recordset")
		' paramétrage du type de curseur
		Recordset.CursorType = 3
		' paramétrage du type de verrou
		Recordset.LockType = 1
		'On exécute la requête
		Recordset.Open sql_stmt, Conn
		lstNoCommerce = request.form("lstNoCommerce")
		if len(lstNoCommerce) = 0 then
			lstNoCommerce = request.querystring("NoCommerce")
		end if
		txtNoLot = trim(request.form("txtNoLot"))
		if len(txtNoLot) = 0 then
			txtNoLot = Replace(request.querystring("NoLot"),"-","+")
		end if
		if len(lstNoCommerce) <> 0 and len(txtNoLot) <> 0 then
			Recordset.close
			'Nous batissons la requête
			sql_stmt = "SELECT BROCANTEUR_OWNER.VENDEUR.NOM, BROCANTEUR_OWNER.VENDEUR.PRENOM, " & _
			"BROCANTEUR_OWNER.VENDEUR.DATE_NAISSANCE, BROCANTEUR_OWNER.VENDEUR.DATE_TRANSAC FROM BROCANTEUR_OWNER.VENDEUR WHERE " & _
			"BROCANTEUR_OWNER.VENDEUR.NO_COMMERCE =" & lstNoCommerce & " AND BROCANTEUR_OWNER.VENDEUR.NO_LOT ='" & txtNoLot & "'"
			'On exécute la requête
			Recordset.Open sql_stmt, Conn
			response.write "<form method='POST' action='.\modiftransaction.asp?entete=oui'>"
			response.write "<input type='hidden' name='lstNoCommerce' value='" & lstNoCommerce & "'>"
			response.write "<input type='hidden' name='txtNoLot' value='" & txtNoLot & "'>"
			response.write "<b>Numéro de commerce: </b>" & lstNoCommerce & "<br>"
			response.write "<b>Numéro de lot: </b>" & txtNoLot & "<br>"
			response.write "<table width='100%' summary='' border='1'>"
			response.write "<tr>"
			response.write "<td><b>Nom</b></td>"
			response.write "<td><b>Prenom</b></td>"
			response.write "<td><b>Date de naissance<br>AAAA/MM/JJ</b></td>"
			response.write "<td><b>Date transaction<br>AAAA/MM/JJ</b></td>"
			response.write "<td><b>Modifier</b></td>"
			response.write "</tr>"
			response.write "<tr>"
'La ligne suivante est la ligne 70
			response.write "<td><input type='text' name='txtNom' value='" & Recordset("NOM") & "' size='50' maxlength='50'></td>"
			response.write "<td><input type='text' name='txtPrenom' value='" & Recordset("PRENOM") & "' size='50' maxlength='50'></td>"
			response.write "<td><input type='text' name='txtDdn' value='" & FrenchDate(Recordset("DATE_NAISSANCE")) & "' size='10' maxlength='10'></td>"
			response.write "<td><input type='text' name='txtDateTransac' value='" & FrenchDate(Recordset("DATE_TRANSAC")) & "' size='10' maxlength='10'></td>"
			response.write "<td><input type='submit' value='Modifier'></form></td>"
			response.write "</tr>"
			response.write "</table><br><br>"
			recordset.close

merci de votre aide

[Gwenn]

Salut,

Je crois que ce message est assez "générique" comme execption. CE qui me choque dans ton code c'est que tu ne teste pas si ton recordset contient des valeurs avant d'afficher des valeurs:

Code :

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

1
2
3
If Not RecordSet.EOF Then
...
End If

Ce qui permet de faire une traitement particulier dans le cas ou ta requete ne retroune aucun resultat. C'est peut etre une piste...

[twizell]

Salut,

Je crois que ce message est assez "générique" comme execption. CE qui me choque dans ton code c'est que tu ne teste pas si ton recordset contient des valeurs avant d'afficher des valeurs:

Code :

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

1
2
3
If Not RecordSet.EOF Then
...
End If

Ce qui permet de faire une traitement particulier dans le cas ou ta requete ne retroune aucun resultat. C'est peut etre une piste...

Comme je dissais, la requete me retourne toujours un résultat. Le probleme c'est que pour les meme parametre, j'ai l'erreur 2 poste sur 5

[Gwenn]

T'es en train de dire que l'erreur est fonction du client, ce qui n'est pas tres logique pour un script qui s'execute sur le serveur seulement.

Tu n'as pas un espace dans l'url par hasard ? Les 5 postes dopnt tu parles sont tous identiques ? meme version du navigateur ?

[twizell]

tous est pareil!!

Je ne comprend pas pourquoi l'erreur arrive seulement sur 2 des 5 postes?

[twizell]

J'ai trouver la cause de l'erreur, le profile windows sur la machine était corrompu!!! Je ne vois pas en quoi cela affectait la page mais bon j'ai renomer le profile puis tout fonctionne donc...

Merci de votre aide!