Ошибка компиляции Microsoft VBScript «800a041f»: неожиданное «следующее» - PullRequest
Новая
       6

Ошибка компиляции Microsoft VBScript «800a041f»: неожиданное «следующее»

2 голосов
/ 20 августа 2010

Я пытаюсь запрограммировать многопользовательскую игру в крестики-нолики в VBScript / ASP.

Вот код, на котором возникает вышеуказанная ошибка: 

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

А вотвывод сообщения об ошибке:

/ iTicTic / play.asp, строка 82 

Next
^

Что я здесь не так делаю?

Спасибо!Иван

Редактировать: полный код здесь: http://pastebin.com/BcR4HZ4a

1 Ответ

11 голосов
/ 20 августа 2010

Я полагаю, что это связано с использованием Else If, правильный синтаксис - ElseIf.В основном с Else If это выглядит как новый оператор If, для которого требуется собственный закрывающий оператор End If.

...