Erro de conexão com o Banco de Dados

[Dani Machado 0]

Olá pessoal, é a primeira vez que participo de um fórum. Portanto sejam bonzinhos comigo! Bom, estou com um problema no meu form. Vou colocar o código aqui.<!--#include file="con_palestra.asp" --><%myAcao = Request("Acao")If myAcao = "Confirmar" ThenstrP1 = Replace(Request("p1"),"'","''")strP2 = Replace(Request("p2"),"'","''")strP3 = Replace(Request("p3"),"'","''")strP4 = Replace(Request("p4"),"'","''")strP5 = Replace(Request("p5"),"'","''")strNome = Replace(Request("nome"),"'","''")strEmail = Replace(Request("email"),"'", "''")strDDDtel = Replace(Request("dddtel"),"'", "''")strNumtel = Replace(Request("numtel"),"'", "''")strDDDcel = Replace(Request("dddcel"),"'", "''")strNumcel = Replace(Request("numcel"),"'", "''")strDDDtelcom = Replace(Request("dddtelcom"),"'", "''")strNumtelcom = Replace(Request("numtelcom"),"'", "''")strMhorario = Replace(Request("mhorario"),"'", "''")strEndereco = Replace(Request("endereco"),"'", "''")strNumero = Replace(Request("numero"),"'", "''")strCompl = Replace(Request("compl"),"'", "''")strBairro = Replace(Request("bairro"),"'", "''")strCidade = Replace(Request("cidade"),"'", "''")strUf = Replace(Request("uf"),"'", "''")strCep = Replace(Request("cep"),"'", "''")strEmpresa = Replace(Request("empresa"),"'", "''")strProfissao = Replace(Request("profissao"),"'", "''")strNecessidades = Replace(Request("necessidades"),"'", "''")strIndicou = Replace(Request("indicou"),"'", "''")strIndicouesp = Replace(Request("indicouesp"),"'", "''")strNewsletter = Replace(Request("newsletter"),"'", "''")strSql = "INSERT INTO PALESTRAS (p1, p2, p3, p4, p5, nome, email, dddtel, numtel, dddcel, numcel, dddtelcom, numtelcom, mhorario, endereco, numero, compl, bairro, cidade, uf, cep, empresa, profissao, necessidades, indicou, indicouesp, newsletter) VALUES ('" & strP1 & "','" & strP2 & "','" & strP3 & "','" & strP4 & "','" & strP5 & "','" & strNome & "','" &strEmail & "','" & strDDDtel & "','" & strNumtel & "','" & strDDDcel & "','" & strNumcel & "','" & strDDDtelcom & "','" &strNumtelcom & "','" & strMhorario & "','" & strEndereco & "','" & strNumero & "','" & strCompl& "','" & strBairro & "','"& strCidade & "','" & strUf & "','" & strCep & "','" & strEmpresa & "','" & strProfissao & "','" & strNecessidades & "','"& strIndicou & "','" & strIndicouesp & "','" & strNewsletter & "')"Set rs = Dados.Execute(strSql) (esta é a linha que está dando erro)Dados.CloseResponse.Redirect "obrigado.asp?Nome=" & strNomeEnd If%>---------------------A conexao com o bd é esta:<%Set Dados = Server.CreateObject("AdoDb.Connection")Dados.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=e:\home\cidadedocerebro\dados\gilberto.mdb"%>O erro é esse:Microsoft JET Database Engine error '80040e07' Data type mismatch in criteria expression. /gilbertodesouza_palestras_confirmacao.asp, line 36 ------------------------------------Set rs = Dados.Execute(strSql) (esta é a linha 36 que está dando erro)

[Mário Monteiro 179]

tem algum campo sendo tratado com o tipo de dados erradopara todo campo em seu db que seja do tipo numerico o valor deve estar sem aspas simplese para todo campo em seu db que seja do tipo numerico o valor deve estar com aspas simplesse depois que voce mudar isso ainda tiver erro poste aqui sua SQL

[Salgado 4]

tem algum campo sendo tratado com o tipo de dados errado

 

para todo campo em seu db que seja do tipo numerico o valor deve estar sem aspas simples

 

e para todo campo em seu db que seja do tipo numerico o valor deve estar com aspas simples

 

se depois que voce mudar isso ainda tiver erro poste aqui sua SQL

Corrigindo o TIUZINHO:

e para todo campo em seu db que seja do tipo texto o valor deve estar com aspas simples

[Dani Machado 0]

tem algum campo sendo tratado com o tipo de dados erradopara todo campo em seu db que seja do tipo numerico o valor deve estar sem aspas simplese para todo campo em seu db que seja do tipo numerico o valor deve estar com aspas simplesse depois que voce mudar isso ainda tiver erro poste aqui sua SQL

Obrigado pela sua dica, mas eu realmente estou perdida, sem querer abusar, você poderia me mostrar um exemplo disso? Porque tenho aspas simples na declaração e no Insert.Obrigada

[Mário Monteiro 179]

posta sua sql aquie indica o tipo de dados de cada campo-------------------------------------------e valew salgado, é que copiei o que taa em cima e esqueci de mudar... olha a preguiça de digitar, ehehehe

[Dani Machado 0]

posta sua sql aquie indica o tipo de dados de cada campo-------------------------------------------e valew salgado, é que copiei o que taa em cima e esqueci de mudar... olha a preguiça de digitar, ehehehe

