eof não esta a funcionar

[razstec]

Boas pessoal,

Tenho aqui este script mas ele não esta a escrever quando deve, alguém percebe porque e que o eof não esta a funcionar?

 

x=1
do while request.form("fnoticias_"&x)<>""
set rs = conn_painel.Execute("select * from noticias where cliente='"&cliente&"' and url='"&request.form("fnoticias_"&x)&"'")

if rs.eof then
response.write "insert into noticias "&request.form("fnoticias_"&x)&"<br>"
end if	
x=x+1	
loop
rs.close

Eu quero que caso não exista ecreve, noutro caso passa a frente

Editado Fevereiro 17, 2016 por razstec

[marsites]

Dim x : x=1
Dim cliente : cliente = Replace(Trim(Request("cli")))
Dim sql,new
' você precisa passar a quantidade certa para que não utilize
' recurso desnecessário de mémória
Dim quantidade : quantidade = Replace(Trim(Request("qtd")))

'@@@@@@@@ SEM QUEBRAR A CABEÇA beleza

For i=0 to quantidade
    
    new = request("fnoticias_"&quantidade)
    
    if new <> "" then
    
        sql = "select * from noticias where cliente='"& cliente &"' and url='"& new &"'"
        set rs = conn_painel.Execute(sql)
        if not rs.eof then
            ' cole aque o código para update ou passe a frente
        else
            ' não encontrando faz insert
            response.write "insert into noticias "& new
        end if    
        
    end if
next