0x80040E10

[jeffersonsm 0]

ola pessoa!quem pode me dar uma ajuda....olha o codigo ai<% Option Explicit %> <!--#include file="script.asp"--> <link rel="stylesheet" href="css/estilo.css" type="text/css"><%Dim vlsNomeDim vlsEnderecoDim vlsBairroDim vlsCidadeDim vlsEstadoDim vlsFoneDim vlsCepDim vlsFaxDim vlsEmailDim vlsDataDim vlsOperacaoDim vlsMensagemvlsOperacao = request("txtOperacao")vlsNome = request("txtNome")vlsEndereco = request("txtEndereco")vlsBairro = request("txtBairro")vlsCidade = request("txtCidade")vlsCep = request("txtCep")vlsEstado = request("txtuf")vlsFone = request("txtfone")vlsFax = request("txtFax")vlsEmail = request("txtemail")vlsData = request("txtData")Sub slsLimpaVariaveis vlsNome = "" vlsEndereco = "" vlsBairro = "" vlsCidade = "" vlsCep = "" vlsEstado = "" vlsFone = "" vlsFax = "" vlsEmail = "" vlsData = "" End subSelect Case (vlsOperacao) Case "LIMPAR" call slsLimpaVariaveis Case "GRAVAR" vlsNome = request("txtNome") if vlsNome= "" then %> <center> <br> <br> <table width="300" border="0" ALIGN="CENTER" class="borda_cadastro"> <tr> <td align="center" class="mensagem">CAMPO NOME, NÃO INFORMADO ! <br><br><img src="imagens/voltar.gif" ALT="Voltar" value="Voltar" style="cursor:pointer;" onclick="history.back(-1);"><br><br> </td> </tr> </table> </center> <% response.end end if vlsEndereco = request("txtEndereco") if vlsEndereco= "" then %> <center> <br> <br> <table width="300" border="0" ALIGN="CENTER" class="borda_cadastro"> <tr> <td align="center" class="mensagem">CAMPO ENDEREÇO, NÃO INFORMADO ! <br><br><img src="imagens/voltar.gif" ALT="Voltar" value="Voltar" style="cursor:pointer;" onclick="history.back(-1);"><br><br> </td> </tr> </table> </center> <% response.end end if vlsBairro = request("txtBairro") if vlsBairro = "" then %> <center> <br> <br> <table width="300" border="0" ALIGN="CENTER" class="borda_cadastro"> <tr> <td align="center" class="mensagem">CAMPO BAIRRO, NÃO INFORMADO ! <br><br><img src="imagens/voltar.gif" ALT="Voltar" value="Voltar" style="cursor:pointer;" onclick="history.back(-1);"><br><br> </td> </tr> </table> </center> <% response.end end if vlsCidade = request("txtCidade") if vlsCidade = "" then %> <center> <br> <br> <table width="300" border="0" ALIGN="CENTER" class="borda_cadastro"> <tr> <td align="center" class="mensagem">CAMPO CIDADE, NÃO INFORMADO ! <br><br><img src="imagens/voltar.gif" ALT="Voltar" value="Voltar" style="cursor:pointer;" onclick="history.back(-1);"><br><br> </td> </tr> </table> </center> <% response.end end if vlsCep = request("txtCep") if vlsCep = "" then %> <center> <br> <br> <table width="300" border="0" ALIGN="CENTER" class="borda_cadastro"> <tr> <td align="center" class="mensagem">CAMPO CEP, NÃO INFORMADO ! <br><br><img src="imagens/voltar.gif" ALT="Voltar" value="Voltar" style="cursor:pointer;" onclick="history.back(-1);"><br><br> </td> </tr> </table> </center> <% response.end end if vlsEstado = request("txtuf") if vlsEstado = "" then %> <center> <br> <br> <table width="300" border="0" ALIGN="CENTER" class="borda_cadastro"> <tr> <td align="center" class="mensagem">CAMPO ESTADO, NÃO INFORMADO ! <br><br><img src="imagens/voltar.gif" ALT="Voltar" value="Voltar" style="cursor:pointer;" onclick="history.back(-1);"><br><br> </td> </tr> </table> </center> <% response.end end if vlsFone = request("txtFone") if vlsFone = "" then %> <center> <br> <br> <table width="300" border="0" ALIGN="CENTER" class="borda_cadastro"> <tr> <td align="center" class="mensagem">CAMPO FONE, NÃO INFORMADO ! <br><br><img src="imagens/voltar.gif" ALT="Voltar" value="Voltar" style="cursor:pointer;" onclick="history.back(-1);"><br><br> </td> </tr> </table> </center> <% response.end end if vlsEmail = request("txtEmail") if vlsEmail = "" then %> <center> <br> <br> <table width="300" border="0" ALIGN="CENTER" class="borda_cadastro"> <tr> <td align="center" class="mensagem">CAMPO EMAIL, NÃO INFORMADO ! <br><br><img src="imagens/voltar.gif" ALT="Voltar" value="Voltar" style="cursor:pointer;" onclick="history.back(-1);"><br><br> </td> </tr> </table> </center> <% response.end end if vlsData = request("txtdata") if vlsData = "" then %> <center> <br> <br> <table width="300" border="0" ALIGN="CENTER" class="borda_cadastro"> <tr> <td align="center" class="mensagem">CAMPO DATA, NÃO INFORMADO ! <br><br><img src="imagens/voltar.gif" ALT="Voltar" value="Voltar" style="cursor:pointer;" onclick="history.back(-1);"><br><br> </td> </tr> </table> </center> <% response.end end if Dim strdata Dim textosql Dim url_conexao Dim DB url_conexao = Server.MapPath("database/leci.mdb") set DB = Server.CreateObject("ADODB.Connection") DB.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao textosql = "INSERT INTO cliente (nome, endereco, bairro, cidade, estado, cep, fone, fax, email, data) VALUES ("&vlsNome&", "&vlsEndereco&", "&vlsBairro&", "&vlsCidade&", "&vlsCep&", "&vlsData&", "&vlsEstado&", "&vlsFone&", "&vlsFax&", "&vlsEmail&")" set abredb=DB.Execute(textosql) 'abredb.close %> <center> <br> <br> <table width="300" border="0" ALIGN="CENTER" class="borda_cadastro"> <tr> <td align="center" class="mensagem">SEUS DADOS FORAM INSERIDO COM SECESSO ! <br><br><a href="java script:history.back(-1)" class="sub_menu">< < VOLTAR > ></a><br><br> </td> </tr> </table> </center> <%End Select%> <html><head><script>function MM_openBrWindow(theURL,winName,features) { //v2.0 window.open(theURL,winName,features);}</script><meta http-equiv="Content-Type" content="text/html; charset=windows-1252"><meta name="GENERATOR" content="Microsoft FrontPage 4.0"><meta name="ProgId" content="FrontPage.Editor.Document"><title>Telas</title></head><body><table width="500" border="0" ALIGN="CENTER"> <tr> <td class="destaque_centro">CADASTRO DE CLIENTES</td> </tr></table><br><table class="borda_cadastro" width="500" align="center"><form method="post" action="clientes.asp" name="frmclientes"> <tr> <td class="cadastro_preto" colspan="3" align="center" bgcolor="#ffcc66">Todos os campos são obrigatórios !</td> </tr> <tr> <td class="cadastro_preto" width="100" align="right">Nome</td> <td class="cadastro_preto"><input type="text" name="txtNome" class="boxes" size="65" value="<%=vlsNome%>"></td> </tr> <tr> <td class="cadastro_preto" width="100" align="right">Endereço</td> <td class="cadastro_preto"><input type="text" name="txtEndereco" class="boxes" size="65" value="<%=vlsEndereco%>"></td> </tr> <tr> <td class="cadastro_preto" width="100" align="right">Bairro</td> <td class="cadastro_preto"><input type="text" name="txtBairro" class="boxes" size="35" value="<%=vlsBairro%>"></td> </tr> <tr> <td class="cadastro_preto" width="100" align="right">Cidade</td> <td class="cadastro_preto"><input type="text" name="txtCidade" class="boxes" size="25" value="<%=vlsCidade%>"> CEP <input type="text" name="txtCep" class="boxes" size="12" value="<%=vlsCEP%>"> UF <select name="txtuf" type="text" class="boxes" value="<%=vlsEstado%>"> <option value="AC">AC<option value="AL">AL<option value="AM">AM<option value="AP">AP<option value="BA">BA<option value="CE">CE<option value="DF">DF<option value="ES">ES<option value="GO">GO<option value="MA">MA<option value="MG">MG<option value="MS">MS<option value="MT">MT<option value="PA">PA<option value="PB">PB<option value="PE">PE<option value="PI">PI<option value="PR">PR<option value="RJ">RJ<option value="RN">RN<option value="RO">RO<option value="RR">RR<option value="RS">RS<option value="SC">SC<option value="SE">SE<option value="SP">SP<option value="TO">TO</option> </select> </td> </tr> <tr> <td class="cadastro_preto" width="100" align="right">Telefone</td> <td class="cadastro_preto"><input type="text" name="txtfone" class="boxes" size="12" value="<%=vlsFone%>"> Fax <input type="text" name="txtFax" class="boxes" size="12" value="<%=vlsFax%>"></td> </tr> <tr> <td class="cadastro_preto" width="100" align="right">E-mail</td> <td class="cadastro_preto"><input type="text" name="txtemail" class="boxes" size="65" value="<%=vlsEmail%>"></td> </tr> <tr> <td class="cadastro_preto" width="100" align="right">Data aniversário</td> <td class="cadastro_preto"> <input type="text" name="txtdata" class="boxes" size="12" value="<%=vlsData%>"> <a href="java script:void(0)" onclick="if(self.gfPop)gfPop.fPopCalendar(document.frmclientes.txtdata);return false;" HIDEFOCUS><img class="PopcalTrigger" align="absmiddle" src="imagens/data.gif" border="0" alt=""></a> </td> </tr> <tr> <td class="cadastro_preto" colspan="3" align="right"> <table border="0" cellspacing="1" cellpadding="1"> <td align = "right"><img src="imagens/gravar.bmp"width="24" height = "24" ALT="Pesquisar"value="Pesquisar" style="cursor:pointer;" onCLick="document.frmclientes.action='clientes.asp?txtOperacao=GRAVAR';document.frmclientes.submit();"></td> <td align = "right"><img src="imagens/limpar.gif"width="24" height = "24" ALT="Limpar" value="Limpar" style="cursor:pointer;" onCLick="document.frmclientes.action='clientes.asp?txtOperacao=LIMPAR';document.frmclientes.submit();"></td> <td align = "right"><img src="imagens/voltar.gif"width="24" height = "24" ALT="Voltar" value="Voltar" style="cursor:pointer;" onclick="history.back(-1);"></td> <td>      </td> </table> </td> </tr> </form></table><iframe width=174 height=189 name="gToday:normal:agenda.js" id="gToday:normal:agenda.js" src="HelloWorld/ipopeng.htm" scrolling="no" frameborder="0" style="visibility:visible; z-index:999; position:absolute; top:-500px; left:-500px;"></iframe></body></html>