-----------------------------Olha o bd é em access. Daí abri em modo sql dele e está só SELECT;

[Mário Monteiro 179]

Olha o bd é em access. Daí abri em modo sql dele e está só SELECT;

não foi exatamente o que perguntei não...-----------------------------------------------------------nesta partestrSql = "INSERT INTO PALESTRAS (p1, p2, p3, p4, p5, nome, email, dddtel, numtel, dddcel, numcel, dddtelcom, numtelcom, mhorario, endereco, numero, compl, bairro, cidade, uf, cep, empresa, profissao, necessidades, indicou, indicouesp, newsletter) VALUES ('" & strP1 & "','" & strP2 & "','" & strP3 & "','" & strP4 & "','" & strP5 & "','" & strNome & "','" &strEmail & "','" & strDDDtel & "','" & strNumtel & "','" & strDDDcel & "','" & strNumcel & "','" & strDDDtelcom & "','" &strNumtelcom & "','" & strMhorario & "','" & strEndereco & "','" & strNumero & "','" & strCompl& "','" & strBairro & "','"& strCidade & "','" & strUf & "','" & strCep & "','" & strEmpresa & "','" & strProfissao & "','" & strNecessidades & "','"& strIndicou & "','" & strIndicouesp & "','" & strNewsletter & "')"response.write(strSql)response.endSet rs = Dados.Execute(strSql) (esta é a linha que está dando erro)o que aparecer escrito na tela voce poe aqui

[Dani Machado 0]

Olha o bd é em access. Daí abri em modo sql dele e está só SELECT;

não foi exatamente o que perguntei não...-----------------------------------------------------------nesta partestrSql = "INSERT INTO PALESTRAS (p1, p2, p3, p4, p5, nome, email, dddtel, numtel, dddcel, numcel, dddtelcom, numtelcom, mhorario, endereco, numero, compl, bairro, cidade, uf, cep, empresa, profissao, necessidades, indicou, indicouesp, newsletter) VALUES ('" & strP1 & "','" & strP2 & "','" & strP3 & "','" & strP4 & "','" & strP5 & "','" & strNome & "','" &strEmail & "','" & strDDDtel & "','" & strNumtel & "','" & strDDDcel & "','" & strNumcel & "','" & strDDDtelcom & "','" &strNumtelcom & "','" & strMhorario & "','" & strEndereco & "','" & strNumero & "','" & strCompl& "','" & strBairro & "','"& strCidade & "','" & strUf & "','" & strCep & "','" & strEmpresa & "','" & strProfissao & "','" & strNecessidades & "','"& strIndicou & "','" & strIndicouesp & "','" & strNewsletter & "')"response.write(strSql)response.endSet rs = Dados.Execute(strSql) (esta é a linha que está dando erro)o que aparecer escrito na tela voce poe aqui

