Erreur de compilation Microsoft VBScript '800a041f': inattendu 'Suivant'

Question

Je suis en train de programmer un jeu multi-joueurs tic-tac-toe dans VBScript/ASP.

Voici le code sur Wich l'erreur se produit au-dessus:

For x = 1 To 3 
If AllEqual(arr(x,1), arr(x,1), arr(x,1)) Then 
    If arr(x,1) = GetText(currentplayer) Then 
    bWinner = currentplayer 
    Else If arr(x,1) = GetText(0) Then 
    'nothing to do 
    Else 
    If GetNumber(arr(x,1)) <> currentplayer Then 
    bWinner = GetNumber(arr(x,1)) 
    End If 
    End If 
End If 
Next 

Et voici la sortie du message d'erreur:

/iTicTic/play.asp, ligne 82

Next 
^

Qu'est-ce que je fais mal ici?

Merci! Yvan

Edit: code complet ici: http://pastebin.com/BcR4HZ4a

Answer 1

Je crois qu'il est dû à l'utilisation de Else If, la syntaxe est ElseIf. Fondamentalement avec Else If il voit cela comme une nouvelle déclaration If qui aurait besoin de sa propre déclaration End If de fermeture.