loop without do????? che strano

[strip]

<%
sql = "select max(id) as maxid from tabella where val >= 1000 and attivo = si"
rs.open sql,cn,3,3
do until rs.eof
randomize timer
idrandom = cint((rnd * maxid) +1)
if idrandom = "1" or "2" or "3" or "4" or "5" or "6" or "7" or "8" or "9" or "10" or "11" or "12" or "13" or "14" or "15" then
rs.movenext
loop
else
sito = rs("sito")
response.write sito
end if
rs.close
%>

mi dice:

Microsoft VBScript compilation error '800a040e'

'loop' without 'do'

line 10

loop
^

[optime]

indenta per bene il codice, cosi' vedi che hai incastrato il ciclo do...loop con la if...else...endif

[strip]

non riesco... seno' non chiedevo aiuto a voi

[optime]

non riesci a fare cosa? a indentare un codice?

[strip]

non so cosa vuol dire indentare :master:

[optime]

Originariamente inviato da strip
non so cosa vuol dire indentare :master:

ah, ecco.... vabbe', stavolta lo faccio io...

<% 
sql = "select max(id) as maxid from tabella where val >= 1000 and attivo = si" 
rs.open sql,cn,3,3 
do until rs.eof 
   randomize timer 
   idrandom = cint((rnd * maxid) +1) 
   if idrandom = "1" or "2" or "3" or "4" or "5" or "6" or "7" or "8" or "9" or "10" or "11" or "12" or "13" or "14" or "15" then 
      rs.movenext 
      loop 
   else 
      sito = rs("sito") 
      response.write sito 
   end if 
rs.close 
%>

vedi niente di strano?

[strip]

si ma è identico al mio cambia solo che l'hai allineato meglio...

[optime]

certo (non e' allineato "meglio", e' allineato). cosi' vedi dov'e' l'errore.

[strip]

<%
sql = "select max(id) as maxid from tabella where val >= 1000 and attivo = si"
rs.open sql,cn,3,3
do until rs.eof
randomize timer
idrandom = cint((rnd * maxid) +1)
if idrandom = "1" or "2" or "3" or "4" or "5" or "6" or "7" or "8" or "9" or "10" or "11" or "12" or "13" or "14" or "15" then
else
sito = rs("sito")
response.write sito
end if
rs.movenext
loop
rs.close
%>

cosi' non da errore ma non funziona il codice...
non mi riporta niente

[optime]

fatti stampare idrandom