Request.Form dando valor falso!!

[salmeida 0]

Galera, ja olhei campo por campo no banco de dados e me dão 13 campos falso....

 

<!--#include file="config.asp" -->	<% Function GerarChave(valores)Dim chr_Array(35)chr_array(0) = "0"chr_array(1) = "1"chr_array(2) = "2"chr_array(3) = "3"chr_array(4) = "4"chr_array(5) = "5"chr_array(6) = "6"chr_array(7) = "7"chr_array(8) = "8"chr_array(9) = "9"chr_array(10) = "a"chr_array(11) = "b"chr_array(12) = "c"chr_array(13) = "d"chr_array(14) = "e"chr_array(15) = "f"chr_array(16) = "g"chr_array(17) = "h"chr_array(18) = "i"chr_array(19) = "j"chr_array(20) = "k"chr_array(21) = "l"chr_array(22) = "m"chr_array(23) = "n"chr_array(24) = "o"chr_array(25) = "p"chr_array(26) = "q"chr_array(27) = "r"chr_array(28) = "s"chr_array(29) = "t"chr_array(30) = "u"chr_array(31) = "v"chr_array(32) = "w"chr_array(33) = "x"chr_array(34) = "y"chr_array(35) = "z"Randomizedo while len(chave) < 08num = chr_array(Int(35 * Rnd )) chave = chave + num loop GerarChave = chaveEnd Functiondominio = MakeOk(Request.form("dominio")) & MakeOk(Request.form("extensao"))dadosobredominio = MakeOk(Request.form("dadosobredominio"))deseja_registro = MakeOk(Request.form("deseja_registro"))plano = MakeOk(Request.form("plano"))email = MakeOk(Request.form("email"))email2 = MakeOk(Request.form("email2"))senha = MakeOk(GerarChave(08)forma = MakeOk(Request.form("forma"))periocidade = MakeOk(Request.form("periocidade"))razaosocial = MakeOk(Request.form("razaosocial"))cnpj1 = MakeOk(Request.form("cnpj1"))cnpj2 = MakeOk(Request.form("cnpj2"))cnpj3 = MakeOk(Request.form("cnpj3"))cnpj4 = MakeOk(Request.form("cnpj4"))cnpj5 = MakeOk(Request.form("cnpj5"))responsavel = MakeOk(Request.form("responsavel"))cpf1 = MakeOk(Request.form("cpf1"))cpf2 = MakeOk(Request.form("cpf2"))cpf3 = MakeOk(Request.form("cpf3"))cpf4 = MakeOk(Request.form("cpf4"))pais = MakeOk(Request.form("pais"))estado = MakeOk(Request.form("estado"))cidade = MakeOk(Request.form("cidade"))endereco = MakeOk(Request.form("endereco"))telefone1 = MakeOk(Request.form("telefone1"))telefone2 = MakeOk(Request.form("telefone2"))telefone3 = MakeOk(Request.form("telefone3"))cep1 = MakeOk(Request.form("cep1"))cep2 = MakeOk(Request.form("cep2"))conheceu = MakeOk(Request.form("conheceu"))cliente = MakeOk(Request.form("cliente"))obs = MakeOk(Request.form("obs"))data = date(now)ativo = 0			on error resume next	strSQL = "INSERT INTO clientes(dominio,dadosobredominio,deseja_registro,plano,email,email2,senha,forma,periocidade,razaosocial,cnpj1,cnpj2,cnpj3,cnpj4,cnpj5,responsavel,cpf1,cpf2,cpf3,cpf4,pais,estado,cidade,endereco,telefone1,telefone2,telefone3,cep1,cep2,conheceu,cliente,obs,data,ativo)"	strSQL = strSQL & "VALUES("	strSQL = strSQL & "'" & dominio & "', "	strSQL = strSQL & "'" & dadosobredominio & "', "	strSQL = strSQL & "'" & deseja_registro & "', "	strSQL = strSQL & "'" & plano & "', "	strSQL = strSQL & "'" & email & "', "	strSQL = strSQL & "'" & email2& "', "	strSQL = strSQL & "'" & senha & "', "	strSQL = strSQL & "'" & forma & "', "	strSQL = strSQL & "'" & periocidade & "', "	strSQL = strSQL & "'" & razaosocial & "', "	strSQL = strSQL & "" & cnpj1 & ", "	strSQL = strSQL & "" & cnpj2 & ", "	strSQL = strSQL & "" & cnpj3 & ", "	strSQL = strSQL & "" & cnpj4 & ", "	strSQL = strSQL & "" & cnpj5 & ", "	strSQL = strSQL & "'" & responsavel & "', "	strSQL = strSQL & "" & cpf1 & ", "	strSQL = strSQL & "" & cpf2 & ", "	strSQL = strSQL & "" & cpf3 & ", "	strSQL = strSQL & "" & cpf4 & ", "	strSQL = strSQL & "'" & pais & "', "	strSQL = strSQL & "'" & estado & "', "	strSQL = strSQL & "'" & cidade & "', "	strSQL = strSQL & "'" & endereco & "', "	strSQL = strSQL & "" & telefone1 & ", "	strSQL = strSQL & "" & telefone2 & ", "	strSQL = strSQL & "" & telefone3 & ", "	strSQL = strSQL & "" & cep1 & ", "	strSQL = strSQL & "" & cep2 & ", "	strSQL = strSQL & "'" & conheceu & "', "	strSQL = strSQL & "'" & cliente & "', "	strSQL = strSQL & "'" & obs & "', "	strSQL = strSQL & "'" & data & "', "	strSQL = strSQL & "" & ativo & ") "		Call ExecuteSQL(strSQL)	if err then	Response.Write "<BR><BR>"	Response.Write err.number & "<BR>"	Response.Write err.description & "<BR>"	else	 %>

