Discussion :

[pouchkine]

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%>

voila la ligne :

Code :

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

if rsver(0)>20 then

Merci d'avance

[E.Bzz]

Bonjour,
pour que quelqu'un puisse t'aider, il faudrait le reste du code.

Sorti de son contexte, ce bout de code ne comporte pas d'erreur ...

A+

[roro06]

Bonjour aussi, et bienvenue sur le forum

Ton message d'erreur est peu parlant, il convient dans un premier temps de paramétrer ton serveur IIS pour avoir des messages plus explicites : dans la console de paramétrage, dans les propriétés du site web, il y a une option qui permet d"envoyer des messages d'erreur ASP détaillés au client". Coche la, déjà, tu aura un message plus parlant.

Peut-être rajouter un test :

Code :

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

1
2
3
if not rsver.eof then
    if rsver(0)>20 then 
    ...

[pouchkine]

Merci mes amis mais j 'ai résolu le problème juste dans cette ligne exactement il y a un mot incorrect qui a produit l'erreur sur cette ligne donc j' ai enlevé le mot voila le

Code :

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

if (0)>20 then

Merci d'avance[/QUOTE]