Variável 'for' de controlo de loop inválida

[razs 0]

Boas, alguem percebe o que esta mal aqui?

vall="noticias, textos"
amae=split(vall, ", ")
    for each item in amae
    
    
            response.write "aaaaaaaaaaaaaaaaaaaaaaaaa"
            
                    x=1
                    do while request.form(item&"_"&x)<>""
            
            response.write "bbbbbbbbbbbbbbbbbbbbbbbbb"    
            
                        set rs = conn_painel.Execute("select * from "&item&" where cliente='"&cliente&"' and url='"&request.form(vall&x)&"'")
                        if rs.eof and instr(request.form(item&x), "'")=0 then
                            response.write "insert into "&item&" "&request.form(item&x)&"<br>"
                        else
                            erro = "Não são permitidos os seguintes caracteres (, ').<br>Por favor corrija os dados introduzidos. <br>Obrigado<br>"
                        end if    
                    x=x+1    
                    loop
            
            response.write "ccccccccccccccccccccccc"
            
                a=split(request.form(item&"_extra"), " ")
linha 551--->   for each item in a
                    
                    response.write "ddddddddddddddddddddddddddddddddddddddd"    
                    
                        set rs = conn_painel.Execute("select * from "&item&" where cliente='"&cliente&"' and url='"&replace(item, "," ,"")&"'")
                        if rs.eof then
                            response.write "insert into noticias "&replace(item, "," ,"")&"<br>"
                        else
                            erro = "Não são permitidos os seguintes caracteres (, ').<br>Por favor corrija os dados introduzidos. <br>Obrigado<br>"    
                        end if    
                    next
    
    next

Estou a receber o seguinte erro:

Erro de compilação do Microsoft VBScript erro '800a0410'

Variável 'for' de controlo de loop inválida

/back/addpainel.asp, linha 551

for each item in a--------------^

[razs 0]

é suposto o rs.eof devolver verdadeiro em vez de true or false?

[xanburzum 169]

dÊ um response.write em a para ver o que está sendo passado

 

a=split(request.form(item&"_extra"), " ")

response.write(a)
response.end()

 

e no request.form(item&"_extra") o delimitador é " " mesmo ?

[Smilex26 0]

Acho que a palavra "item" é uma palavra reservada no ASP Classico.

tente Redefinir o nome da sua variável.