Formato De Data De Um Banco De Dados

[jfranco]

Boa noite,

Estou abrindo um banco de dados Access da seguinte forma:

Dim conConverte
Dim rsConverte
Dim SQLInsert

Set conConverte = Server.CreateObject("ADODB.Connection")
Set rsConverte = Server.CreateObject("ADODB.Recordset")

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

SQLSelect = "Select * From TabClie Order by DataClie Desc"

conConverte.Open
rsConverte.Open SQLSelect, conConverte, 3, 3

Acontece que há um campo tipo data nesse banco que está aparecendo no formato "mm/dd/aaaa" e não "dd/mm/aaaa". Dentro do banco o campo está como "mm/dd/aaaa". Como fazer para gravá-lo no formato correto?

Obrigado.

[bareta]

coloque no inicio de seu codigo

session.licd=1046

[jfranco]

coloque no inicio de seu codigo

session.licd=1046

Bareta,

Fiz o que você sugeriu, mas não funcionou. Ainda está trazendo com a data invertida.

Coloquei o "session.licd=1046" na página em que os dados são gravados:

<%

Session.LCID = 1046

empresa = Request("empresa")

nome = Request("nome")

endereco = Request("endereco")

cidade = Request("cidade")

UF = Request("UF")

cep1 = Request("cep1")

cep2 = Request("cep2")

Tel_DDD = Request("Tel_DDD")

Tel = Request("Tel")

Fax_DDD = Request("Fax_DDD")

Fax = Request("Fax")

e_mail = Request("e_mail")

assunto = Request("assunto")

data = Date()

' Confira as variáveis da mensagem

strOrigem = Trim(Request.form("nome"))

strEmailRem = Trim(Request.form("e_mail"))

strDestino = "contato@trifasico.com.br"

strAssunto = "Mensagem do Fale Conosco"

strMensagem = Request("assunto")

' 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.microsoft.com/cdo/configuration/sendusing") = 2

param("http://schemas.microsoft.com/cdo/configuration/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

%>

Não é assim?