INSERIR dados No DB

[Slaa 0]

Naum sei c funciona.... quando clico em adicionar em outra página, que ira resgatar esta pagina, ele naum vai... ainda naum sei o que deu... mas a pergunta eh... esse INSERT que fiz vai funcionar? ou fiz algo errado? Ou muitas coisas erradas?

 

Vlw

 

<%' Capturar Datanome_inserir = Request.Form("nome")email_inserir = Request.Form("email")emailsec_inserir = Request.Form("emailsec")loginname_inserir = Request.Form("loginname")loginpassword_inserir = Request.Form("loginpassword")endereco_inserir = Request.Form("endereco")cidade_inserir = Request.Form("cidade")estado_inserir = Request.Form("estado")cep_inserir = Request.Form("cep")telefone_inserir = Request.Form("telefone")celular_inserir = Request.Form("celular")dominio_inserir = Request.Form("dominio")plano_inserir = Request.Form("plano")os_inserir = Request.Form("os")vencimento_inserir = Request.Form("vencimento")banco_inserir = Request.Form("banco")forma_inserir = Request.Form("forma")periodo_inserir = Request.Form("periodo")' Open Databasecaminho=left(Server.mappath(Request.ServerVariables("PATH_INFO")),InstrRev(Server.mappath(Request.ServerVariables("PATH_INFO")),"\"))' Crio o objeto de conexao ADO	Set conexao = Server.CreateObject("ADODB.Connection")	conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&"001.mdb"' Abro a conexão	conexao.open	' ProcurarstrSQL5 = "INSERT INTO Member a (nome, email, emailsec, loginname, loginpassword, endereco, cidade, estado, cep, telefone, celular), financeiro b (vencimento, banco, forma, periodo), host c (dominio_inserir, plano_inserir, os_inserir) VALUES a.(' " & nome_inserir & "','" & email_inserir & "','" & emailsec_inserir & "','" & loginname_inserir & "','" & loginpassword_inserir & "','" & endereco_inserir & "','" & cidade_inserir & "','" & estado_inserir & "','" & cep_inserir & "','" & telefone_inserir & "','" & celular_inserir & "'"") & b.(' " & vencimento_inserir & "','" & banco_inserir & "','" & forma_inserir & "','" & periodo_inserir & "','") & "'c.(' " & dominio_inserir & "','" & plano_inserir & "','" & os_inserir & "','")Set objRs5 = objConn.Execute(strSQL5)IF ERR THENRESPONSE.WRITE "ERRO: " & ERR.DESCRIPTION & "<BR>" & ERR.NUMBERELSERESPONSE.REDIRECT "_admin.asp"END IF %>

[Mário Monteiro 179]

tira o tratamento de erros e veja se vem algum erro

[Slaa 0]

Deu erro, mas tudo bem, fiz o seguinte, criei um INSERT para cada tabela do DB. Assim funciona bem :P Vlw!

[Mário Monteiro 179]

Deu erro, mas tudo bem, fiz o seguinte, criei um INSERT para cada tabela do DB. Assim funciona bem :P Vlw!

a intencao era mesmo de aparecer o erro para poder corrigi-lo http://forum.imasters.com.br/public/style_emoticons/default/joia.gif