(error '80020009' Une exception s'est produite

**pouchkine** · 30/04/2009, 11h47

c'est mon premier message dans ce forum le problème pas complexe mais je suis entrain de faire un mini messagerie en effet j'ai une erreur qui se produite

Code :

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

1
2
3
4
 (error '80020009'
Une exception s'est produite.
 
/adil/testenv.asp, line 56

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
 <%
dim con
Set con = Server.CreateObject("ADODB.Connection")
dim objRS2
set objRS2 = Server.CreateObject("ADODB.Recordset")	
con.open "DSN=marouane; uid=sa; pwd=sa"
%>
<% 
 
 
txta=Trim(Request.Form("txta"))
txtobjet=Trim(Request.Form("txtobjet"))
session("txtmsg")=Trim(Request.Form("txtmsg"))
txtmenu=Trim(Request.Form("menu1"))
if txtmenu="Enregistrer" then
	reqmsg="insert into mail (Emetteur,Recepteur,Mail,Objet,Datemsg,heure,etat,emplacement) values ('" & session("txtpseudo") & "','" & txta & "','" & session("txtmsg") & "','" & txtobjet & "','" & Date & "','" & time & "','Non lu','brouillon')" 
	con.execute(reqmsg) 
	session("txtmsg")=""
	response.Redirect("ecriremsg.asp")
else
 
	if txta="" then 
		session("erra")="Vous devez tapez votre destinataire"
		response.Redirect("ecriremsg.asp")
	else
		req="SELECT Utilisateur.Pseudo FROM Utilisateur WHERE Utilisateur.Pseudo='" & txta & "'"
		set rs=con.execute(req)
		if rs.eof=true then
			session("erra")="Votre destinataire est introuvable"
			response.Redirect("ecriremsg.asp")
		else
			if session("pseudo")=txta then
				session("erra")="Vous ne pouvez pas envoyer un message à vous même"
				response.Redirect("ecriremsg.asp")
			end if
		end if
		session("erra")=""	
 
		reqver="SELECT Count(Mail.Nummail) , Mail.Recepteur FROM Mail GROUP BY Mail.Recepteur HAVING  Mail.Recepteur='" & txta & "'"
		set rsver=con.execute(reqver)
 
		if rsver(0)>20 then 
 
		%>
		 <br><br><br><br>
			<p align="center" class="Style1 Style2"><u>Le message ne peut pas être envoyé parce que<br><br>la boite de reception de votre destinataire est saturée</u></p>
		<% else
			reqmsg="insert into mail (Emetteur,Recepteur,Mail,Objet,Datemsg,heure,etat,emplacement) values ('" & session("txtpseudo") & "','" & txta & "','" & session("txtmsg") & "','" & txtobjet & "','" & Date & "','" & time & "','Non lu','rien')" 
			con.execute(reqmsg) 
			session("txtmsg")=""
			%>
 
			<div align="center"><img src="Images/connected.gif" width="32" height="32"></div>
			<br><br>
		<p align="center" class="Style1 Style2"><u>Le message a été bien envoyé</u></p>
		<% end if %>
 
	<% end if 
end if%>