Comme ça ça marche :
 

 
Comme ça ça marche plus :
 

 
QQn peut m"expliquer pkoi ? merci d'avance!

j'ai rajouté ça en fait :  
 

nb= nb + 1  
 
toi tu lui dit nb=1 et après tu recherche nb=0 ???

oui ça veut dire que si il y a une ligne qui correspond a cette requete, je passe nb à 1 donc je ne fais pas l'insertion plus bas, ça revient au meme je pense de faire nb=nb+1 ( j'ai essayé et ça ne passe pas non plus )

N'est ce pas:

 
En tout cas, c'est comme ça en VB.
 
Edit: le gras n'a pas pris...

merci pour ta réponse j'ai essayé mais ça passe tjrs pas

Essaie en passant par une variable:
 
strSQL = "INSERT INTO abonnes (email) VALUES ('" & Request.Form("email" ) & "') "
Conn.Execute strSQL

tjr rien mais j'ai l impression que mon erreur est dans le if / end if pq qd je fais :

 
ça ne marche pas non plus ...

La structure du if c'est
 

 
j'ai un petit doute sur le end if, à savoir si ce n'est pas en un seul mot ??

si j'attache le end et le if ce n'est plus reconu comme une fonction par mon interpreteur html ...

Puisqu'on te dis:
if b=0 then

Par contre le then est obligatoire. Ce serait bien également si tu nous donnait les messages d'erreur

JiHemAir et Lord ii > oui pour le then j'ai testé et repondu a JiHemAir que ça ne fonctionnait pas plus ...

Impossible d'afficher la page  
Il y a un problème avec la page que vous essayez d'atteindre ; elle ne peut pas être affichée.  
 
--------------------------------------------------------------------------------
 
Essayez de la manière suivante :
 
Ouvrez la page de démarrage www.****.fr et recherchez des liens vers les informations voulues.  
Cliquez sur le bouton  Actualiser ou réessayez ultérieurement.
 
Cliquez sur  Rechercher pour trouver des informations sur Internet.  
Vous pouvez également consulter une liste de sites apparentés.  
 
 
HTTP 500 - Erreur interne de serveur  
Internet Explorer

Oui mais bon, faut le mettre quand même. As tu essayé en passant par une variable ?

oui je l'ai laissé je pense aussi qu'il faut le mettre, j'ai essayé aussi en passant par une variable

T'as les droits pour écrire dans ta base ?

oui parceque je l'ai fait sur une autre page ...

si je fais ça ça ne marche pas non plus :

Il faudrait surtout que tu obtiennes des messages d'erreurs plus explicites, je pense que cela devrait te faciliter la vie

Déja, ca plante où et avec quel message d'erreur ?
 
Ensuite, n'utilise JAMAIS la méthode .move(), surtout avec le mode de connection qui est utilisé en ASP, dans un programme VB avec le bon type de recordset, à la limite...
 
A la place, met :
 
errorMsg = ""
for i = 1 to Ndeb
   if rs.EOF then
      errorMsg = "Fin du recordset dépassé !"
      exit for
   else
      rs.MoveNext
   end if
next
 
if errorMsg <> "" then
   rs.Close
   Response.Write errorMsg
   Response.End
end if

Pour avoir un vrai message d'erreur :
1) Sur IIS, active l'affichage des messages d'erreur (normalement c'est par défaut)
2) Dans IE, désactive les messages d'erreur simplifiés (outils > option internet > avancées)

A mon avis, RS.Move(Ndeb) ne sert à rien. (Ndeb) n'est pas déclaré. En plus, si RS est vide, tu plantes là.
Ensuite, je ferai:
Do While not RS.eof
  RS.MoveNext
Loop
 
Edit: Barbecued !

ouf merci j'ai les messages d'erreur :
 
ADODB.Recordset error '800a0bcd'  
 
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.  
 
/newsletter/validation.asp, line 8  
 
( dslé je suis en mini reunion en mm tps )

Je suis de l'avis de JiHemAir et de Arjuna, il faut supprimer ce rs.move(Ndeb) se situant avant la boucle while.

Il faut aussi tester ton recordset après la lecture:
If Rs.BOF And Rs.EOF Then --> Rs est vide.
  Requete Ajout

sinon euh...
 
"select count(*) nbA from abonnes where email = '" & Replace(Request.Form("email" ), "'", "''" ) & "'"
 
Ensuite, pas besoin de tester quoi que ce soit...
 
if rs("nbA" ) = 0 then
   cnx.execute "insert ..."
else
   response.write "t'es déjà inscrit abrutis !"
end if
 
 
 
En effet, count() retournera toujours une ligne, même s'il n'y a rien :
 
select count(*) from dual where 1 = 0
 
=> Ca retourne une ligne avec 0, alors que DUAL est une table fictive, et que 1 = 0 ca a tendance a toujours être faux...

Pour la petite histoire, en plus ce sera infiniment plus rapide.

Merci ça marche grace a vous tous !! super merci encore :

Arjuna > merci pour ta solution , si j'ai le temps j'esserai de faire comme ça ...