----------------------LÁ VAI O LIVRO - A PÁGINA INTEIRA ESTÁ ASSIM :-------------------<!--#include file="con_palestra.asp" --><%myAcao = Request("Acao")If myAcao = "Confirmar" ThenstrP1 = Replace(Request("p1"),"'","''")strP2 = Replace(Request("p2"),"'","''")strP3 = Replace(Request("p3"),"'","''")strP4 = Replace(Request("p4"),"'","''")strP5 = Replace(Request("p5"),"'","''")strNome = Replace(Request("nome"),"'","''")strEmail = Replace(Request("email"),"'", "''")strDDDtel = Replace(Request("dddtel"),"'", "''")strNumtel = Replace(Request("numtel"),"'", "''")strDDDcel = Replace(Request("dddcel"),"'", "''")strNumcel = Replace(Request("numcel"),"'", "''")strDDDtelcom = Replace(Request("dddtelcom"),"'", "''")strNumtelcom = Replace(Request("numtelcom"),"'", "''")strMhorario = Replace(Request("mhorario"),"'", "''")strEndereco = Replace(Request("endereco"),"'", "''")strNumero = Replace(Request("numero"),"'", "''")strCompl = Replace(Request("compl"),"'", "''")strBairro = Replace(Request("bairro"),"'", "''")strCidade = Replace(Request("cidade"),"'", "''")strUf = Replace(Request("uf"),"'", "''")strCep = Replace(Request("cep"),"'", "''")strEmpresa = Replace(Request("empresa"),"'", "''")strProfissao = Replace(Request("profissao"),"'", "''")strNecessidades = Replace(Request("necessidades"),"'", "''")strIndicou = Replace(Request("indicou"),"'", "''")strIndicouesp = Replace(Request("indicouesp"),"'", "''")strNewsletter = Replace(Request("newsletter"),"'", "''")strSql = "INSERT INTO palestras (p1, p2, p3, p4, p5, nome, email, dddtel, numtel, dddcel, numcel, dddtelcom, numtelcom, mhorario, endereco, numero, compl, bairro, cidade, uf, cep, empresa, profissao, necessidades, indicou, indicouesp, newsletter) VALUES ('" & strP1 & "','" & strP2 & "','" & strP3 & "','" & strP4 & "','" & strP5 & "','" & strNome & "','" &strEmail & "','" & strDDDtel & "','" & strNumtel & "','" & strDDDcel & "','" & strNumcel & "','" & strDDDtelcom & "','" &strNumtelcom & "','" & strMhorario & "','" & strEndereco & "','" & strNumero & "','" & strCompl& "','" & strBairro & "','"& strCidade & "','" & strUf & "','" & strCep & "','" & strEmpresa & "','" & strProfissao & "','" & strNecessidades & "','"& strIndicou & "','" & strIndicouesp & "','" & strNewsletter & "')"Set rs = Dados.Execute(strSql)Dados.CloseResponse.Redirect "obrigado.asp?Nome=" & strNomeEnd If%><html><head><title>Cidade do Cérebro :: Confirmação de Cadastro</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><script language="JavaScript" type="text/JavaScript"><!--function MM_openBrWindow(theURL,winName,features) { //v2.0 window.open(theURL,winName,features);}//--></script><script language="JavaScript" type="text/JavaScript"><!--function MM_reloadPage(init) { //reloads the window if Nav4 resized if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) { document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }} else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();}MM_reloadPage(true);//--></script><style type="text/css"><!--.subtitle { font-family: Arial, Helvetica, sans-serif; font-size: 20px; color: #663399;}--></style></head><body><table width="750" border="0" align="left" cellpadding="15" cellspacing="0" bgcolor="E0E0E0"> <tr> <td><table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td bgcolor="#FFFFFF"><div align="center"><a href="index.asp"><img src="links/topo17.jpg" width="725" height="86" vspace="3" border="0"></a></div></td> </tr> <tr> <td><img src="links/spacer.gif" width="20" height="15"></td> </tr> <tr> <td><table width="100%" cellpadding="0" cellspacing="0"> <tr> <td width="145" valign="top"><table width="145" border="0" cellpadding="0" cellspacing="0" bgcolor="e0e0e0"> <tr> <td><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><img src="links/util_bar.gif" width="93" height="92"></td> </tr> <tr> <td height="25"> </td> </tr> <tr> <td><img src="links/rel_news.gif" width="145" height="20"></td> </tr> <tr> <td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="5" cellpadding="0"> <tr> <td><div align="center"><font size="2" face="Arial, Helvetica, sans-serif">Quer receber nossa newsletter e ainda ganhar um e-book do Prof. Luiz Machado?<br> <img src="links/capa_ebook.jpg" width="95" height="77" vspace="4"><br> <font color="#0000FF"><strong><a href="newsletter.asp#form">Cadastre-se!</a></strong></font></font></div></td> </tr> </table></td> </tr> </table></td> </tr> <tr> <td><img src="links/spacer.gif" width="20" height="25"></td> </tr> <tr> <td><img src="links/tab_lanca.gif" width="145" height="20"></td> </tr> <tr> <td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="5" cellpadding="0"> <tr> <td><div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><strong><font size="3" face="Arial, Helvetica, sans-serif"><strong><font color="#663399">Superinteligência<br> </font></strong></font></strong><font size="3" face="Arial, Helvetica, sans-serif"><font color="#663399"><font size="2">O novo livro do<br> Prof. Luiz Machado</font></font></font><br> <a href="livros.asp"><img src="links/superinteligencia-p3.jpg" alt="Superinteligência" width="110" height="148" vspace="4" border="0"></a><br> <font color="#0000FF"><strong><a href="livros.asp">Adquira!</a></strong></font></font></div></td> </tr> </table></td> </tr> </table></td> </tr> <tr> <td><img src="links/spacer.gif" width="20" height="25"></td> </tr> <tr> <td><a href="java script:window.external.AddFavorite('http://www.cidadedocerebro.com.br','Cidade do Cérebro: A Escola da Superinteligência')"><img src="links/tab_fav.gif" width="145" height="20" border="0"></a></td> </tr> <tr> <td><img src="links/spacer.gif" width="20" height="15"></td> </tr> <tr> <td><A href="#" onClick="this.style.behavior='url(#default#homepage)'; this.setHomePage('http://www.cidadedocerebro.com.br');"><img src="links/tab_princ.gif" width="145" height="20" border="0"></a></td> </tr> <tr> <td><img src="links/spacer.gif" width="20" height="30"></td> </tr> <tr> <td bgcolor="#FFFFFF"><img src="links/tab_indiq.gif" width="145" height="20"></td> </tr> <tr> <td bgcolor="#FFFFFF"><FORM name=cadastro onSubmit="return valida_indicacao()" action=indicado_valida.asp > <TABLE cellSpacing=0 cellPadding=0 width="90%" align=center border=0> <TBODY> <TR> <TD height="21" class=texto> <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Seu Nome: <strong> </strong></strong></font></div></TD> </TR> <TR> <TD height="20" class=texto> <div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong> <input name="nome" type="text" id="nome3" size=18> </strong></font></div></TD> </TR> <TR> <TD class=texto><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Seu E-mail: </strong></font></div></TD> </TR> <TR> <TD><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong> <input name="email" type="text" id="email3" size=18> </strong></font></div></TD> </TR> <TR> <TD class="texto"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>Nome do amigo(a): </strong></font></div></TD> </TR> <TR> <TD><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong> <input name="nome2" type="text" id="nome22" size=18> </strong></font></div></TD> </TR> <TR> <TD class="texto"><div align="center"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>E-mail do amigo(a): </strong></font></div></TD> </TR> <TR> <TD><div align="center"> <input name="email2"type="text" id="email22" size=18> </div></TD> </TR> <TR> <TD height="35"> <div align="center"> <input type="submit" name="Submit" value="Indicar"> </div></TD> </TR> </TABLE> </form></td> </tr> <tr> <td><img src="links/spacer.gif" width="20" height="30"></td> </tr> <tr> <td><img src="links/rel_dep.gif" width="145" height="20"></td> </tr> <tr> <td bgcolor="#FFFFFF"><table width="90%" border="0" align="center" cellpadding="0" cellspacing="5"> <tr> <td><div align="center"> <p><img src="links/deps/dep_denise.jpg" alt="Denise Alcântara Pellizzon" width="69" height="84" vspace="5"> <font size="2" face="Arial, Helvetica, sans-serif"><br> Consegui a ligação científica que procurava; um mundo novo se descortinou à minha frente, onde não há limites para ser.<br> <br> <strong>Denise Alcântara Pellizzon<br> Engenheira Civil</strong></font></p> </div></td> </tr> <tr> <td> <div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><a href="depoimentos.asp">Leia este e outros depoimentos<br> na íntegra>></a></font></div></td> </tr> </table></td> </tr> <tr> <td><img src="links/spacer.gif" width="20" height="30"></td> </tr> <tr> <td><div align="center"><font color="#000099" size="2" face="Arial, Helvetica, sans-serif">Cidade do Cérebro, Emotologia, Emotopedia, SAPE <br> e CLC Idiomas são marcas registradas da Cidade do Cérebro®.</font></div></td> </tr> <tr> <td><img src="links/spacer.gif" width="20" height="25"></td> </tr> <tr> <td height="40"><div align="center"><font size="1" face="Arial, Helvetica, sans-serif">Desenvolvido por<br> <a href="http://www.negocios-de-valor.com" target="_blank">Negócios de Valor © 2005</a></font></div></td> </tr> </table>  </td> <td width="15" valign="top" background="links/shadow_bkg_r2_c2.gif"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="e0e0e0"> <tr> <td><img src="links/spacer.gif" width="15" height="52"></td> </tr> <tr> <td><img src="links/shadow_bkg_r5_c4.gif" width="15" height="18"></td> </tr> </table></td> <td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td bgcolor="#FFFFFF"><table width="570" border="0" cellpadding="0" cellspacing="0" bgcolor="#e0e0e0"> <tr> <td><img src="links/nav_bar_new.gif" width="570" height="52"></td> </tr> <tr> <tr> <td background="links/shadow_bkg_r1_c4.gif" bgcolor="e0e0e0"><img src="links/spacer.gif" width="20" height="15"></td> </tr> <tr> <td height="30" bgcolor="#FFFFFF"><iframe width="100%" height="15" src="saudacao.asp" scrolling="no" frameborder="0"></iframe></td> </tr> </table></td> </tr> <tr> <td bgcolor="#FFFFFF"><table width="97%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF"> <tr> <td><img src="links/gil_nav.gif" width="249" height="16" vspace="10" border="0" usemap="#MapMapMap"> <map name="MapMapMap"> <area shape="rect" coords="170,2,246,15" href="gilbertodesouza_seminarios.asp"> <area shape="rect" coords="86,2,159,15" href="gilbertodesouza_palestras.asp"> <area shape="rect" coords="2,2,77,15" href="gilberto_de_souza.asp"> </map> <map name="MapMap"> <area shape="rect" coords="3,1,76,15" href="gilberto_de_souza.asp"> <area shape="rect" coords="84,1,159,15" href="gilbertodesouza_palestras.asp"> <area shape="rect" coords="167,2,244,15" href="gilbertodesouza_seminarios.asp"> <area shape="rect" coords="249,2,313,15" href="gilbertodesouza_cases.asp"> </map></td> </tr> <tr> <td height="20"> </td> </tr> <tr> <td height="20"><img src="links/gilberto_palestras.gif" width="450" height="40"></td> </tr> <tr> <td><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="110" valign="top"> </td> <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="20"> </td> </tr> <tr> <td><font color="#CC9933" size="5" face="Arial, Helvetica, sans-serif"><font color="#663399" size="5"><font color="#CC9933" size="5" face="Arial, Helvetica, sans-serif"><font color="#663399" size="5"><font size="4"><strong>Confirmação de Cadastro </strong></font></font></font></font></font></td> </tr> <tr> <td> </td> </tr> <tr> <td> </td> </tr> <tr> <td><form action="<%=MM_editAction%>" method="POST" name="form1" target="_parent" id="form1"> <p><strong><font face="Arial, Helvetica, sans-serif">Palestras de meu Interesse: <br> <br> </font></strong><%= Request.Form("p1") %><span class="txtresposta"> <input name="p1" type="hidden" id="p1" value=" <% = Request.Form("p1") %>"> </span><br> <%= Request.Form("p2") %> <input name="p2" type="hidden" id="p2" value=" <% = Request.Form("p2") %>"><br> <%= Request.Form("p3") %> <input name="p3" type="hidden" id="p3" value=" <% = Request.Form("p3") %>"> <br> <%= Request.Form("p4") %> <input name="p4" type="hidden" id="p4" value=" <% = Request.Form("p4") %>"> <br> <%= Request.Form("p5") %> <input name="p5" type="hidden" id="p5" value=" <% = Request.Form("p5") %>"> <br> <br> <strong><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Nome:</font></strong> <%= Request.Form("nome") %><span class="txtresposta"> <input name="nome" type="hidden" id="nome" value=" <% = Request.Form("nome") %>"> </span><br> <br> <strong><font face="Verdana, Arial, Helvetica, sans-serif" size="2">E-mail: </font></strong><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%= Request.Form("email") %><strong><span class="txtresposta"> <input name="email" type="hidden" id="email" value=" <% = Request.Form("email") %>"> </span><br> <br> Telefone: </strong>(<%= Request.Form("dddtel") %> ) <%= Request.Form("numtel") %><strong><span class="txtresposta"> <input name="dddtel" type="hidden" id="dddtel" value=" <% = Request.Form("dddtel") %>"> </span><span class="txtresposta"> <input name="numtel" type="hidden" id="numtel" value=" <% = Request.Form("numtel") %>"> </span><br> <br> Celular: </strong> ( <%= Request.Form("dddcel") %>) <%= Request.Form("numcel") %><strong><span class="txtresposta"> <input name="dddcel" type="hidden" id="dddcel" value=" <% = Request.Form("dddcel") %>"> </span><span class="txtresposta"> <input name="numcel" type="hidden" id="numcel" value=" <% = Request.Form("numcel") %>"> </span><br> <br> Telefone comercial: </strong> ( <%= Request.Form("dddtelcom") %>)  <%= Request.Form("numtelcom") %><strong><span class="txtresposta"> <input name="dddtelcom" type="hidden" id="dddtelcom" value=" <% = Request.Form("dddtelcom") %>"> </span><span class="txtresposta"> <input name="numtelcom" type="hidden" id="numtelcom" value=" <% = Request.Form("numtelcom") %>"> </span><br> <br> Melhor horário p/ contato: </strong><%= Request.Form("mhorario") %><strong><span class="txtresposta"><input name="mhorario" type="hidden" id="mhorario" value=" <% = Request.Form("mhorario") %>"></span><br><br>Endereço:</strong></font> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%= Request.Form("endereco") %></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><strong><span class="txtresposta"><input name="endereco" type="hidden" id="endereco" value=" <% = Request.Form("endereco") %>"></span></strong></font><br> <br> <strong><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Número:</font></strong> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%= Request.Form("numero") %></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><strong><span class="txtresposta"> <input name="numero" type="hidden" id="numero" value=" <% = Request.Form("numero") %>"> </span></strong></font>       <strong><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Complemento: </font></strong> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%= Request.Form("compl") %><strong><span class="txtresposta"> <input name="compl" type="hidden" id="compl" value=" <% = Request.Form("compl") %>"> </span></strong></font>                            <strong><font face="Verdana, Arial, Helvetica, sans-serif" size="2">    <br> <br> Bairro:</font></strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <%= Request.Form("bairro") %></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><strong><span class="txtresposta"> <input name="bairro" type="hidden" id="bairro" value=" <% = Request.Form("bairro") %>"> </span></strong></font><br> <br> <strong><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Cidade:</font></strong> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%= Request.Form("cidade") %></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><strong><span class="txtresposta"> <input name="cidade" type="hidden" id="cidade" value=" <% = Request.Form("cidade") %>"> </span></strong></font><br> <br> <strong><font face="Verdana, Arial, Helvetica, sans-serif" size="2">UF:</font></strong> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%= Request.Form("uf") %></font>  <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><strong><span class="txtresposta"> <input name="uf" type="hidden" id="uf" value=" <% = Request.Form("uf") %>"> </span></strong></font>            <strong><font face="Verdana, Arial, Helvetica, sans-serif" size="2">CEP:</font></strong> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%= Request.Form("cep") %></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><strong><span class="txtresposta"> <input name="cep" type="hidden" id="cep" value=" <% = Request.Form("cep") %>"> </span></strong></font><br> <br> <strong><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Empresa:</font></strong> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%= Request.Form("empresa") %></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><strong><span class="txtresposta"> <input name="empresa" type="hidden" id="empresa" value=" <% = Request.Form("empresa") %>"> </span></strong></font><br> <br> <strong><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Profissão/Cargo:</font></strong> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%= Request.Form("profissao") %></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><strong><span class="txtresposta"> <input name="profissao" type="hidden" id="profissao" value=" <% = Request.Form("profissao") %>"> </span></strong></font><br> <br> <strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Descreva suas necessidades:</font></strong> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%= Request.Form("necessidades") %></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><strong><span class="txtresposta"> <input name="necessidades" type="hidden" id="necessidades" value=" <% = Request.Form("necessidades") %>"> </span></strong></font><br> <br> <strong><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Como nos conheceu:</font></strong> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%= Request.Form("indicou") %></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><strong><span class="txtresposta"> <input name="indicou" type="hidden" id="indicou" value=" <% = Request.Form("indicou") %>"> </span></strong></font><br> <br> <strong><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Especifique:</font></strong> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%= Request.Form("indicouesp") %></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><strong><span class="txtresposta"> <input name="indicouesp" type="hidden" id="indicouesp" value=" <% = Request.Form("indicouesp") %>"> </span></strong></font><br> <br> <font face="Arial" size="2"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><strong>Desejo receber por email os informativos periódicos: </strong></font></font> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%= Request.Form("newsletter") %></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><strong><span class="txtresposta"> <input name="newsletter" type="hidden" id="newsletter" value=" <% = Request.Form("newsletter") %>"> </span></strong></font><br> <br> <br> <div align="center"><input type="button" onClick="history.go(-1)" value=" Voltar">           <input name="Acao" type="submit" value="Confirmar" ></div> </p> <input type="hidden" name="MM_insert" value="form1"> </form> </td> </tr> <tr> <td> </td> </tr> <tr> <td> </td> </tr> </table></td> </tr> </table></td> </tr> <tr> <td height="40"><div align="justify"></div></td> </tr> <tr> <td><table width="100%" cellspacing="0" cellpadding="7"> <tr> <td><img src="links/capa_ebook2.jpg" width="120" height="97" hspace="5"></td> <td valign="top"><font color="#000066" size="3" face="Arial, Helvetica, sans-serif"><a href="newsletter.asp#news"><strong>Cadastre-se em nossa Newsletter</strong> para receber gratuitamente os artigos da Cidade do Cérebro e <br> ainda ganhe o e-book <strong>"O Segredo da Inteligência"</strong>, <br> do Prof. Luiz Machado.</a></font></td> </tr> </table></td> </tr> <tr> <td><div align="justify"></div></td> </tr> <tr> <td> <!--#include file="include/rodape.htm" --> </td> </tr> </table></td> </tr> </table></td> </tr> </table></td> </tr> </table></td> </tr></table><map name="Map2"> <area shape="rect" coords="2,39,389,56" href="programa_de_formacao_em_emotologia.asp"> <area shape="rect" coords="1,2,528,20" href="http://www.clcidiomas.com.br" target="_blank"></map><map name="Map3"> <area shape="rect" coords="2,1,118,14" href="professor_luiz_machado.asp"> <area shape="rect" coords="414,2,470,15" href="newsletter.asp"> <area shape="rect" coords="294,2,407,15" href="superinteligencia.asp"> <area shape="rect" coords="210,2,287,15" href="emotopedia.asp"> <area shape="rect" coords="125,1,202,15" href="emotologia.asp"></map><map name="Map"> <area shape="rect" coords="3,1,76,15" href="gilberto_de_souza.asp"> <area shape="rect" coords="84,1,159,15" href="gilbertodesouza_palestras.asp"> <area shape="rect" coords="167,2,244,15" href="#"> <area shape="rect" coords="250,2,314,15" href="#"></map></body></html>-------------------------DEPOIS VEM AA PÁGINA DE CONEXÃO COM O BD <%Set Dados = Server.CreateObject("AdoDb.Connection")Dados.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=e:\home\cidadedocerebro\dados\gilberto.mdb"%>------------O QUE A CONTECE - ANTES TEM UM FORM COMUM - A PESSOA DIGITA DAI ENTRA A PÁGINA QUE EU DESCREVI ACIMA - QUE MOSTRA OS DADOS INSERIDOS NO FORM E SE ESTIVER OK, A PESSOA CONFIRMA E DAI ENTRA NO BD.ESSE CÓDIGO EU PEGUEI DE UM ARQUIVO Q EU TINHA FEITO NO ANO PASSADO E FUNCIONA PERFEITAMENTE.NESSE NÃO ESTOU CONSEGUINDO ENXERGAR O ERROAH - O ERRO QUE DÁ QDO EU CONFIRMO OS DADOS ÉMicrosoft JET Database Engine error '80040e07' Data type mismatch in criteria expression. /gilbertodesouza_palestras_confirmacao.asp, line 36

