Jump to content
Fórum Script Brasil
  • 0

eof não esta a funcionar


razstec
 Share

Question

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

Edited by razstec
Link to comment
Share on other sites

1 answer to this question

Recommended Posts

  • 0

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

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Forum Statistics

    • Total Topics
      149.6k
    • Total Posts
      646.2k
×
×
  • Create New...