Ir para conteúdo
Fórum Script Brasil
  • 0

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


Paulo de Tarso

Pergunta

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 para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 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 para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...