Problème avec des transaction

**Oluha** · 01/03/2005, 10h24

Bonjour

J'ai une page ASP qui me sert à faire des enregistrements dans une bdd. Dans celle-ci j'utilise une transaction, comme on me l'a conseillé dans un précédent messaye, pour éviter les problèmes de multisession et pour éviter de faire la moitié des update/insert en cas d'erreur.

Mon problème c'est que quand j'execute ma page j'ai le message suivant :

Impossible de créer une nouvelle connexion en mode de transaction manuelle ou distribuée.

/presse/enreg_reglement.asp, line 351

Je ne vois pas trop pourquoi il me rale dessus. Voici un morceau de mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
connex.BeginTrans
 
		if request.Form("numpayeur") <> "0" then
			sql = "UPDATE AUTREREG SET AREG_UTILISE = (AREG_UTILISE + " + request.Form("paye") + ") "
			sql = sql + "WHERE AREG_NUM = " + request.Form("aregnum")
			connex.execute(sql)
			sql = "UPDATE ABONNEMENT SET ABO_SERVIR = (ABO_SERVIR + " + REGLE_NB_AJOUTE + ") WHERE ABO_NUM = " + request.Form("abo")
			connex.execute(sql)
		else
			sql = "UPDATE ABONNEMENT SET ABO_SERVIR = (ABO_SERVIR + " + cstr(REGLE_NB_AJOUTE) + ") WHERE ABO_NUM = " + request.Form("abo")
			connex.execute(sql)
		end if

La ligne 351 correspond à l'avant dernière ligne du code ci-dessus.
Pourquoi j'ai ce message d'erreur et comment faire ?

Merci pour vos réponses.

**franculo_caoulene** · 01/03/2005, 11h08

Salut,

Peux-tu donner le message d'erreur complet? Avec le numéro notamment.

**Oluha** · 01/03/2005, 11h13

Voila le message complet :

Erreur de compilation Microsoft VBScript error '800a0401'

Fin d'instruction attendue

/iisHelp/common/500-100.asp, line 11

Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^
Microsoft OLE DB Provider for SQL Server error '80004005'

Impossible de créer une nouvelle connexion en mode de transaction manuelle ou distribuée.

/presse/enreg_reglement.asp, line 351

**Gwenn** · 01/03/2005, 11h29

Salut,

on dirait qu'il manque un retour chariot dans avant "Dim strMethod" dans ton fichier 500-100.asp

etrange !

**franculo_caoulene** · 01/03/2005, 11h32

C'est l'erreur du message d'erreur de microsoft

**Oluha** · 01/03/2005, 11h35

lol

sinon je trouve ca bizarre pour ma transaction car j'en ai fais une sur une autre page et j'ai pas eu cette erreur

**franculo_caoulene** · 01/03/2005, 11h37

Je sais pas mais tu peux essayer de fermer et ouvrir tes connexions ou bien d'encadrer tes exécutions par les transactions. (j'ai pas trop le temps et j'ai pas utilisé ça depuis des années

)

**Oluha** · 01/03/2005, 11h46

Ce que je capte pas c'est qu'il me sort "impossible de créer une nouvelle connexion..." alors que j'utilise toujours la même connexion

**Gwenn** · 01/03/2005, 11h57

tu le fais a quel moment ton commitTrans ?

**Oluha** · 01/03/2005, 13h47

Ben après quand j'ai fais tous mes insert et mes update

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
connex.BeginTrans
 
if request.Form("numpayeur") <> "0" then
		sql = "UPDATE AUTREREG SET AREG_UTILISE = (AREG_UTILISE + " + request.Form("paye") + ") "
		sql = sql + "WHERE AREG_NUM = " + request.Form("aregnum")
		connex.execute(sql)
		sql = "UPDATE ABONNEMENT SET ABO_SERVIR = (ABO_SERVIR + " + cstr(REGLE_NB_AJOUTE) + ") WHERE ABO_NUM = " + request.Form("abo")
		connex.execute(sql)
else
		sql = "UPDATE ABONNEMENT SET ABO_SERVIR = (ABO_SERVIR + " + cstr(REGLE_NB_AJOUTE) + ") WHERE ABO_NUM = " + request.Form("abo")
		connex.execute(sql)
end if
 
