José Franco

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.

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.

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)