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

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--------------^