<%

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!

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.

DarkSign,

Fiz o seguinte: como meu FireFox é em português, escolhi "Exibir","Codificação","Ocidental" (ISO-8859-1). Daí, funcionou.

É por aí?

Obrigado e abraços

José Franco

Tem a ver com a forma como o firefox tah recebendo a página. Experimenta ir em View > Character Encode > Unicode (Procura a opcao pra PT xD).
Se resolver o problema, sua página não especificou que forma de linguagem ela utiliza, sendo assim, o FF n "adivinha" pra vc.

/*DarkSign*/

Boa tarde,

Tenho um site que quando carrego pelo Firefox e digito o endereço http://www.procursos.com.br/index.asp aparece um caracter estranho no lugar de todas as letras acentuadas (é um quadradinho com um ponto de interrogação dentro).

Agora se digito o endereço http://www.procursos.com.br/ os caracteres aparecem corretos. Mas isso só acontece no Firefox; no Internet Explorer e no Opera funciona normal dos dois jeitos.

Alguém sabe o porquê disso? Obrigado.

Já tentou usar o Session.LCID = 1046 ??

Sim, já coloquei essa linha em todos as páginas do site... O estranho é que desenvolvi um site para um cliente que tem as mesmas características do meu; no dele coloquei o Session.LCID = 1046 e funcionou, no meu continua dando essa zica!

Bom dia,

Estou com o seguinte problema: no código abaixo quero gravar a data no campo DataClie e exibi-la em outra página (o campo com a data é o último da lista). O problema é que insiro uma data no formato "dd/mm/aaaa" e, na hora de exibir, aparece no formato "mm/dd/aaaa".

Alguém saberia me dizer o que está errado no código abaixo? Obrigado.


data = "#" & FormatDateTime(Day(date()) & "/" & Month(date()) & "/" & Year(date()), 0) & "#"
%>

A linha abaixo é só para mostrar o que estou armazenando no campo data. Depois que consertar o problema, ele vai cair fora.

<td><span class="style48"><%Response.Write "Hoje é: " & data %></td>

<%
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)

Boa tarde,

Estou com o seguinte problema: no código abaixo quero gravar a data no campo DataClie e exibi-la em outra página (o campo com a data é o último da lista). O problema é que insiro uma data no formato "dd/mm/aaaa" e, na hora de exibir, aparece no formato "mm/dd/aaaa". Alguém saberia me dizer o que está errado no código abaixo? Obrigado.


data = "#" & FormatDateTime(Day(date()) & "/" & Month(date()) & "/" & Year(date()), 0) & "#"
%>

A linha abaixo é só para mostrar o que estou armazenando no campo data. Depois que consertar o problema, ele vai cair fora.

<td><span class="style48"><%Response.Write "Hoje é: " & data %></td>

<%
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)