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