- Fórum WMO
- → José Franco's Content
José Franco's Content
There have been 7 items by José Franco (Search limited from 17/05/2023)
#907419 Exibir Data Em Uma Página Da Web
Posted by José Franco on 07/04/2008, 16:04 in Microsoft Access
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)
#918989 Erro Na Gravação De Campos Com Data Em Arquivo Access
Posted by José Franco on 14/06/2008, 15:27 in ASP
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.
#919809 Erro Na Gravação De Campos Com Data Em Arquivo Access
Posted by José Franco on 19/06/2008, 07:59 in ASP
<%
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!
#918986 Caracteres Estranhos No Site
Posted by José Franco on 14/06/2008, 15:08 in ASP
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*/
#918863 Caracteres Estranhos No Site
Posted by José Franco on 13/06/2008, 13:10 in ASP
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.
#907740 Problemas Com Data Em Access
Posted by José Franco on 09/04/2008, 10:32 in ASP
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)
#907764 Problemas Com Data Em Access
Posted by José Franco on 09/04/2008, 11:48 in ASP
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!
- Fórum WMO
- → José Franco's Content
- Privacy Policy
- Regras ·