[Mário Monteiro 179]

na minha mensagem anterior eu pedi pra voce adicionarresponse.write(strSql)response.endantes de executar...deve aparecer a sua SQL interpretada jáai voce poe aqui o que aparecer...

[Dani Machado 0]

na minha mensagem anterior eu pedi pra voce adicionarresponse.write(strSql)response.endantes de executar...deve aparecer a sua SQL interpretada jáai voce poe aqui o que aparecer...

Ok, sorry! vou fazer isso e te dou um toque!Obrigada!

[Mário Monteiro 179]

Ok, sorry! vou fazer isso e te dou um toque!Obrigada!

no aguardo

[Dani Machado 0]

na minha mensagem anterior eu pedi pra voce adicionarresponse.write(strSql)response.endantes de executar...deve aparecer a sua SQL interpretada jáai voce poe aqui o que aparecer...

APARECEU TUDO ISSO NA TELAINSERT INTO palestras (p1, p2, p3, p4, p5, nome, email, dddtel, numtel, dddcel, numcel, dddtelcom, numtelcom, mhorario, endereco, numero, compl, bairro, cidade, uf, cep, empresa, profissao, necessidades, indicou, indicouesp, newsletter) VALUES (' Atitude: O caminho da Vitória ',' Comprometimento: Porque as pessoas desistem? ',' Relacionamento: Decifrando e Influenciando Pessoas ',' Automotivação: A estratégia dos Campeões ',' Liderança: A Arte de Influenciar e Desenvolver Pessoas',' Daniele',' dani@hotmail.com.br',' 12',' 39537705',' ',' ',' ',' ',' 7:00',' Av. das orquideas',' 87',' ',' jacana',' sao paulo',' SP',' 0583654',' DM inc.',' Proprietária',' Desejo receber por email os informativos periódicos: Descreva suas necessidades',' Site de busca',' google',' Sim')

