Erreur lorsque que j'utilise 2 boucles If Then Else

Question

Voici une partie de mon code.

<% Dim objConn, objRec
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRec = Server.CreateObject("ADODB.Recordset")
objConn.Open "DSN=Member"
objRec.Open "Membres",objConn
While Not objRec.EOF
Dim intTrouve
intTrouve= 0
If objRec("Nom_acces") = Request.Form("txtUtil")then
   intTrouve = intTrouve + 1
End if
If objRec("Mot_de_passe") Request.Form("txtPass")then
    intTrouve = intTrouve + 2
End if
objRec.movenext
Wend
objRec.Close
objConn.Close
%>

Bon voila le pb, j'obtiens cette erreur.
Microsoft VBScript compilation (0x800A03F9)
Expected 'Then'

Peut importe ce que j essaye, je suis incappable de mettre 2 boucles if dans le meme code sinon je recois cette erreur.
Si j'en est qu'une tout marche.
J'utilise IIS 5.0 pour tester.

cs_Bud · Answer

Hello

Il manque un espace avant ton deuxième then

Bud

Erreur lorsque que j'utilise 2 boucles If Then Else

1 réponse

Votre réponse

Discussions similaires