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.
Erro Na Gravação De Campos Com Data Em Arquivo Access
Started By José Franco, 14/06/2008, 15:27
4 replies to this topic
#1
Posted 14/06/2008, 15:27
#2
Posted 17/06/2008, 20:30
<%
If Len(Day(Date)) = 1 Then
dia = "0" & Day(Date)
Else
dia = Day(Date)
End If
If Len(Month(Date)) = 1 Then
mez = "0" & Month(Date)
Else
mez = Month(Date)
End If
data = ""&dia&"/"&mez&"/"&Year(Date)&""
%>
<%=""&data&""%>
pega ai
If Len(Day(Date)) = 1 Then
dia = "0" & Day(Date)
Else
dia = Day(Date)
End If
If Len(Month(Date)) = 1 Then
mez = "0" & Month(Date)
Else
mez = Month(Date)
End If
data = ""&dia&"/"&mez&"/"&Year(Date)&""
%>
<%=""&data&""%>
pega ai
http://www.isointernet.com.br
Iso Internet Host - Garantia de Qualidade em Hospedagem
#3
Posted 18/06/2008, 10:24
Tente acima... ou senão:
session.LCID = 1046 data = CDate(Date())
#4
Posted 19/06/2008, 07:59
<%
If Len(Day(Date)) = 1 Then
dia = "0" & Day(Date)
Else
dia = Day(Date)
End If
If Len(Month(Date)) = 1 Then
mez = "0" & Month(Date)
Else
mez = Month(Date)
End If
data = ""&dia&"/"&mez&"/"&Year(Date)&""
%>
<%=""&data&""%>
pega ai
Funcionou. Valeu!
#5
Posted 23/06/2008, 10:46
A melhor opção é fazer o que o ABC2 disse, pois assim não enfrentará futuros problemas...
...
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)