Jump to content


José Franco

Member Since 07/04/2008
Offline Last Active 20/06/2008, 17:28
-----

#907419 Exibir Data Em Uma Página Da Web

Posted by José Franco on 07/04/2008, 16:04

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)


IPB Skin By Virteq