alguém me no insert intro

[salmeida 0]

FALA AE GALERA, EU NÃO SOU MUITO BOM NA PARTE DE INTRODUZIR NO BANCO DE DADOS... TIPO QUE ASSIM, EU PEGUEI COM UM AMIGO, E MODIFIQUEI TUDO, MAIS ME DA O NOME ESTA EM BRANCO... ALGUÉ ME AJUDA A CONSTRUIR OUTRA INSERT??

 

<%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, Browserip = Request.ServerVariables("REMOTE_ADDR")email        = 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("email")       = emailSession("senha")       = senhaSession("nome")        = nome Session("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=C:\Inetpub\wwwroot\helptele\web\dados\webmensagem.mdb;Driver={Microsoft Access Driver (*.mdb)}"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, Estado, 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&"','"&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

[calcio 2]

Que tipo de erro dá no Insert?aparentemente está certo.ou tente isso.TROQUE ISSOstrQuery = "INSERT INTO cadastro (Email, Senha, Nome, Apelido, Endereco, Complemento, Bairro, Cidade, Estado, 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&"','"&IP&"')"PORstrQuery = "INSERT INTO cadastro (Email, Senha, Nome, Apelido, Endereco, Complemento, Bairro, Cidade, Estado, Pais, CEP, Telefone, Celular, Sexo, DNasc, ECivil, Profissao, receberatualizacao, cadastro, browser, IP) VALUES "strQuery=strQuery &"('"&email&"','"&senha&"','"&nome&"','"&apelido&"','"&endereco&"','"&complemento&"','"&bairro&"','"&cidade&"','"&estado&"','"&pais&"','"&cep&"','"&telefone&"','"&celular&"','"&sexo&"','"&01/01/1900&"','"&estadocivil&"','"&profissao&"','"&atualizacao&"','"&data&"','"&browser&"','"&IP&"')"OBS:1-Nos campos q forem número tire as aspas simples (');2-Se seu banco for access no campo data coloque o sinal TRALHA (#) ex: DE '"&"01/01/1900"&"' PARA #"&01/01/1900"3-Se seu Banco do SQL Server coloque com aspas simples (') mas no formato MMDDYYYY. Ex: '"&11/01/2000&"';4-Veja como colocou sua data. DE: '"&"01/01/1900"&"' PARA '"&01/01/1900&"'. Observe q depois do E comercial (&) ñ tem aspas duplas (")Espero ter ajudado!!

[bufalino 0]

deu certo aee ?