Discussion :

[EssaiEncore]

bonjour

Je suis vraiment un novice dans le langage asp.
Je dois réaliser une modification d'un chat en asp.
J'ai reussi a faire quelque truc mais la je bloque.
J'ai un bouton d'envoi du message sur le chat et je voudrais que au clique de celui-ci, j'enregistre le nom et le message dans une base de donnée access.

Avant ce chat fonctionnait sans BDD

j'ai ecrit ce code grace a un tuto trouvé sur votre site:

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
 
<% 'Ouvrir la source de données
Set cnx = Server.CreateObject("ADODB.Connection")
cnx.Open "portachat14" %>
 
<input type="SUBMIT" name="chatSubmit2" value=" Send "> //bouton
 
<%if chatSubmit2 <> "" then 
if strChatBody <> "" then   // barre de message
 StrSQL = "insert into Insertion (Nom,Phrase) values ( '" & strUsers & "','" & strChatBody & "')"
 
 'Set RS = Server.CreateObject("ADODB.RecordSet")RS.Open StrSQL
 'RS.close
 
cnx.close %>

Merci d'avance

[roots_man]

il faut que t'execute la requete avec un

Code :

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

set rs = cnx.execute(strSQL)

a la place de ca

Code :

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

'Set RS = Server.CreateObject("ADODB.RecordSet")RS.Open StrSQL

Qui est en commentaire et je comprend pas pk !!

Hé pis sinon les end if il sont ou ????

[EssaiEncore]

Merci, mais ma page ne veut toujours pas s'afficher
Pour les end if, c'etait un oubli de Ctrl C, Ctrl V.

Ou dois-je placer ce code ??
Je les mit juste apres le bouton qui envoie le message (3).
voila comment est mon appli :

|---------|--------------------------------|
|Users(1)| chat (2) |
| | |
| | |
| |---------------------------------|
| |barre de message + bouton (3)|


mon 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
 
<% 'Ouvrir la source de données
Set cnx = Server.CreateObject("ADODB.Connection")
cnx.Open "portachat14" %>
 
<input type="SUBMIT" name="chatSubmit2" value=" Send ">
 
<%if chatSubmit2 <> "" then 
      if strChatBody <> "" then 
        StrSQL = "insert into Insertion (Nom,Phrase) values ( '" & strUsers           & "','" & strChatBody & "')"
        set rs = cnx.execute(strSQL)
        RS.Open StrSQL
        RS.close
       cnx.close 
     end if
end if %>

[EssaiEncore]

|users(1)| chat(2)--------------|
|----------|-------------------------|
|----------|-------------------------|
|----------|-------------------------|
|----------|-------------------------|
|----------|message + bouton (3)|

quand je lance mon appli, la partie 3 n'est pas afficher,"impossible d'afficher la page" depuis que j'ai rajouter le code d'insertion.

[roots_man]

Il te manque plein de chose :
1. Le formulaire avant le bouton <form method="post" action=""> et apres </form>
2. Ta zone de texte je la vois pas !!

Code :

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

<input type="text" name="msg">

3. chatSubmit2 faut changer et la mettre dans une variable comme cela

Code :

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

bouton = request.form("chatSubmit2")

4. La meme chose pour la zone de texte

Code :

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

message = request.form("msg")

5. Dans les test tu passe les variable bouton" et message.

Voila essaie déja ca pis redis-nous comment !!

[EssaiEncore]

1. Le formulaire avant le bouton <form method="post" action=""> et apres </form>

reponse : il y sont.

2. Ta zone de texte je la vois pas !!
Code:
<input type="text" name="msg">

reponse : juste en dessus de ma connexion
<INPUT TYPE="TEXT" NAME="chatInput" SIZE=30>
Cependant, grace a toi j'ai pu observer une erreur :

ce n'est pas

[/code]if strChatBody <> "" then

Code :

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

1
2
3
 
 
mais

if chatInput <> "" then

Code :

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

1
2
3
4
5
 
 
j'ai fait ce que tu m'a dit en 3 et 4. On est obligé de passer par des variables intermediaires ?
 
Malgré tout ces changement, rien de nouveau, la page (3) ne veut pas s'afficher

[roots_man]

1. Le formulaire avant le bouton <form method="post" action=""> et apres </form>

reponse : il y sont.

2. Ta zone de texte je la vois pas !!
Code:
<input type="text" name="msg">

reponse : juste en dessus de ma connexion

Excuse moi mais dans le code que tu nous a donné il n'y etait pas, pis je suis pas sensé deviné !!

Mais mnt ca insert les donnée dans ta base ou meme pas encore ?? S'il ne s'insère pas c'est qu'il passse pas les 2 teste essaie de mettre un "else" et dans le else tu met un response.write("Test pas passée"). Juste pour voir si ca passe ou pas !?!?

[EssaiEncore]

Excuse moi mais dans le code que tu nous a donné il n'y etait pas, pis je suis pas sensé deviné !!

cela ne se voullait pas mechant, c'etait juste pour te le dire !!!

J'ai reussi, j'avais 2 erreur tres bete apres l'ajout de ton code qui marche tres bien, un ' de trop quelque part, et l'appli est en Option Explicit j'avais pas vu donc il me manquais des variable a declaré.

Je te remerci