na minha mensagem anterior eu pedi pra voce adicionarresponse.write(strSql)response.endantes de executar...deve aparecer a sua SQL interpretada jáai voce poe aqui o que aparecer...

OLHA SE PUDER FALAR - MEU MSN É DANIMRP@HOTMAIL.COMAPARECEU TUDO ISSO NA TELAINSERT INTO palestras (p1, p2, p3, p4, p5, nome, email, dddtel, numtel, dddcel, numcel, dddtelcom, numtelcom, mhorario, endereco, numero, compl, bairro, cidade, uf, cep, empresa, profissao, necessidades, indicou, indicouesp, newsletter) VALUES (' Atitude: O caminho da Vitória ',' Comprometimento: Porque as pessoas desistem? ',' Relacionamento: Decifrando e Influenciando Pessoas ',' Automotivação: A estratégia dos Campeões ',' Liderança: A Arte de Influenciar e Desenvolver Pessoas',' Daniele',' dani@hotmail.com.br',' 12',' 39537705',' ',' ',' ',' ',' 7:00',' Av. das orquideas',' 87',' ',' jacana',' sao paulo',' SP',' 0583654',' DM inc.',' Proprietária',' Desejo receber por email os informativos periódicos: Descreva suas necessidades',' Site de busca',' google',' Sim')