[explore 3]

Qual o Problema?Qual o erro?O que você esta tentando fazer?

[jeffersonsm 0]

Qual o Problema?

Qual o erro?

O que você esta tentando fazer?

<{POST_SNAPBACK}>

Cara.. estou tentando gravar no banco..

o erro e este:

 

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)

[Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 7.

/lecirabelloartbr/www/clientes.asp, line 228

 

 

linha 228 e esta:

 

Dim strdata

Dim textosql

Dim url_conexao

Dim DB

 

url_conexao = Server.MapPath("database/leci.mdb")

set DB = Server.CreateObject("ADODB.Connection")

DB.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao

 

textosql = "INSERT INTO cliente (nome, endereco, bairro, cidade, estado, cep, fone, fax, email, data) VALUES ("&vlsNome&", "&vlsEndereco&", "&vlsBairro&", "&vlsCidade&", "&vlsCep&", "&vlsData&", "&vlsEstado&", "&vlsFone&", "&vlsFax&", "&vlsEmail&")"

 

aqui ---> set abredb=DB.Execute(textosql)

[daniel.pod 0]

Cara alguma dessas variaveis estão vindo sem valor, coloque assim pra você ver qual delas nao esta vindo:

 

ASP

[*]

 

[*]response.write("INSERT INTO cliente (nome, endereco, bairro, cidade, estado, cep, fone, fax, email, data) VALUES ("&vlsNome&", "&vlsEndereco&", "&vlsBairro&", "&vlsCidade&", "&vlsCep&", "&vlsData&", "&vlsEstado&", "&vlsFone&", "&vlsFax&", "&vlsEmail&")")

 

[*]

 

Assim você ve qual delas está vindo em branco http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[alisson00 0]

ASP

[*]response.write("INSERT INTO cliente (nome, endereco, bairro, cidade, estado, cep, fone, fax, email, data) VALUES ("&vlsNome&", "&vlsEndereco&", "&vlsBairro&", "&vlsCidade&", "&vlsCep&", "&vlsData&", "&vlsEstado&", "&vlsFone&", "&vlsFax&", "&vlsEmail&")")

 

os parametros do tiop strings nao teriam que ter aspas simples??

 

em vez de ser "&vlsNome&", nao seria '"&vlsNome&"' ?

[jeffersonsm 0]

Isto mesmo ......valeu galera...t+brigaduuuuuuuuu