Erro no Insert

[AlexCT 0]

Tipo de erro:

Microsoft JET Database Engine (0x80040E07)

Tipo de dados imcompatível na expressão de critério.

/jogos/inclui_jogo2.asp, line 114

 

 

Set Conn= server.createobject("adodb.connection")DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("database/db_jogo.mdb")Conn.Open DSNtestSQLinserir = "INSERT INTO jogos (nomeativ,tipo1,tipo2,estilo1,estilo2,estilo3,duracao,ramo,objetivo,material,descricao,permissao) VALUES ('"&nomeativ&"','"&tipo1&"','"&tipo2&"','"&estilo1&"','"&estilo2&"','"&estilo3&"','"&duracao&"','"&ramo&"','"&objetivo&"','"&material&"','"&descricao&"', 0)"Set RS = Conn.Execute(SQLinserir)                             'linha 114

[ferraz 0]

Tente isto:SQLinserir = "INSERT INTO jogos " _& "(nomeativ,tipo1,tipo2,estilo1,estilo2,estilo3,duracao,ramo,objetivo,material,descricao,permissao) VALUES "_& "('" & nomeativ & "','" & tipo1 & "','" & tipo2 & "','" & estilo1 & "','" & estilo2 & "','" & estilo3 & "','" & duracao & _& "','" & ramo & "','" & objetivo & "','" & material & "','" & descricao & "','0')"Falou...

[AlexCT 0]

Estou com mais estes erros:

 

 

 

 

Quando eu tiro este codigo a página funciona perfeitamente, é uma pagina para exibir uma tabela.

 

 

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0400)

Instrução esperada

/jogos/procura_busca.asp, line 134

End if

 

 

<%DO WHILE NOT RS.EOF And Count < RS.PageSize 'paginacao And Count < RS.PageSize %>

 

. . .

 

<%Dim checkcriacao = RS("criacao")IF criacao = chr(42) Then check= "checked"End if%> <input type="radio" name="radio_<%=RS("id")%>" value=""  <%=check%>>

. . .

 

<%

Count = Count + 1 'paginacao

RS.MoveNext

LOOP 'tb paginacao

End if

%>

 

 

 

 

-----------------outro-------------------

 

 

 

Tipo de erro:Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)[Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério./asp/enquete e votação/chacalenquete1voto/admin.asp, line 60

Sql = "INSERT INTO perguntas (pergunta,data) "

Sql = Sql & "VALUES('"&Request.Form("nome")&"','"&now()&"')"

Conexao.Execute(Sql)