PUBLI_NO_ENCOURS = RS2("PUBLI_NO_ENCOURS")
if (PUBLI_NO_ENCOURS = "") or (IsNull(PUBLI_NO_ENCOURS)) then
	PUBLI_NO_ENCOURS = 0
end if
 
' insertion dans REGLEMENT
sql = "INSERT INTO REGLEMENT(ABO_NUM,REGLE_LIB,REGLE_REGLEPAR,REGLE_MONTANT,REGLE_ECART,REGLE_MONEY,REGLE_TITRE, "
sql = sql + "REGLE_DATETITRE, REGLE_VILLE, REGLE_CODEBANK, REGLE_CODEGUICHET, REGLE_BANQUE, REGLE_DATE_OPERATION, "
sql = sql + "REGLE_NUM_ENCOURS, REGLE_TARIF, REGLE_EXAMPLAIRE, REGLE_REMISE, REGLE_DON, REGLE_RESTE, REGLE_FACTURE, "
sql = sql + "REGLE_VALIDER, REGLE_RELANCE, REGLE_REGL_PAYEUR, REGLE_INDIV_NUM, REGLE_ANONY, REGLE_ORI, REGLE_RESTE_SERVIR, "
sql = sql + "REGLE_MODE_RELANCE, REGLE_MODE_ENVOIE, REGLE_NO_CHEQUE, REGLE_ANCIEN_REG_ACTIF, REGLE_NB_AJOUTE, "
sql = sql + "REGLE_CPT_RESTE_SERVIR, REGLE_STATUS, REGLE_NB_AJOUTE_FREE) "
sql = sql + "VALUES (" + request.Form("abo") + ", '" + REGLE_LIB + "', '" + Ucase(request.Form("nom")) + "', '" + request.Form("paye") + "', "
sql = sql + "'" + cstr(REGLE_ECART) + "', '" + request.Form("monnaie2") + "', " + request.Form("type") + ", '" + request.Form("date") + "', "
sql = sql + "'" + Ucase(request.Form("ville")) + "', '" + request.Form("codebanque") + "', '" + request.Form("codeguichet") + "', " + request.Form("banque") + ", "
sql = sql + "'" + FrenchDate(cstr(Date)) + "', " + cstr(cint(PUBLI_NO_ENCOURS) + 1) + ", " + request.Form("tarif") + ", "
sql = sql + request.Form("nbex") + ", " + request.Form("remise") + ", " + REGLE_DON + ", " + REGLE_RESTE + ", " + REGLE_FACTURE + ", "
sql = sql + REGLE_VALIDER + ", " + REGLE_RELANCE + ", '" + request.Form("aregnum") + "', " + request.Form("numpayeur") + ", "
sql = sql + REGLE_ANONYME + ", " + request.Form("origine") + ", " + cstr(REGLE_RESTE_SERVIR) + ", " + request.Form("systrelance") + ", "
sql = sql + request.Form("envoi") + ", '" + request.Form("numtitre") + "', " + cstr(REGLE_ANCIEN_REG_ACTIF) + ", " + cstr(REGLE_NB_AJOUTE) + ", "
sql = sql + cstr(REGLE_CPT_RESTE_SERVIR) + ", " + cstr(REGLE_STATUS) + ", " + cstr(REGLE_NB_AJOUTE_FREE) + ")"
connex.execute(sql)
 
RS2.close
set RS2 = nothing
 
set RS2 = server.CreateObject("ADODB.RecordSet")
sql = "SELECT @@IDENTITY FROM REGLEMENT"
RS2.open sql, connex
REGLE_NUM = RS2(0)
RS2.close
set RS2 = nothing
 