[Mário Monteiro 179]

INSERT INTO palestras (p1, p2, p3, p4, p5, nome, email, dddtel, numtel, dddcel, numcel, dddtelcom, numtelcom, mhorario, endereco, numero, compl, bairro, cidade, uf, cep, empresa, profissao, necessidades, indicou, indicouesp, newsletter) VALUES (' Atitude: O caminho da Vitória ',' Comprometimento: Porque as pessoas desistem? ',' Relacionamento: Decifrando e Influenciando Pessoas ',' Automotivação: A estratégia dos Campeões ',' Liderança: A Arte de Influenciar e Desenvolver Pessoas',' Daniele',' dani@hotmail.com.br',' 12',' 39537705',' ',' ',' ',' ',' 7:00',' Av. das orquideas',' 87',' ',' jacana',' sao paulo',' SP',' 0583654',' DM inc.',' Proprietária',' Desejo receber por email os informativos periódicos: Descreva suas necessidades',' Site de busca',' google',' Sim')todos os campos são texto em seu DB???

[Dani Machado 0]

INSERT INTO palestras (p1, p2, p3, p4, p5, nome, email, dddtel, numtel, dddcel, numcel, dddtelcom, numtelcom, mhorario, endereco, numero, compl, bairro, cidade, uf, cep, empresa, profissao, necessidades, indicou, indicouesp, newsletter) VALUES (' Atitude: O caminho da Vitória ',' Comprometimento: Porque as pessoas desistem? ',' Relacionamento: Decifrando e Influenciando Pessoas ',' Automotivação: A estratégia dos Campeões ',' Liderança: A Arte de Influenciar e Desenvolver Pessoas',' Daniele',' dani@hotmail.com.br',' 12',' 39537705',' ',' ',' ',' ',' 7:00',' Av. das orquideas',' 87',' ',' jacana',' sao paulo',' SP',' 0583654',' DM inc.',' Proprietária',' Desejo receber por email os informativos periódicos: Descreva suas necessidades',' Site de busca',' google',' Sim')todos os campos são texto em seu DB???

