Por Favor Me Ajudem!

[--Ludson--]

To com um problemão, já tentei com 3 códigos diferentes, criar um sistema para adicionar dados em um Bd através de formulário.

Mas toda vez que tento enviar o formulário para: cadastra.asp, onde está o código para inserir, aparece o seguinte erro:

Microsoft OLE DB Provider for ODBC Drivers error '80040e07' 

[Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério. 

/calendario/cadastra.asp, line 44 

o código fonte da pagina: cadastra.asp é o seguinte:

1-  <%
2-  Set conn = Server.CreateObject("ADODB.Connection")
3-  cnpath="DBQ=" & server.mappath("db/calendar.mdb")
4-  conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
5- 
6-  set rs = Server.CreateObject("ADODB.Recordset")
7-  titulo = replace(request.form("tTitulo"), "'", "''")
8-  tema = replace(request.form("tTema"), "'", "''")
9-  preletores = replace(request.form("tPreletores"), "'", "''")
10- data = replace(request.form("tData"), "'", "''")
11- local = replace(request.form("tLocal"), "'", "''")
12- endereco = replace(request.form("tEndereco"), "'", "''")
13- cidade = replace(request.form("tCidade"), "'", "''")
14- estado = replace(request.form("tEstado"), "'", "''")
15- telefone = replace(request.form("tTelefone"), "'", "''")
16- email = replace(request.form("tEmail"), "'", "''")
17- site = replace(request.form("tSite"), "'", "''")
18- promotor = replace(request.form("tPromotor"), "'", "''")
19- descricao = replace(request.form("tDescricao"), "'", "''")
20- informacoes = replace(request.form("tInformacoes"), "'", "''")
21- nome = replace(request.form("tNome"), "'", "''")
22- email2 = replace(request.form("tEmail2"), "'", "''")
23- 
24- SQL =       "INSERT INTO eventos "
25- SQL = SQL & " (titulo,tema,preletores,data,local,endereco,cidade,estado,telefone,email,site,promotor,descricao,informacoes,nome,email2)"
26- SQL = SQL & "VALUES "
27- SQL = SQL & " ('" & titulo & "', "
28- SQL = SQL & "  '" & tema & "', "
29- SQL = SQL & "  '" & preletores & "', "
30- SQL = SQL & "  '" & data & "', "
31- SQL = SQL & "  '" & local & "', "
32- SQL = SQL & "  '" & endereco & "', "
33- SQL = SQL & "  '" & cidade & "', "
34- SQL = SQL & "  '" & estado & "', "
35- SQL = SQL & "  '" & telefone & "', "
36- SQL = SQL & "  '" & email & "', "
37- SQL = SQL & "  '" & site & "', "
38- SQL = SQL & "  '" & promotor & "', "
39- SQL = SQL & "  '" & descricao & "', "
40- SQL = SQL & "  '" & informacoes & "', "
41- SQL = SQL & "  '" & nome & "', "
42- SQL = SQL & "  '" & email2 & "')"
43- 
44- rs.open SQL, conn
45- Response.Redirect"adicionar_evento.asp"
46- %>

ME AJUDEM!!!!!!!!

[Reginaldo ASP]

As váriaveis numéricas que você tiver, você não usa aspas simples:

'" & titulo & "' - Errado para numérico

" & titulo & " - Correto para numérico

[--Ludson--]

As váriaveis numéricas que você tiver, você não usa aspas simples:

'" & titulo & "' - Errado para numérico

" & titulo & " - Correto para numérico

não entendi

[slipknot]

tenta ver essa função que fiz c te aqjuda ai...

http://scriptbrasil.com.br/forum/index.php?showtopic=7595&hl=fun%E7%E3o