' insertion dans FACTURE
if request.Form("facture") = "1" then
	' s'il s'agit d'un bill me
	set RS2 = server.CreateObject("ADODB.RecordSet")
	sql = "SELECT * FROM Mod_REGLEMENT WHERE Cod_regl = " + request.Form("type")
	RS2.open sql, connex
	if RS2("typeaction") = "4" then
		' la facture n'a pas été payée
		sql = "INSERT INTO FACTURE(ABO_NUM,FAC_LIB,FAC_MONTANT,FAC_MONEY,FAC_DATE,FAC_NUM_REGLE,FAC_PAYE) "
		sql = sql + "VALUES (" + request.Form("abo") + ", '" + request.Form("tarif") + "', " + request.Form("total")
		sql = sql + ", '" + request.Form("monnaie2") + "', '" + FrenchDate(cstr(Date)) + "', " + cstr(REGLE_NUM)
		sql = sql + ", 0)"
		connex.execute(sql)
	else
		' la facture a été payée
		sql = "INSERT INTO FACTURE(ABO_NUM,FAC_LIB,FAC_MONTANT,FAC_MONEY,FAC_DATE,FAC_NUM_REGLE,FAC_PAYE,FAC_DATE_PAYE) "
		sql = sql + "VALUES (" + request.Form("abo") + ", '" + request.Form("tarif") + "', " + request.Form("total")
		sql = sql + ", '" + request.Form("monnaie2") + "', '" + FrenchDate(cstr(Date)) + "', " + cstr(REGLE_NUM)
		sql = sql + ", 1, '" + FrenchDate(cstr(Date)) + "')"
		connex.execute(sql)
	end if
else
	' s'il s'agit d'un bill me
	set RS2 = server.CreateObject("ADODB.RecordSet")
	sql = "SELECT * FROM Mod_REGLEMENT WHERE Cod_regl = " + request.Form("type")
	RS2.open sql, connex
	if RS2("typeaction") = "4" then
		' la facture n'a pas été payée
		sql = "INSERT INTO FACTURE(ABO_NUM,FAC_LIB,FAC_MONTANT,FAC_MONEY,FAC_DATE,FAC_NUM_REGLE,FAC_PAYE) "
		sql = sql + "VALUES (" + request.Form("abo") + ", '" + request.Form("tarif") + "', " + request.Form("total")
		sql = sql + ", '" + request.Form("monnaie2") + "', '" + FrenchDate(cstr(Date)) + "', " + cstr(REGLE_NUM)
		sql = sql + ", 0)"
		connex.execute(sql)
	end if
end if
 
' insertion dans RESTE
if request.Form("reste") = "1" then
	sql = "INSERT INTO AUTREREG(ABO_NUM,AREG_LIB,AREG_MONTANT,AREG_MONEY,AREG_DATE,AREG_NUM_REGLE,AREG_UTILISE) "
	sql = sql + "VALUES (" + request.Form("abo") + ", 'sur Reglement abo', " + cstr(REGLE_ECART) + ", "
	sql = sql + "'" + request.Form("monnaie2") + "', '" + request.Form("date") + "', " + cstr(REGLE_NUM) + ", 0)"
	connex.execute(sql)
end if
 
' insertion dans DON
if request.Form("don") = "1" then
	sql = "INSERT INTO DON(ABO_NUM,DON_LIB,DON_MONTANT,DON_MONEY,DON_DATE,DON_NUM_REGLE) "
	sql = sql + "VALUES (" + request.Form("abo") + ", 'Don sur abonnement', " + cstr(REGLE_ECART) + ", "
	sql = sql + "'" + request.Form("monnaie2") + "', '" + request.Form("date") + "', " + cstr(REGLE_NUM) + ")"
			connex.execute(sql)
end if
 
connex.CommitTrans

**pc75** · 01/03/2005, 13h59

Bonjour,

Erreur de compilation Microsoft VBScript error '800a0401'

Fin d'instruction attendue

/iisHelp/common/500-100.asp, line 11

Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^
Microsoft OLE DB Provider for SQL Server error '80004005'

Impossible de créer une nouvelle connexion en mode de transaction manuelle ou distribuée.

/presse/enreg_reglement.asp, line 351

Si ce n'est pas une erreur de copier / coller, le "Dim" au milieu des déclarations ne devrait-l pas être remplacé par une virgule ?

**Oluha** · 01/03/2005, 14h12