AJUDEM AI GALERA

[salmeida 0]

cara, sinceramente eu nunca vi esse makeOk em nenhum codigo ate hj...pra que serve isso?

Tratamento de ASP!!!mesmo sem o MakeOk ele me diz que 13 False...

[Mário Monteiro 179]

esse MakeOk ta com cara de ser uma function criada para testar alguma coisa

[Mário Monteiro 179]

nativo não é não

 

deve ser alguma function criada para alguma validação

 

dei uma olhada no google e veio isso

 

http://www.google.com.br/search?hl=pt-BR&q=MakeOk+asp&meta=

 

são validações mesmo

[salmeida 0]

nativo não é nãodeve ser alguma function criada para alguma validaçãodei uma olhada no google e veio issohttp://www.google.com.br/search?hl=pt-BR&q=MakeOk+asp&meta=são validações mesmo

é avaliação sim... eu peguei esse MakeOk de um outro sistema...!!! mais mesmo assim eu resolvi mudar e nada... to ficando puto... agora ele me da..-2147217900[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na instrução INSERT INTO.e eu olho... olho de novo e nada... cara é um sufoco... olho cada ponto do banco de dados... nada... o meu dei para seguinte forma...

strSQL = "INSERT INTO clientes(codigo_cliente,dominio,dadosobredominio,deseja_registro,plano,email,email2,senha,forma,periocidade,razaosocial,cnpj1,cnpj2,cnpj3,cnpj4,cnpj5,responsavel,cpf1,cpf2,cpf3,cpf4,pais,estado,cidade,endereco,telefone1,telefone2,telefone3,cep1,cep2,conheceu,cliente,obs,data,ativo)"	strSQL = strSQL & "VALUES("	strSQL = strSQL & "" & Server.HTMLEncode(Request.FORM("codigo_cliente")) & ", "	strSQL = strSQL & "'" & Server.HTMLEncode(Request.FORM("dominio")) & "', "	strSQL = strSQL & "'" & Server.HTMLEncode(Request.FORM("dadosobredominio")) & "', "	strSQL = strSQL & "'" & Server.HTMLEncode(Request.FORM("deseja_registro")) & "', "	strSQL = strSQL & "'" & Server.HTMLEncode(Request.FORM("plano")) & "', "	strSQL = strSQL & "'" & Server.HTMLEncode(Request.FORM("email")) & "', "	strSQL = strSQL & "'" & Server.HTMLEncode(Request.FORM("email2")) & "', "	strSQL = strSQL & "'" & GerarChave(08) & "', "	strSQL = strSQL & "'" & Server.HTMLEncode(Request.FORM("forma")) & "', "	strSQL = strSQL & "'" & Server.HTMLEncode(Request.FORM("periocidade")) & "', "	strSQL = strSQL & "'" & Server.HTMLEncode(Request.FORM("razaosocial")) & "', "	strSQL = strSQL & "" & Server.HTMLEncode(Request.FORM("cnpj1")) & ", "	strSQL = strSQL & "" & Server.HTMLEncode(Request.FORM("cnpj2")) & ", "	strSQL = strSQL & "" & Server.HTMLEncode(Request.FORM("cnpj3")) & ", "	strSQL = strSQL & "" & Server.HTMLEncode(Request.FORM("cnpj4")) & ", "	strSQL = strSQL & "" & Server.HTMLEncode(Request.FORM("cnpj5")) & ", "	strSQL = strSQL & "'" & Server.HTMLEncode(Request.FORM("responsavel")) & "', "	strSQL = strSQL & "" & Server.HTMLEncode(Request.FORM("cpf1")) & ", "	strSQL = strSQL & "" & Server.HTMLEncode(Request.FORM("cpf2")) & ", "	strSQL = strSQL & "" & Server.HTMLEncode(Request.FORM("cpf3")) & ", "	strSQL = strSQL & "" & Server.HTMLEncode(Request.FORM("cpf4")) & ", "	strSQL = strSQL & "'" & Server.HTMLEncode(Request.FORM("pais")) & "', "	strSQL = strSQL & "'" & Server.HTMLEncode(Request.FORM("estado")) & "', "	strSQL = strSQL & "'" & Server.HTMLEncode(Request.FORM("cidade")) & "', "	strSQL = strSQL & "'" & Server.HTMLEncode(Request.FORM("endereco")) & "', "	strSQL = strSQL & "" & Server.HTMLEncode(Request.FORM("telefone1")) & ", "	strSQL = strSQL & "" & Server.HTMLEncode(Request.FORM("telefone2")) & ", "	strSQL = strSQL & "" & Server.HTMLEncode(Request.FORM("telefone3")) & ", "	strSQL = strSQL & "" & Server.HTMLEncode(Request.FORM("cep1")) & ", "	strSQL = strSQL & "" & Server.HTMLEncode(Request.FORM("cep2")) & ", "	strSQL = strSQL & "'" & Server.HTMLEncode(Request.FORM("conheceu")) & "', "	strSQL = strSQL & "'" & Server.HTMLEncode(Request.FORM("cliente")) & "', "	strSQL = strSQL & "'" & Server.HTMLEncode(Request.FORM("obs")) & "', "	strSQL = strSQL & "'" & date() & "', "	strSQL = strSQL & "" & Server.HTMLEncode(Request.FORM("ativo")) & ") "	Conexao.Execute(strSQL)

abraços!

[salmeida 0]

esse erro eu desconheço...3704Operação não permitida quando o objeto está fechado.

[Mário Monteiro 179]

esse erro eu desconheço...3704Operação não permitida quando o objeto está fechado.

ta começando a melhorar ta aparecendo erros que podemos ajudar a resolver

deu erro em alguma linha?a conexao esta aberta?

esta é a primeira pergunta e como lá em cima deu erro de sintaxe printa na tela o que ta sendo executado tambemantes desta linha Conexao.Execute(strSQL)poeresponse.write(strSQL)response.end

[salmeida 0]

esse erro eu desconheço...3704Operação não permitida quando o objeto está fechado.

ta começando a melhorar ta aparecendo erros que podemos ajudar a resolver

deu erro em alguma linha?a conexao esta aberta?

esta é a primeira pergunta e como lá em cima deu erro de sintaxe printa na tela o que ta sendo executado tambemantes desta linha Conexao.Execute(strSQL)poeresponse.write(strSQL)response.end

ele imprime tudo pra mim... mais quando eu boto normal ele me da o seguinte erro438O objeto não dá suporte para a propriedade ou método

[salmeida 0]

você ta usando algum script pra tratar os erros, ou estes erros sao os do navegador mesmo?

eu tireio cod para tratar o erro e nao deu erro, mais tbm nao cadastrou....

[Salgado 4]

Vamos ver, com o response.Write verifique se os valores estão chegando todos corretamente na SQL, se os tipos de dados coincidem com os campos do BD.

 

 

 

 

 

Ah, não precisa mandar MP, eu leio quase todos os tópicos.

[salmeida 0]

Vamos ver, com o response.Write verifique se os valores estão chegando todos corretamente na SQL, se os tipos de dados coincidem com os campos do BD.Ah, não precisa mandar MP, eu leio quase todos os tópicos.

aqui esta a respostaINSERT INTO clientes(dominio,dadosobredominio,deseja_registro,plano,email,email2,senha,forma,periocidade,razaosocial,cnpj1,cnpj2,cnpj3,cnpj4,cnpj5,responsavel,cpf1,cpf2,cpf3,cpf4,pais,estado,cidade,endereco,telefone1,telefone2,telefone3,cep1,cep2,conheceu,cliente,obs,data,ativo)VALUES('sandro.com', 'Já possuo um domínio', 'Não quero o Registro/Transferência', 'Plano LS Mini R$ 9,90', 'sandroalm@gmail.com', 'sandroalm@oi.com.br', '7g9jenmx', 'd', '', 'TESTE', 121, 165, 316, 0001, 21, 'Sandro Pinto', 102, 367, 567, 61, 'Brasil', 'RJ', 'rio de janeiro', 'av. dom helder camara', 21, 3899, 8722, 21380, 006, 'Anúncio Cadê', 'n', 'teste', '6/5/2006', 0)

[salmeida 0]

CONSEGUI NADA... ELE CADASTROU E DEPOIS PAROU... NAO SEI PO QUE.... O CODE É ESSE A BAIXO... NAO SEI MAIS O QUE FAZER...

 

<!--#include file="config.asp" --><%Set Conexao = Server.CreateObject("ADODB.Connection")ConnString = dadosConexao.Open ConnStringSet clientes = Server.CreateObject("ADODB.Recordset")clientes.Open "Select * FROM clientes Order by dominio asc", Conexao, 3 Set SQL = Server.CreateObject("ADODB.Recordset")Set SQL2 = Server.CreateObject("ADODB.Recordset")Function GerarChave(valores)Dim chr_Array(35)chr_array(0) = "0"chr_array(1) = "1"chr_array(2) = "2"chr_array(3) = "3"chr_array(4) = "4"chr_array(5) = "5"chr_array(6) = "6"chr_array(7) = "7"chr_array(8) = "8"chr_array(9) = "9"chr_array(10) = "a"chr_array(11) = "b"chr_array(12) = "c"chr_array(13) = "d"chr_array(14) = "e"chr_array(15) = "f"chr_array(16) = "g"chr_array(17) = "h"chr_array(18) = "i"chr_array(19) = "j"chr_array(20) = "k"chr_array(21) = "l"chr_array(22) = "m"chr_array(23) = "n"chr_array(24) = "o"chr_array(25) = "p"chr_array(26) = "q"chr_array(27) = "r"chr_array(28) = "s"chr_array(29) = "t"chr_array(30) = "u"chr_array(31) = "v"chr_array(32) = "w"chr_array(33) = "x"chr_array(34) = "y"chr_array(35) = "z"Randomizedo while len(chave) < 08num = chr_array(Int(35 * Rnd )) chave = chave + num loop GerarChave = chaveEnd Functiondominio = Server.HTMLEncode(Request.Form("dominio")) & Server.HTMLEncode(Request.Form("extensao"))Ativo = 0 		on error resume next	ComandoSQL = "INSERT INTO clientes(dominio,dadosobredominio,desejaregistro,plano,email,email2,senha,forma,periocidade,razaosocial,cnpj1,cnpj2,cnpj3,cnpj4,cnpj5,responsavel,cpf1,cpf2,cpf3,cpf4,pais,estado,cidade,endereco,telefone1,telefone2,telefone3,cep1,cep2,conheceu,cliente,obs,data,ativo)"	ComandoSQL = ComandoSQL & "VALUES("	ComandoSQL = ComandoSQL & "'" & dominio & "', "	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("dadosobredominio")) & "', "	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("desejaregistro")) & "', "	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("plano")) & "', "	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("email")) & "', "	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("email2")) & "', "	ComandoSQL = ComandoSQL & "'" & GerarChave(08) & "', "	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("forma")) & "', "	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("periocidade")) & "', "	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("razaosocial")) & "', "	ComandoSQL = ComandoSQL & "" & Server.HTMLEncode(Request.FORM("cnpj1")) & ", "	ComandoSQL = ComandoSQL & "" & Server.HTMLEncode(Request.FORM("cnpj2")) & ", "	ComandoSQL = ComandoSQL & "" & Server.HTMLEncode(Request.FORM("cnpj3")) & ", "	ComandoSQL = ComandoSQL & "" & Server.HTMLEncode(Request.FORM("cnpj4")) & ", "	ComandoSQL = ComandoSQL & "" & Server.HTMLEncode(Request.FORM("cnpj5")) & ", "	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("responsavel")) & "', "	ComandoSQL = ComandoSQL & "" & Server.HTMLEncode(Request.FORM("cpf1")) & ", "	ComandoSQL = ComandoSQL & "" & Server.HTMLEncode(Request.FORM("cpf2")) & ", "	ComandoSQL = ComandoSQL & "" & Server.HTMLEncode(Request.FORM("cpf3")) & ", "	ComandoSQL = ComandoSQL & "" & Server.HTMLEncode(Request.FORM("cpf4")) & ", "	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("pais")) & "', "	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("estado")) & "', "	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("cidade")) & "', "	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("endereco")) & "', "	ComandoSQL = ComandoSQL & "" & Server.HTMLEncode(Request.FORM("telefone1")) & ", "	ComandoSQL = ComandoSQL & "" & Server.HTMLEncode(Request.FORM("telefone2")) & ", "	ComandoSQL = ComandoSQL & "" & Server.HTMLEncode(Request.FORM("telefone3")) & ", "	ComandoSQL = ComandoSQL & "" & Server.HTMLEncode(Request.FORM("cep1")) & ", "	ComandoSQL = ComandoSQL & "" & Server.HTMLEncode(Request.FORM("cep2")) & ", "	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("conheceu")) & "', "	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("cliente")) & "', "	ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("obs")) & "', "	ComandoSQL = ComandoSQL & "'" & date() & "', "	ComandoSQL = ComandoSQL & "" & ativo & ") "	Conexao.Execute(ComandoSQL)			if err then	Response.Write "<BR><BR>"	Response.Write err.number & "<BR>"	Response.Write err.description & "<BR>"	else	 %>

ABRAÇOS

[Salgado 4]

Qual era o problema?

[salmeida 0]

o erro é banco de dados.... nao sei por que... olhei a conexão e nada...-2147217900[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na instrução INSERT INTO.

[Mário Monteiro 179]

separa isso aqui)VALUES() VALUES (

[dark0 0]

amigo..

 

Olhando o que apareceu, quando você mandou imprimir o SQL na tela, eu vi que tem um dos dados, que esta vazio

 

INSERT INTO clientes(dominio,dadosobredominio,deseja_registro,plano,email,email2,senha,forma

 

,periocidade,razaosocial,cnpj1,cnpj2,cnpj3,cnpj4,cnpj5,responsavel,cpf1,cpf2,cpf

 

3,cpf4,pais,estado,cidade,endereco,telefone1,telefone2,telefone3,cep1,cep2,conhe

 

ceu,cliente,obs,data,ativo)VALUES('sandro.com', 'Já possuo um domínio', 'Não quero o Registro/Transferência', 'Plano LS Mini R$ 9,90', 'sandroalm@gmail.com', 'sandroalm@oi.com.br', '7g9jenmx', 'd', '', 'TESTE', 121, 165, 316, 0001, 21, 'Sandro Pinto', 102, 367, 567, 61, 'Brasil', 'RJ', 'rio de janeiro', 'av. dom helder camara', 21, 3899, 8722, 21380, 006, 'Anúncio Cadê', 'n', 'teste', '6/5/2006', 0)

Agora, além disso, precisa ver como estão definidos os campos dentro do banco de dados!

 

Pois, se ele é to tipo TEXTO, precisa colocar a aspa simples, como você fez na maioria dos campos

Se é Numero, não vai aspa

 

Então, tem alguns campos que tem aspas, e outros que nao tem. Só confira se isso está ok mesmo.

 

Outra coisa que pode gerar erro às vezes, é nome dos campos. Confira tb se os nomes dos campos estao certos, comparados àos nomes do banco.

 

Se estiver tudo ok, eu sugiro à você, montar o SQL campo a campo. Esse é o melhor modo de debugar erros.

 

Salve a string SQL como ela esta agora, pronta, e vá desmembrando ela.

Tire um campo.. teste. Erro.. Tire outro.. teste.. e assim vai..

Tendeu?

 

Sempre encontro os erros assim por aqui

 

Abração

 

Qualquer coisa poste aí

[salmeida 0]

eu acho que é da minha conexao... olhe isso

 

caminho = "C:\inetpub\wwwroot\lshost\site\db\novo.mdb"ConnString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & caminhoSet Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open ConnStringif err then  Response.write("<Center><font face='verdana' size='2'>Estamos fazemos algumas modificações no site para melhor atendê-lo.<br><br>O site estará funcionando em no máximo 15 minutos.<br><br>Agradecemos pela compreensão,</font></center>")Response.EndEnd ifSet SQL = Server.CreateObject("ADODB.Recordset")Set SQL2 = Server.CreateObject("ADODB.Recordset")%>

Abraços

[salmeida 0]

o erro esta com a conexão com o banco de dados... agora nao sei mais nada...!!!

[salmeida 0]

gente... nao sei como... nao me perguntei... pela 7 vez que to refazendo... consegui!!!! gente muito obrigado ai!!! obrigado mesmo!!!