add data no bd

[lezão 0]

Ai galera alguem pode me ajudar com este codigo aki

É qnd add nome e email gostaria q add a data do cadastramento tbm ...

 

Veja o Código....

 

<%
'Aqui abrimos a conexão com nosso banco de dados
Set Conex = Server.CreateObject ("ADODB.Connection") 
Conex.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("database/dados.mdb")


'Coletamos os dados do formulário
nome = request("nome")
email = request("email")
opcao = request("opcao")

'Verificamos os dados
if nome = "" then
alerta = alerta + "<SMALL><CENTER><B><FONT FACE=VERDANA SIZE=2 COLOR=#000000>* Digite seu nome!</B></font></small></CENTER>"
end if
if instr(email,"@") = 0 then
alerta = alerta + "<SMALL><CENTER><B><FONT FACE=VERDANA SIZE=2 COLOR=#000000>* E-mail inválido!</B></font></small></CENTER>"
end if

 

'Se não forem encontrados erros ele executa as instruções abaixo
if alerta = "" then

'Pega os dados do formulário e verifica se o email já não está cadastrado no banco
Set verificar = Server.CreateObject("ADODB.Recordset")
sql = "Select * from usuarios where nome='"&nome&"'and email='"&email&"'"
verificar.open sql, conex, 1,1

'Se não for encontrado o registro e a opção for igual a adicionar
if verificar.eof and opcao = "adicionar" then
'Efetua o cadastro
Set cadastra = Server.CreateObject("ADODB.Recordset")
sql = "Select * from usuarios"
cadastra.open sql, conex, 3,3
cadastra.addnew
cadastra("nome") = nome
cadastra("email") = email
cadastra.update

'Exibe uma mensagem de que o cadastro foi realizado
alerta = ("<SMALL><CENTER><B><FONT FACE=VERDANA SIZE=2 COLOR=#000000>Cadastro realizado com sucesso!</B></font></small></CENTER>")

'Se não for encontrado o registro e a opção for igual a remover
elseif verificar.eof and opcao = "remover" then
alerta = ("<SMALL><CENTER><B><FONT FACE=VERDANA SIZE=2 COLOR=#000000>Seu e-mail não foi encontrado!</B></font></small></CENTER>")

'Se o registro for encontrado e a opção for igual a remover
elseif opcao = "remover" then
'Remove o e-mail
Set remover = Server.CreateObject("ADODB.Recordset")
sql = "Select * from usuarios where nome='"&nome&"'and email='"&email&"'"
remover.open sql, conex, 3,3
remover.delete
'Exibe uma mensagem de que o registro foi removido com sucesso
alerta = ("<SMALL><CENTER><B><FONT FACE=VERDANA SIZE=2 COLOR=#000000>Seu e-mail foi removido de nossa lista com sucesso!</B></font></small></CENTER>")

'Se a opção for igual a adicionar e o email for encontrado
else
'Exibe uma mensagem de erro
alerta = ("<SMALL><CENTER><B><FONT FACE=VERDANA SIZE=2 COLOR=#000000>Seu e-mail já está cadastrado em nosso banco!</B></font></small></CENTER>")


end if
end if

'Exibe as mensagens na tela
response.Write(alerta)
%>

[Mário Monteiro 179]

se ja tiver o campo

 

adicione

 

cadastra("date") = date

[lezão 0]

Cara eu ja fiz isso e naun deu certo .....

[jrcardozo 4]

possivelmente o lcid esteja influenciando