Euh cette erreur là j'y peux rien c'est pas moi qui ait écrit ça (je crois que c'est un bug de microsoft)

**Gwenn** · 01/03/2005, 14h15

A priori, l'erreur indique qu'il y a une conneixon qui n'est pas fermée. en regardant ton code, je vois que tu ouvres des recordset, que tu ne fermes pas. Cela peut provenir de là

**Oluha** · 01/03/2005, 14h19

exacte ! J'avais pas vu que je fermais pas RS2 dans deux de mes conditions, je teste ca de suite

**Oluha** · 01/03/2005, 14h36

Bon j'ai toujours l'erreur, j'ai vérifié tous mes recordset et je les ferme bien tous dans la transaction. J'ai essayé d'englobé l'intégralité de mes requêtes dans la transaction mais toujours rien...

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
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
connex.BeginTrans
 
' preparation à l'insertion dans REGLEMENT
set RS = server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM TARIF WHERE TARIF_NUM = " + request.Form("tarif")
RS.open sql, connex
 
REGLE_LIB = request.Form("memo")
REGLE_ECART = request.Form("ecart")
REGLE_NB_AJOUTE_FREE = 0
 
if request.Form("ecart") = "0" and request.Form("ajoutsuppr") = "" then
	REGLE_NB_AJOUTE = RS("TARIF_NOMBRE")
end if
if request.Form("nbpm") <> "" then
	if request.Form("pm") = "+" then
		REGLE_NB_AJOUTE = cint(RS("TARIF_NOMBRE")) + cint(request.Form("nbpm"))
		REGLE_NB_AJOUTE_FREE = request.Form("nbpm")
	elseif request.Form("pm") = "-" then
		REGLE_NB_AJOUTE = cint(RS("TARIF_NOMBRE")) - cint(request.Form("nbpm"))
		REGLE_NB_AJOUTE_FREE = "-" + request.Form("nbpm")
	end if
	REGLE_ECART = CDbl(request.Form("paye")) - (Cint(request.Form("nbajoute")) * CDbl(RS("TARIF_UNITE")))
	REGLE_LIB = request.Form("pm") + request.Form("nbpm") + " Err reglement " + REGLE_LIB
else
	REGLE_NB_AJOUTE = RS("TARIF_NOMBRE")
end if
 
if (REGLE_NB_AJOUTE = "") or (IsNull(REGLE_NB_AJOUTE)) then
	REGLE_NB_AJOUTE = 0
end if
 
REGLE_CPT_RESTE_SERVIR = REGLE_NB_AJOUTE
 
if (RS("TARIF_ACTION") <> "1") or (IsNull(RS("TARIF_ACTION"))) then
	set RS2 = server.CreateObject("ADODB.RecordSet")
	sql = "SELECT STATUS.STATUS_ACTION FROM STATUS "
	sql = sql + "RIGHT OUTER JOIN REGLEMENT ON STATUS.STATUS_NUM = REGLEMENT.REGLE_STATUS "
	sql = sql + "WHERE (STATUS.STATUS_ACTION = 1) AND (REGLEMENT.ABO_NUM = " + request.form("abo") + ")"
	RS2.open sql, connex, 3, 3
	if RS2.recordcount = 0 then
		set RS3 = server.CreateObject("ADODB.RecordSet")
		sql = "SELECT * FROM STATUS WHERE STATUS_PUBLI_NUM = " + request.form("id") + " AND STATUS_ACTION = 1"
		RS3.open sql, connex
		REGLE_STATUS = RS3("STATUS_NUM")
		RS3.close
		set RS3 = nothing
	else
		set RS3 = server.CreateObject("ADODB.RecordSet")
		sql = "SELECT * FROM STATUS WHERE STATUS_PUBLI_NUM = " + request.form("id") + " AND STATUS_ACTION = 2"
		RS3.open sql, connex
		REGLE_STATUS = RS3("STATUS_NUM")
		RS3.close
		set RS3 = nothing
	end if
	RS2.close
	set RS2 = nothing
else
	set RS3 = server.CreateObject("ADODB.RecordSet")
	sql = "SELECT * FROM STATUS WHERE STATUS_PUBLI_NUM = " + request.form("id") + " AND STATUS_ACTION = 4"
	RS3.open sql, connex
	REGLE_STATUS = RS3("STATUS_NUM")
	RS3.close
	set RS3 = nothing
end if
 
RS.close
set RS = nothing
 
REGLE_LIB = replace(REGLE_LIB, "'", "''")
 
if request.Form("don") = "1" then
	REGLE_DON = "1"
else
	REGLE_DON = "0"
end if
if request.Form("reste") = "1" then
	REGLE_RESTE = "1"
else
	REGLE_RESTE = "0"
end if
if request.Form("facture") = "1" then
	REGLE_FACTURE = "1"
else
	REGLE_FACTURE = "0"
end if
if request.Form("avalider") = "1" then
	REGLE_VALIDER = "1"
else
	REGLE_VALIDER = "0"
end if
if request.Form("relance") = "1" then
	REGLE_RELANCE = "1"
else
	REGLE_RELANCE = "0"
end if
if request.Form("anonyme") = "1" then
	REGLE_ANONYME = "1"
else
	REGLE_ANONYME = "0"
end if
 
set RS2 = server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM PUBLICATION WHERE PUBLI_NUM = " + request.Form("id")
RS2.open sql, connex
 
set RS3 = server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM REGLEMENT WHERE REGLE_NUM = (SELECT max(REGLE_NUM) FROM REGLEMENT WHERE ABO_NUM = " + request.Form("abo") + ")"
RS3.open sql, connex, 3, 3 ' ligne 339
if RS3.recordcount > 0 then
	REGLE_RESTE_SERVIR = cint(RS3("REGLE_RESTE_SERVIR")) + cint(REGLE_CPT_RESTE_SERVIR)
	REGLE_ANCIEN_REG_ACTIF = RS3("REGLE_NUM")
else
	REGLE_RESTE_SERVIR = REGLE_CPT_RESTE_SERVIR
	REGLE_ANCIEN_REG_ACTIF = "0"
end if
RS3.close
set RS3 = nothing
 
if request.Form("numpayeur") <> "0" then
	sql = "UPDATE AUTREREG SET AREG_UTILISE = (AREG_UTILISE + " + request.Form("paye") + ") "
	sql = sql + "WHERE AREG_NUM = " + request.Form("aregnum")
	connex.execute(sql)
	sql = "UPDATE ABONNEMENT SET ABO_SERVIR = (ABO_SERVIR + " + cstr(REGLE_NB_AJOUTE) + ") WHERE ABO_NUM = " + request.Form("abo")
	connex.execute(sql)
else
	sql = "UPDATE ABONNEMENT SET ABO_SERVIR = (ABO_SERVIR + " + cstr(REGLE_NB_AJOUTE) + ") WHERE ABO_NUM = " + request.Form("abo")
	connex.execute(sql)
end if
 
PUBLI_NO_ENCOURS = RS2("PUBLI_NO_ENCOURS")
if (PUBLI_NO_ENCOURS = "") or (IsNull(PUBLI_NO_ENCOURS)) then
	PUBLI_NO_ENCOURS = 0
end if
 
' insertion dans REGLEMENT
sql = "INSERT INTO REGLEMENT(ABO_NUM,REGLE_LIB,REGLE_REGLEPAR,REGLE_MONTANT,REGLE_ECART,REGLE_MONEY,REGLE_TITRE, "
sql = sql + "REGLE_DATETITRE, REGLE_VILLE, REGLE_CODEBANK, REGLE_CODEGUICHET, REGLE_BANQUE, REGLE_DATE_OPERATION, "
sql = sql + "REGLE_NUM_ENCOURS, REGLE_TARIF, REGLE_EXAMPLAIRE, REGLE_REMISE, REGLE_DON, REGLE_RESTE, REGLE_FACTURE, "
sql = sql + "REGLE_VALIDER, REGLE_RELANCE, REGLE_REGL_PAYEUR, REGLE_INDIV_NUM, REGLE_ANONY, REGLE_ORI, REGLE_RESTE_SERVIR, "
sql = sql + "REGLE_MODE_RELANCE, REGLE_MODE_ENVOIE, REGLE_NO_CHEQUE, REGLE_ANCIEN_REG_ACTIF, REGLE_NB_AJOUTE, "
sql = sql + "REGLE_CPT_RESTE_SERVIR, REGLE_STATUS, REGLE_NB_AJOUTE_FREE) "
sql = sql + "VALUES (" + request.Form("abo") + ", '" + REGLE_LIB + "', '" + Ucase(request.Form("nom")) + "', '" + request.Form("paye") + "', "
sql = sql + "'" + cstr(REGLE_ECART) + "', '" + request.Form("monnaie2") + "', " + request.Form("type") + ", '" + request.Form("date") + "', "
sql = sql + "'" + Ucase(request.Form("ville")) + "', '" + request.Form("codebanque") + "', '" + request.Form("codeguichet") + "', " + request.Form("banque") + ", "
sql = sql + "'" + FrenchDate(cstr(Date)) + "', " + cstr(cint(PUBLI_NO_ENCOURS) + 1) + ", " + request.Form("tarif") + ", "
sql = sql + request.Form("nbex") + ", " + request.Form("remise") + ", " + REGLE_DON + ", " + REGLE_RESTE + ", " + REGLE_FACTURE + ", "
sql = sql + REGLE_VALIDER + ", " + REGLE_RELANCE + ", '" + request.Form("aregnum") + "', " + request.Form("numpayeur") + ", "
sql = sql + REGLE_ANONYME + ", " + request.Form("origine") + ", " + cstr(REGLE_RESTE_SERVIR) + ", " + request.Form("systrelance") + ", "
sql = sql + request.Form("envoi") + ", '" + request.Form("numtitre") + "', " + cstr(REGLE_ANCIEN_REG_ACTIF) + ", " + cstr(REGLE_NB_AJOUTE) + ", "
sql = sql + cstr(REGLE_CPT_RESTE_SERVIR) + ", " + cstr(REGLE_STATUS) + ", " + cstr(REGLE_NB_AJOUTE_FREE) + ")"
connex.execute(sql)
 
RS2.close
set RS2 = nothing
 
set RS2 = server.CreateObject("ADODB.RecordSet")
sql = "SELECT @@IDENTITY FROM REGLEMENT"
RS2.open sql, connex
REGLE_NUM = RS2(0)
RS2.close
set RS2 = nothing
 
' insertion dans FACTURE
if request.Form("facture") = "1" then
	' s'il s'agit d'un bill me
	set RS2 = server.CreateObject("ADODB.RecordSet")
	sql = "SELECT * FROM Mod_REGLEMENT WHERE Cod_regl = " + request.Form("type")
	RS2.open sql, connex
	if RS2("typeaction") = "4" then
		' la facture n'a pas été payée
		sql = "INSERT INTO FACTURE(ABO_NUM,FAC_LIB,FAC_MONTANT,FAC_MONEY,FAC_DATE,FAC_NUM_REGLE,FAC_PAYE) "
		sql = sql + "VALUES (" + request.Form("abo") + ", '" + request.Form("tarif") + "', " + request.Form("total")
		sql = sql + ", '" + request.Form("monnaie2") + "', '" + FrenchDate(cstr(Date)) + "', " + cstr(REGLE_NUM)
		sql = sql + ", 0)"
		connex.execute(sql)
	else
		' la facture a été payée
		sql = "INSERT INTO FACTURE(ABO_NUM,FAC_LIB,FAC_MONTANT,FAC_MONEY,FAC_DATE,FAC_NUM_REGLE,FAC_PAYE,FAC_DATE_PAYE) "
		sql = sql + "VALUES (" + request.Form("abo") + ", '" + request.Form("tarif") + "', " + request.Form("total")
		sql = sql + ", '" + request.Form("monnaie2") + "', '" + FrenchDate(cstr(Date)) + "', " + cstr(REGLE_NUM)
		sql = sql + ", 1, '" + FrenchDate(cstr(Date)) + "')"
		connex.execute(sql)
	end if
	RS2.close
	set RS2 = nothing
else
	' s'il s'agit d'un bill me
	set RS2 = server.CreateObject("ADODB.RecordSet")
	sql = "SELECT * FROM Mod_REGLEMENT WHERE Cod_regl = " + request.Form("type")
	RS2.open sql, connex
	if RS2("typeaction") = "4" then
		' la facture n'a pas été payée
		sql = "INSERT INTO FACTURE(ABO_NUM,FAC_LIB,FAC_MONTANT,FAC_MONEY,FAC_DATE,FAC_NUM_REGLE,FAC_PAYE) "
		sql = sql + "VALUES (" + request.Form("abo") + ", '" + request.Form("tarif") + "', " + request.Form("total")
		sql = sql + ", '" + request.Form("monnaie2") + "', '" + FrenchDate(cstr(Date)) + "', " + cstr(REGLE_NUM)
		sql = sql + ", 0)"
		connex.execute(sql)
	end if
	RS2.close
	set RS2 = nothing
end if
 
' insertion dans RESTE
if request.Form("reste") = "1" then
	sql = "INSERT INTO AUTREREG(ABO_NUM,AREG_LIB,AREG_MONTANT,AREG_MONEY,AREG_DATE,AREG_NUM_REGLE,AREG_UTILISE) "
	sql = sql + "VALUES (" + request.Form("abo") + ", 'sur Reglement abo', " + cstr(REGLE_ECART) + ", "
	sql = sql + "'" + request.Form("monnaie2") + "', '" + request.Form("date") + "', " + cstr(REGLE_NUM) + ", 0)"
	connex.execute(sql)
end if
 
' insertion dans DON
if request.Form("don") = "1" then
	sql = "INSERT INTO DON(ABO_NUM,DON_LIB,DON_MONTANT,DON_MONEY,DON_DATE,DON_NUM_REGLE) "
	sql = sql + "VALUES (" + request.Form("abo") + ", 'Don sur abonnement', " + cstr(REGLE_ECART) + ", "
	sql = sql + "'" + request.Form("monnaie2") + "', '" + request.Form("date") + "', " + cstr(REGLE_NUM) + ")"
	connex.execute(sql)
end if
 
if request.Form("cb") = "cb" then
 
	set RS = server.CreateObject("ADODB.RecordSet")
	sql = "SELECT * FROM REGLEMENT "
	sql = sql + "INNER JOIN ABONNEMENT ON REGLEMENT.ABO_NUM = ABONNEMENT.ABO_NUM "
	sql = sql + "INNER JOIN ADRESSE ON ABONNEMENT.INDIV_NUM = ADRESSE.INDIV_NUM "
	sql = sql + "WHERE REGLE_NUM = " + cstr(REGLE_NUM)
	RS.open sql, connex
 
	' on ouvre une popup vers le site de la banque
	url = "<script>window.open('http://www.magnificat.net/paiement.asp?"
	url = url + "prix=" + cstr(RS("REGLE_MONTANT"))
	url = url + "&CustomerId=EX" + cstr(RS("INDIV_NUM"))
	url = url + "&PRENOM=" + cstr(RS("PRENOM_NUM"))
	url = url + "&NOM=" + cstr(RS("NOM_NUM"))
	url = url + "&ADDR1=" + cstr(RS("ADR_COMP2"))
	url = url + "&ADDR2=" + cstr(RS("ADR_ADR"))
	url = url + "&VILLE=" + cstr(RS("ADR_VILLE"))
	url = url + "&STATE=" + cstr(RS("ADR_ETAT"))
	url = url + "&CP_ZIP=" + cstr(RS("ADR_CP"))
	url = url + "&COUNTRY=" + cstr(RS("MUM_PAYS"))
	url = url + "&TEL=" + cstr(RS("ADR_TEL"))
	url = url + "&EMAIL=" + cstr(RS("ADR_E_MAIL"))
	url = url + "');</script>"
	response.Write(url)
 
	RS.close
	set RS = nothing
 
end if
 
connex.CommitTrans

et la nouvelle erreur :

Erreur de compilation Microsoft VBScript error '800a0401'

Fin d'instruction attendue

/iisHelp/common/500-100.asp, line 11

Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^
Microsoft OLE DB Provider for SQL Server error '80004005'

Impossible de créer une nouvelle connexion en mode de transaction manuelle ou distribuée.

/presse/enreg_reglement.asp, line 339

La ligne 339 :

Code :

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

RS3.open sql, connex, 3, 3

**Gwenn** · 01/03/2005, 14h59

Code :

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

1
2
3
4
5
6
7
set RS2 = server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM PUBLICATION WHERE PUBLI_NUM = " + request.Form("id")
RS2.open sql, connex
 
set RS3 = server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM REGLEMENT WHERE REGLE_NUM = (SELECT max(REGLE_NUM) FROM REGLEMENT WHERE ABO_NUM = " + request.Form("abo") + ")"
RS3.open sql, connex, 3, 3 ' ligne 339

T'as pas fermé RS2

**Oluha** · 01/03/2005, 15h40

en fait je le fermais plus loin sous le gros INSERT mais apparemment ca devait pas lui plaire, j'ai remonté et maintenant ca marche.

Un grand merci pour le coup de main !

Problème avec des transaction

ASP

Discussions similaires

Partager

Partager