Não Grava....

[Ronnie_Quintino]

Ae galera, olhem esse codogo ai em baixo, e me digam porque os itens: DIA, MES, HORARIO e LOCALIDADE não gravam no meu banco de dados. E não da nem uma mensagem de erro, apenas não grava. E é somente esses itens.

<%

var_nome = Request.form("dia")

var_nome = Request.form("mes")

var_nome = Request.form("horario")

var_nome = Request.form("localidade")

var_nome = Request.form("nome")

var_endereco = Request.form("endereco")

var_bairro = Request.form("bairro")

var_cidade = Request.form("cidade")

var_estado = Request.form("estado")

var_cep = Request.form("cep")

var_email = Request.form("email")

var_telefone = Request.form("telefone")

var_ddd = Request.form("ddd")

arquivo = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=aqui vai o meu site

ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + arquivo

Set Conexao = Server.CreateObject("ADODB.Connection")

Conexao.Open ConnString

Set Registros = Server.CreateObject("ADODB.Recordset")

Comando = "Select * from fale"

Registros.Open Comando, Conexao,3,3

Registros.addnew

Registros("data") = date()

Registros("dia") = var_dia

Registros("mes") = var_mes

Registros("horario") = var_horario

Registros("localidade") = var_localidade

Registros("nome") = var_nome

Registros("endereco") = var_endereco

Registros("bairro") = var_bairro

Registros("cidade") = var_cidade

Registros("estado") = var_estado

Registros("cep") = var_cep

Registros("email") = var_email

Registros("telefone") = var_telefone

Registros("ddd") = var_ddd

registros.update

Registros.Close

Conexao.Close

Set Registros = Nothing

Set Conexao = Nothing

%>

[bolomaster]

<!-- #include file="noticiasconection.asp" -->

<!-- #include file="ADOVBS.inc" -->

<%

dim conconexao, titulo, noticia, resumo, rs

titulo = Request.Form("titulo")

resumo = Request.Form("resumo")

noticia = Request.Form("noticia")

Sub ProcessaPagina

Dim rs

Set rs = Server.CreateObject("ADODB.Recordset")

rs.open "notonline", conconexao, adOpenDynamic, adlockoptimistic, adcmdtable

rs.Addnew

rs.fields("titulo") = titulo

rs.fields("noticia") = noticia

rs.fields("resumo") = resumo

rs.update

end sub

processapagina

%>

cara eu faço desta forma quem sabe .. não é porque ta faltando um sub... ai

ok.. eu não tenho muita certeza não mas confere ai abraços

[Deividy]

Cara tenta assim

-------------------------------------

ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + arquivo

Set Conexao = Server.CreateObject("ADODB.Connection")

Conexao.Open ConnString

Set Registros = Server.CreateObject("ADODB.Recordset")

Registros.Open "fale", Conexao,3,3

------------------------------------------------