erro no insert

[salmeida 0]

GALERA, EU NÃO ESTOU CONSEGUINDO DEFINIR O ERRO.... FALTA POUCA COISA PARA EU TERMINAR ESSE SISTEMA....

 

QUANDO ELE CLICA EM CADASTRAR ELE ME DA NOME EM BRANCO.... O CÓDIGO DA PAGINA A BAIXO....

 

<%Dim objConn, objRs, strQuery, strConnection, Reg, SqlDim email, senha, nome, apelido, endereco, complemento, bairro, cidade, estado, pais, cep Dim telefone, celular, sexo, nascimento, estadocivil, profissao, dia, mes, ano, atualizacao, dataDim Bc, Browseremail        = Request.Form("email")senha        = Request.Form("senha")nome         = Request.Form("nome")apelido      = Request.Form("apelido")endereco     = Request.Form("endereco")complemento  = Request.Form("complemento") &" "bairro       = Request.Form("bairro")cidade       = Request.Form("cidade")estado       = Request.Form("estado")pais         = Request.Form("pais")cep          = Request.Form("cep")telefone     = Request.Form("telefone") &" "celular      = Request.Form("celular") &" "sexo         = Request.Form("sexo")dia          = Request.Form("dia") mes          = Request.Form("mes")ano          = Request.Form("ano")nascimento   = Request.Form("dia") &"/" &Request.Form("mes") &"/" &Request.Form("ano")estadocivil  = Request.Form("estadocivil") &" "profissao    = Request.Form("profissao") &" "atualizacao  = Request.Form("atualizacao")Data         = Day(date) &"/" &Month(date) &"/" &year(date)set BC = server.createobject("MSWC.BrowserType")Browser = BC.Browser & " " & BC.VersionIf Atualizacao <> "S" Then   atualizacao = "N"End ifSession("cemail")      = emailSession("email")       = emailSession("senha")       = senhaSession("nome")        = nomeSession("apelido")     = apelidoSession("endereco")    = enderecoSession("complemento") = complemento &" "Session("bairro")      = bairroSession("cidade")      = cidadeSession("estado")      = estadoSession("pais")        = paisSession("cep")         = cepSession("telefone")    = telefone Session("celular")     = celular Session("sexo")        = sexoSession("dia")         = diaSession("mes")         = mesSession("ano")         = anoSession("estadocivil") = estadocivil Session("profissao")   = profissao Set objConn =  Server.CreateObject("ADODB.Connection")objConn.Open "DBQ=" & Server.MapPath("dados/webmensagem.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"sql = "SELECT * FROM cadastro WHERE Apelido = '" & Apelido & "'"set Reg = server.createobject("adodb.recordset")	Reg.open sql, objconn, 1, 3	If not Reg.EOF Then   session("cadastro") = "achou"   response.redirect "index.asp?link=cadastro&opcao=1"End IfIf nome <> ""  Then'Insere os dados na tabela abertastrQuery = "INSERT INTO cadastro (Email, Senha, Nome, Apelido, Endereco, Complemento, Bairro, Cidade, UF, Pais, CEP, Telefone, Celular, Sexo, DNasc, ECivil, Profissao, receberatualizacao, cadastro, browser, IP) VALUES" _          &"('"&email&"','"&senha&"','"&nome&"','"&apelido&"','"&endereco&"','"&complemento&"','"&bairro&"','"&cidade&"','"&estado&"','"&pais&"','"&cep&"','"&telefone&"','"&celular&"','"&sexo&"','"&"01/01/1900"&"','"&estadocivil&"','"&profissao&"','"&atualizacao&"','"&data&"','"&browser&"','"&Session("IP")&"')"'response.Write StrQuery    'Executa a inserção no Banco de Dados Set ObjRs = objConn.Execute(strQuery)    'Caso ocorra um erro esta função de erro será chamadaOn error Resume Next'Fecha o Objeto de ConexãoobjConn.closeConexao.Close'"APAGA" qualquer instancia que possa ter no objeto objRs e objConnSet objRs   = NothingSet objConn = Nothing'Caso a função On Error Resume Next não tenha sido chamada o objeto err será = a 0if err > 0 Then	Session("email")       = ""    Session("nome")        = ""    Session("apelido")     = ""    Session("endereco")    = ""    Session("complemento") = ""    Session("bairro")      = ""    Session("cidade")      = ""    Session("estado")      = ""    Session("pais")        = ""    Session("cep")         = ""    Session("telefone")    = ""    Session("celular")     = ""    Session("sexo")        = ""    Session("dia")         = ""    Session("mes")         = ""    Session("ano")         = ""    Session("estadocivil") = ""    Session("profissao")   = ""    Session("atualizacao") = ""    session("cadastro")    = ""		'Redireciona o usuário caso não tenha ocorrido erro na transação	response.redirect "sucesso.asp?sucesso=" &apelidoElse    response.write "Código do erro: " &err &"<br>"    response.write "Linha de SQL..: " &strQuery	end ifElse    response.write "O nome esta em branco "End If%>

ABRAÇOS

[rOcKLoCo 0]

veja se você não está tentando cadastrar TEXTO no campo NUMÉRICO!!falows

[salmeida 0]

veja se você não está tentando cadastrar TEXTO no campo NUMÉRICO!!falows

CARA, JA OLHEI TUDO.... E CONTINUA... ABRAÇOS

[jcesar 0]

veja se você não está tentando cadastrar TEXTO no campo NUMÉRICO!!falows

CARA, JA OLHEI TUDO.... E CONTINUA... ABRAÇOS

Tais enviado o form por POST certo?Da uma olhada...E outra coisa, tenta organiza melhor seus codigos...Eu acredito que você esteja comecando, então ja te dou essa dica, pois depois o codigo começa a ficar uma zona, e ficara horrivel pra você poder reutilizar seus codigos...Comece a fazer funcoes e outras coisinhas...So uma dica, aceite se quiser, é claro...