Выбор

[VINNY-PYX]

Люди, возможно, после 2 месяцев застоя я чтото делаю не так . Помогите мне создать цикл, который будет отбрасывать повторяющиеся номера. Т.е при запуске страницы появилось число 5 из БД. В следующий раз должно появиться другое (взятое оттуда же). Все повторяющиеся числа записываюся так: 1;4;7;
Я пробовал так: (но возникает ошибка)

Код: Выделить всё

<%
dim arra()
arra=split(Str,";")
go=0
do until go=1
id=objrec.fields("number")
for i = 0 to ubound(arra)
if arra(i)=id then
next i
else
go=1
end if
objrec.movenext
loop
response.write id
%>


И еще: как пользоваться GOTO? я пробовал, как в ВБ:

Код: Выделить всё

<%
goto nex
killkillkill
nex:
livelivelive
%>


[corgi]

1. интересный у тебя код:

Код: Выделить всё

for i = 0 to ubound(arra)
  if arra(i)=id then
    next i
  else
    go=1
  end if

выходит что при некоторых событиях у тебя исчезает next в for'e
2. насколько помню все должно работать, напиши подробней как юзал...

[VINNY-PYX]

1. Что мне сделать? как перестроить, чтобы все работало?
2. Вот так и юзал. У меня пишется: Необходимо наличие инструкции!

[corgi]

1. убрать next из if'a
2. на какой строчке пишет?

[VINNY-PYX]

1. Я сам додумался - убрать из Next i символ i!!!

[Cyrax]

Код: Выделить всё

<%
dim arra()

arra=split(Str,";")
go=0

do until go=1
  id=objrec.fields("number")

  for i = 0 to ubound(arra)
    if arra(i)=id then
      exit for
    else
      go=1
    end if
  next

  objrec.movenext
loop

response.write id
%>

вот как-то так должно быть... наверное
особое внимание прошу уделить этому куску

Код: Выделить всё

for i = 0 to ubound(arra)
  if arra(i)=id then
    exit for
  else
    go=1
  end if
next

да и еще одно... в VBScript оператор GoTo не поддерживается