Erro de tempo de execução do Microsoft VBScript (0x800A000D)

[natalia 0]

Oi pessoal,Eu preciso gravar vários registros em uma tabela, mas estou com dificuldades. Alguém poderia corrigir o meu código?Pois ele dá este erro:Erro de tempo de execução do Microsoft VBScript (0x800A000D)Tipos incompatíveisA variável "varCat" contém nomes de profissões.Ex: varCat = Vendedor, Administrador, Dentista, etc...<% varCat = Request("categorias") varCat2 = split(varCat,",") For x = lbound(varCat2) To UBound(varCat2) sqlIns = " INSERT INTO Rec_"&tabela&" (Cli_Id, "& campo &") VALUES ("& Session("CLI_Id") &", '" & varCat2 & "') " Conexao.Execute(sqlIns) Set rsIns = Nothing Next %>

[Salgado 4]

Troque:

sqlIns = " INSERT INTO Rec_"&tabela&" (Cli_Id, "& campo &") VALUES ("& Session("CLI_Id") &", '" & varCat2 & "') "

Por:

sqlIns = " INSERT INTO Rec_"& tabela &" (Cli_Id, "& campo &") VALUES ("& Session("CLI_Id") &", '" & varCat2(x) & "') "

[natalia 0]

Funcionou!!!!!

 

Brigadão http://forum.imasters.com.br/public/style_emoticons/default/clap.gif