Erro Na Gravação De Campos Com Data Em Arquivo Access

Boa tarde, pessoal

O problema é o seguinte: tenho um site com uma página "Fale Conosco". Quando o usuário digita seus dados e sua mensagem, faço três coisas:

1) Crio um formulário onde o usuário digita os dados:

<form name="dados" method="post" onsubmit="return VerCampo()" action="verifica.asp">

2) Depois que o usuário clica no botão "Enviar", abro a página de verificação (verifica.asp) para o usuário fazer alguma eventual correção. Nessa página, coloquei o seguinte código:

<%

empresa = Request("empresa")
nome = Request("nome")
cargo = Request("cargo")
endereco = Request("endereco")
cidade = Request("cidade")
estado = Request("estado")
cep = Request("cep")
ddd1 = Request("ddd1")
fone = Request("fone")
ddd2 = Request("ddd2")
fax = Request("fax")
e_mail = Request("e_mail")
msg = Request("msg")
data = date()

' Confira as variáveis da mensagem

strOrigem = Trim(Request.form("nome"))
strEmailRem = Trim(Request.form("e_mail"))
strDestino = "procursos@procursos.com.br"
strAssunto = "Mensagem do Fale Conosco"
strMensagem = Request("msg")

' Cria os objetos para envio de e-mail

Set mensagem = Server.CreateObject("CDO.Message")
Set conf = Server.CreateObject("CDO.Configuration")
Set param = conf.Fields

param("http://schemas.micro...tion/sendusing") = 2
param("http://schemas.micro...ion/smtpserver") = "localhost"
param.Update

Set mensagem.configuration = conf

' Atribui-se os valores para as propriedades do objeto

mensagem.From = strEmailRem
mensagem.To = strDestino
mensagem.Subject = strAssunto
mensagem.TextBody = strOrigem & " enviou a seguinte mensagem: " & strMensagem

mensagem.Send

' Informa o que foi enviado
%>

3) Quando o usuário confirma os dados e clica em outro botão "Enviar", abro a página "resposta.asp" onde gravo os dados num banco de dados Access, como abaixo:

<%
Dim conProCursos
Dim rsProCursos
Dim SQLInsert

Set conProCursos = Server.CreateObject("ADODB.Connection")
Set rsProCursos = Server.CreateObject("ADODB.Recordset")

conProCursos.Provider = "Microsoft.Jet.OLEDB.4.0"
conProCursos.ConnectionString = Server.MapPath("\dados\ProCursos.mdb")

conProCursos.Open

rsProCursos.Activeconnection = conProCursos
rsProCursos.Cursortype = adOpenkeyset
rsProCursos.Locktype = adlockOptimistic
rsProCursos.Source = "TabClie"

SQLInsert = "Insert Into TabClie (EmpClie, NomeClie, CargoClie, EnderecoClie, CidadeClie, EstadoClie, CEPClie, DDDFoneClie, FoneClie, DDDFaxClie, FaxClie, EmailClie, MensClie, DataClie)"
SQLInsert = SQLInsert & " Values ("
SQLInsert = SQLInsert & "'" & Request.Form("empresa") & "',"
SQLInsert = SQLInsert & "'" & Request.Form("nome") & "',"
SQLInsert = SQLInsert & "'" & Request.Form("cargo") & "',"
SQLInsert = SQLInsert & "'" & Request.Form("endereco") & "',"
SQLInsert = SQLInsert & "'" & Request.Form("cidade") & "',"
SQLInsert = SQLInsert & "'" & Request.Form("estado") & "',"
SQLInsert = SQLInsert & "'" & Request.Form("cep") & "',"
SQLInsert = SQLInsert & "'" & Request.Form("ddd1") & "',"
SQLInsert = SQLInsert & "'" & Request.Form("fone") & "',"
SQLInsert = SQLInsert & "'" & Request.Form("ddd2") & "',"
SQLInsert = SQLInsert & "'" & Request.Form("fax") & "',"
SQLInsert = SQLInsert & "'" & Request.Form("e_mail") & "',"
SQLInsert = SQLInsert & "'" & Request.Form("msg") & "',"
SQLInsert = SQLInsert & "'" & Request.Form("data") & "')"

conProCursos.Execute(SQLInsert)

conProCursos.Close

Set rsProCursos = Nothing
Set conProCursos = Nothing
%>

Acontece que, às vezes, o campo "data" que é carregado com date() (está acima, em negrito), vem com uma data tipo "06/10/2008" quando deveria ter vindo "10/06/2008"; às vezes, a data vem correta. Já reclamei com o suporte do host, mas os caras parecem fraquinhos: custam para entender o problema e quando respondem, ficam dando umas bolas fora tipo: "verifique se não tem um anti-vírus bloqueando seus dados" ou "coloque <% session.LCID = 1036 %> na suas páginas" (sendo que já estão todas com esse comando - será que a tigrada não foi minha?...).

Alguém pode me ajudar a sair dessa sinuca?

Obrigado.

#1 José Franco

#2 Estud_asp

#3 abc2

#4 José Franco

#5 Humberto - S.O.S.

1 user(s) are reading this topic