Discussion :

[autumn319]

rebonjour
j'ai une erreur de syntaxe dans ce code ci.elle se situe au niveau des doubles cotes.avec des ( ) , il fait une erreur de syntaxe au niveau des ()

Code :

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

1
2
3
4
IF Request.Form("nom_1")<> "" AND
      Request.Form("nom_2")<> "" AND 
      Request.Form("nom_3")<> ""
      THEN

[jfphan]

Moi je mettrais plutot ça

Code :

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

1
2
3
4
IF Request.Form("nom_1")<> "" AND _
      Request.Form("nom_2")<> "" AND _
      Request.Form("nom_3")<> "" 
      THEN

ou tout sur la meme ligne

[autumn319]

merci c'est cool mais ça ne marche pas.
l'erreur de syntaxe se trouve juste apres les <> et avant le "" sur la 1ere ligne.

[jfphan]

essaie de remplacer les "" par des vbNullString

[BrYs]

Hummmmm ..... voui c'est clair, c'est bizarre.
montre le code de ta page ?

[lexav]

ouaip, le problème se situe certainement AVANT ce test...

[autumn319]

tu l'auras voulu,mais je te préviens ;c'est une vraie boucherie.

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
<%
   IF (Request.Form("nom_modele")<> "")AND_
      (Request.Form("nom_court_modele")<> "")AND_ 
      (Request.Form("nom_menu")<> "")
   THEN 
   'le formulaire a été validé je fais ma requête <BR>   
     Response.Write("ça se passe tout doucement")
     'strREQ = "SELECT *FROM bidon WHERE v=..." 
     'exécution de la requête <BR>   ... 
   '         
    'si le formulaire html ci dessous n'a pas été validé,je l'affiche en erreur 
     ELSE 
       if (Err.number) then 
              Response.Write(sql +"."+ Err.Description)
              Response.End
           end if   
   %> 
<BR><BR>
      <FORM METHOD ACTION="redirection1.asp">
      <div align="center"><B>CREATION DE MODELE<B></div>
      <div align="center">Quel est la reference exacte de votre modèle?</div>
      <div align="center"><input name="nom_modele" type="test"></div>
      <div align="center">Quel est le nom court de votre modèle?</div>
      <div align="center"><input name="nom_court_modele" type="test"></div>
      <div align="center">Quelle est l'adresse URL où vous voulez stocker ce fichier? </div>
      <div align="center"><input name="nom_menu" type="test"></div>
      <div align="center"><input type=submit value="soumettre votre requête"></div>
      <%

[scorpia]

Et c'est quoi le texte exact de l'erreur ?

Et en mettant tout sur la même ligne :

Code :

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

1
2
3
4
5
IF Request.Form("nom_1")<>"" AND ... AND Request.Form("nom_3")<>"" THEN
...
ELSE
...
END IF

a+

[linkchaser]

il te le fais des le premier chargement de la page ou quand tu soumets le formulaire?

[autumn319]

vbNullString ça ne marche pas,désolé.

normalement,il doit m'afficher mon formulaire la premiere fois qu'il charge la page,puis la deuxieme fois qu'il charge la page,il doit afficher "ça se passe tout doucement".

je ne pense pas que l'erreur soit avant,puisque jusque là,il affiche tout correctement.

[jfphan]

pour les _ il faut un espace entre le AND et le _.
Mais comme je l'ai dis tout à l'heure, essaie de mettre tout ton IF sur la meme ligne, tout comme l'a dit Scorpia

[linkchaser]

je sias ce qu'il doit faire

je te demande ce qu'il fait reelement

il te donne l'erreur au premier chargement ou apres la soumission

[autumn319]

voila le message d'erreur quand je mets tout sur la meme ligne(c'est bizarre d'etre obligé de mettre tout sur la meme ligne!!!!!)
la colonne 109,c'est ds le dernier request entre les deux <>
bizarre,non?

Code :

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

1
2
3
4
5
Type d'erreur :
Erreur de compilation Microsoft VBScript (0x800A03F9)
'Then' attendu
/webburo/programmes/redirection1.asp, line 31, column 109
IF (Request.Form("nom_modele")<>"")AND(Request.Form("nom_court_modele")<>"")AND(Request.Form("nom_menu")<>"")

[autumn319]

oui,c'est avant la soumission qu'il me donne cette erreur

[linkchaser]

lol alors soit il te manque un _ entre ton 3 eme request et ton then

soit ton then n'est pas sur la meme ligne

et lorsque tu n'as qu'une instructiona mettre dans le if tu fais tout sur une seule ligne comme ca tu n'as pas besoin de ton end if

[linkchaser]

le mot "then" doit etre sur la meme ligne que le mot "if"

[jfphan]

Non t'es pas obligé de tout mettre sur la meme ligne si tu respecte bien le caractère de suite qu'est le signe _ (avec un espace avant), la pour ton message d'erreur je pense que le THEN doit aussi etre sur la meme ligne ou bien sur la ligne du dessous toujours avec le caractère de suite.
Mais enfin je reviens de vacances, donc j'ai un peu de mal, et par conséquent je peux me tromper.

[autumn319]

vous etes vraiment tres forts!!!!!



je trouve quand meme fort indisposant (n'est ce pas?) de devoir tout mettre dans une ligne,le then y compris.

voici ma ligne

Code :

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

IF (Request.Form("nom_modele")<>"")AND(Request.Form("nom_court_modele")<>"")AND(Request.Form("nom_menu")<>"")THEN

qui se situe dans une seule ligne

[lexav]

Code :

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

1
2
3
4
5
Type d'erreur :
Erreur de compilation Microsoft VBScript (0x800A03F9)
'Then' attendu
/webburo/programmes/redirection1.asp, line 31, column 109
IF (Request.Form("nom_modele")<>"")AND(Request.Form("nom_court_modele")<>"")AND(Request.Form("nom_menu")<>"")

tout ton test est concaténé, il n'y a pas d'espaces entre les AND... c'est pas ça le pb ? je comprends plus rien ou quoi ?

[autumn319]

il me manquait un "then " en fin de ligne.
merci à tous!