Jump to content
Fórum Script Brasil
  • 0

Onde Está Errado? (for Etc...)


Paulo de Tarso
 Share

Question

Galera! É o seguinte:

Tenho seguinte código:

Msg = ""
            
FOR x = 1 TO Request.Form("produtos").Count
            
SQL = "SELECT * FROM produtos WHERE codigo IN ("& Request.Form("produtos")(x) &")"
SET RS = Conect.execute(SQL)
                            
IF RS.RecordCount = 0 THEN
    Msg = "Nenhuma opção foi escolhida"
                        
ELSE
    Response.Write    RS("nome_produto") & "<br>"
END IF
NEXT
            
    Response.Write Msg

Vejam só, Primeiro, defino a variável "Msg" como vazia. Depois, faço um Select na tabela e tals. Se a quantidade de dados selecionados for igual a zero (ou seja, nenhum dado foi selecionado), ele define a variável "Msg", que estava vazia, com a frase "Nenhuma opção foi escolhida". Caso contrário, ele imprime na tela o nome do produto dos dados que foram selecionados. E por último, ele imprime o conteúdo da variável "Msg". Se o ELSE for executado, pelo menos au achava que seria assim, a variável "Msg" estaria vazia, já que a primeira condição do IF não foi verdadeira, e, conseqüentemente, não seria impresso na tela nada...

Mas está dando um errinho... Indica que é na linha 65, e é justamente a linha que diz "Response.Write RS("nome_produto") & <BR>"... Olha o erro aqui:

Tipo de erro:

(0x80020009)

Exceção.

(...)preview.asp, line 65

Será que alguém sabe me dizer porque isso? Vlw gente!

Paulo de Tarso

Link to comment
Share on other sites

2 answers to this question

Recommended Posts

  • 0

eu não sei se isso vai arrumar quanto ao erro, porque eu nem sei que erro é esse

mas do jeito que está fazendo, não é o certo pra idéia que você tem, o ideal é:

Msg = ""
            
FOR x = 1 TO Request.Form("produtos").Count
            
SQL = "SELECT * FROM produtos WHERE codigo IN ("& Request.Form("produtos")(x) &")"
SET RS = Conect.execute(SQL)
                            
IF RS.RecordCount = 0 THEN
    Msg = "Nenhuma opção foi escolhida"
                        
ELSE
    Msg = Msg & RS("nome_produto") & "<br>"
END IF
NEXT
            
    Response.Write Msg

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
      151k
    • Total Posts
      649.1k
×
×
  • Create New...