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

[Paulo de Tarso]

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

[Henderson]

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

[Paulo de Tarso]

Hey Henderson, vlw pela dica, mas o erro de exceção continua... Bom, vou tentar ver o que posso fazer... Vlw!