são

[Mário Monteiro 179]

então não era pra estar dando este erro...faça outro tipo de testevamos usar o metodo de recorset pra incluir assim encontraremos o erro mais facilmentevou fazer uma paradinha aqui e ja posto

[Dani Machado 0]

então não era pra estar dando este erro...faça outro tipo de testevamos usar o metodo de recorset pra incluir assim encontraremos o erro mais facilmentevou fazer uma paradinha aqui e ja posto

ok

[Mário Monteiro 179]

Estou de volta...

 

Troque:

 

strSql = "INSERT INTO palestras (p1, p2, p3, p4, p5, nome, email, dddtel, numtel, dddcel, numcel, dddtelcom, numtelcom, mhorario, endereco, numero, compl, bairro, cidade, uf, cep, empresa, profissao, necessidades, indicou, indicouesp, newsletter) VALUES ('" & strP1 & "','" & strP2 & "','" & strP3 & "','" & strP4 & "','" & strP5 & "','" & strNome & "','" &strEmail & "','" & strDDDtel & "','" & strNumtel & "','" & strDDDcel & "','" & strNumcel & "','" & strDDDtelcom & "','" &strNumtelcom & "','" & strMhorario & "','" & strEndereco & "','" & strNumero & "','" & strCompl& "','" & strBairro & "','"& strCidade & "','" & strUf & "','" & strCep & "','" & strEmpresa & "','" & strProfissao & "','" & strNecessidades & "','"& strIndicou & "','" & strIndicouesp & "','" & strNewsletter & "')"Set rs = Dados.Execute(strSql)

Por:

 

strSql = "SELECT p1, p2, p3, p4, p5, nome, email, dddtel, numtel, dddcel, numcel, dddtelcom, numtelcom, mhorario, endereco, numero, compl, bairro, cidade, uf, cep, empresa, profissao, necessidades, indicou, indicouesp, newsletter FROM PALESTRAS"Set RS = CreateObject("ADODB.Recordset")RS.Open strSql, CN, 3, 3RS.AddNewRS!p1 = strP1RS!p2 = strP2RS!p3 = strP3RS!p4 = strP4RS!p5 = strP5RS!nome = strNomeRS!email = strEmailRS!dddtel = strDDDtelRS!numtel = strNumtelRS!dddcel = strDDDcelRS!numcel = strNumcelRS!dddtelcom = strDDDtelcomRS!numtelcom = strNumtelcomRS!mhorario = strMhorarioRS!endereco = strEnderecoRS!numero = strNumeroRS!compl = strComplRS!bairro = strBairroRS!cidade = strCidadeRS!uf = strUfRS!cep = strCepRS!empresa = strEmpresaRS!profissao = strProfissaoRS!necessidades = strNecessidadesRS!indicou = strIndicouRS!indicouesp = strIndicouespRS!newsletter = strNewsletterRS.UpdateSet RS = Nothing

Se der erro poste aqui se não der posta tambem

[Dani Machado 0]

Estou de volta...

 

Troque:

 

strSql = "INSERT INTO palestras (p1, p2, p3, p4, p5, nome, email, dddtel, numtel, dddcel, numcel, dddtelcom, numtelcom, mhorario, endereco, numero, compl, bairro, cidade, uf, cep, empresa, profissao, necessidades, indicou, indicouesp, newsletter) VALUES ('" & strP1 & "','" & strP2 & "','" & strP3 & "','" & strP4 & "','" & strP5 & "','" & strNome & "','" &strEmail & "','" & strDDDtel & "','" & strNumtel & "','" & strDDDcel & "','" & strNumcel & "','" & strDDDtelcom & "','" &strNumtelcom & "','" & strMhorario & "','" & strEndereco & "','" & strNumero & "','" & strCompl& "','" & strBairro & "','"& strCidade & "','" & strUf & "','" & strCep & "','" & strEmpresa & "','" & strProfissao & "','" & strNecessidades & "','"& strIndicou & "','" & strIndicouesp & "','" & strNewsletter & "')"Set rs = Dados.Execute(strSql)

Por:

 

strSql = "SELECT p1, p2, p3, p4, p5, nome, email, dddtel, numtel, dddcel, numcel, dddtelcom, numtelcom, mhorario, endereco, numero, compl, bairro, cidade, uf, cep, empresa, profissao, necessidades, indicou, indicouesp, newsletter FROM PALESTRAS"Set RS = CreateObject("ADODB.Recordset")RS.Open strSql, CN, 3, 3RS.AddNewRS!p1 = strP1RS!p2 = strP2RS!p3 = strP3RS!p4 = strP4RS!p5 = strP5RS!nome = strNomeRS!email = strEmailRS!dddtel = strDDDtelRS!numtel = strNumtelRS!dddcel = strDDDcelRS!numcel = strNumcelRS!dddtelcom = strDDDtelcomRS!numtelcom = strNumtelcomRS!mhorario = strMhorarioRS!endereco = strEnderecoRS!numero = strNumeroRS!compl = strComplRS!bairro = strBairroRS!cidade = strCidadeRS!uf = strUfRS!cep = strCepRS!empresa = strEmpresaRS!profissao = strProfissaoRS!necessidades = strNecessidadesRS!indicou = strIndicouRS!indicouesp = strIndicouespRS!newsletter = strNewsletterRS.UpdateSet RS = Nothing

Se der erro poste aqui se não der posta tambem

Bom foi sem querer - mas como não estou habituada aos termos, eu acabei respondendo errado e deu errado.

 

No meu bd eu tinha p1,p2,p3,p4,p5, (no bd estava sim/nao) e na página são checkbox - que eu nomeei de p1,p2,p3.... (o value deles é o nome das palestras)

então tentando acertar fiz o seguinte:

 

fui no bd exclui as colunas p1,p2..... trocando por palestras e pra entrar como texto

dai os checkbox eu nomeei todos em palestras e o value com o nome das respectivas palestras.

 

dai peguei o codigo que você me passou e substitui assim:

RS!p1 = strP1

RS!p2 = strP2

RS!p3 = strP3

RS!p4 = strP4

RS!p5 = strP5

 

por

 

RS!palestras = strPalestras

 

no

 

strSql = "SELECT p1, p2, p3, p4, p5, ---------eu substitui por palestras

 

o erro anterior era RS!p1 = strP1

 

o erro agora é

 

 

Microsoft VBScript compilation error '800a03ea'

 

Syntax error

 

/gilbertodesouza_palestras_confirmacao1.asp, line 37

 

RS!palestra = strPalestra

--^

 

e aproveitando meu momento de Anta cósmica, no site eu o mhorario e o indicou são um list/menu - o necessidades é text/field e o newsletter um raddio button

[Mário Monteiro 179]

la em cima voce disse que substituiu por palestras no plural e em baixo disse que usou no singular...bem com o metodo do recordset ele aponta bem o lugar do erro fica mais facil de depurar apesar de o codigo ficar um pouco maior...veja isso e va postando os erros aqui