Novamente Problemas Com Data

[rcnery]

Pessoal,

To um baita problema que já tentei de tudo pra resolver mais não consigo!

Quando é enviada uma data superior ao dia 12 aparece correta no sistema nacional, (ex 13/04) o problema é quando o dia é menor ou igual a 12 que a data escreve no sistema americano, (ex 04/02) mesmo utilizando o Session.LCID=1046.

Código abaixo:

<% 
Session.LCID=1046
referer = Request.ServerVariables("HTTP_REFERER") 
mData = Date()
Response.Write mData
%>
<!--#include file="banco de dados"-->
<table width="560" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td><div align="center"> 
<%
SUB errorForm(theError)
%>
        <%=theError %> 
        <form method="post" action="<%=referer%>">
          <% FOR EACH item IN Request.Form %>
          <input name="<%=item%>" type="hidden" value="<%=Server.HTMLEncode( Request.Form( item))%>">
          <% NEXT %>
          <input type="submit" name="Submit" value="Retorna">
        </form>
        <%
  	Response.End
  	END SUB
  	%>
      </div></td>
  </tr>
  <tr>
    <td>
      <%
FUNCTION fixQuotes( theString )
  fixQuotes = REPLACE( theString, "'", "''" )
END FUNCTION
' Get the Form Variables
addmsg            = TRIM( Request( "addmsg" ) )
addrep      = TRIM( Request( "addrep" ) )

msgID                = TRIM( Request.Form( "msgID" ) )
forNome        = TRIM( Request.Form( "forNome" ) )
forEmail          = TRIM( Request.Form( "forEmail" ) )
forTitulo       = TRIM( Request.Form( "forTitulo" ) )
forMensagem = TRIM( Request.Form( "forMensagem" ) )
smile = TRIM( Request.Form( "smile" ) )
codigoperg  = TRIM( Request.Form( "codigoperg" ) )
reNome        = TRIM( Request.Form( "reNome" ) )
reEmail          = TRIM( Request.Form( "reEmail" ) )
reTitulo       = TRIM( Request.Form( "reTitulo" ) )
reResposta = TRIM( Request.Form( "reResposta" ) )
repsmile = TRIM( Request.Form( "smile" ) )

IF addmsg <> "" THEN
' Assign Default Values
IF forNome = "" THEN
  errorForm " Você esqueceu de colocar seu nome! "
END IF
IF forEmail = "" THEN
  errorForm " Você esqueceu de colocar seu e-mail! "
END IF
IF forTitulo = "" THEN
  errorForm  " Você esqueceu de colocar um titulo na sua mensagem! "
END IF
IF forMensagem = "" THEN
  errorForm " Você esqueceu de colocar sua mensagem! "
END IF

' Add New Mensagem
sqlString = "INSERT INTO forum " &_
  "( nome, email, titulo, data, mensagem, smile, contdata ) VALUES ( " &_
  " '" & forNome & "', " &_
  " '" & forEmail & "', " &_
  " '" & forTitulo & "', " &_
  " '" & mData & "', " &_
  " '" & forMensagem & "', " &_
  " '" & smile & "', " &_
  " '" & mData & "')"

Con.Execute sqlString
%>

Aguardo ajuda urgente!

Obrigado a Todos

Ricardo

[dark0]

e ae.. beleza?

Dá uma olhada no tópico Pendurado sobre Funções!

Lá eu postei uma função que pode te ajudar!

o tópico é: http://scriptbrasil.com.br/forum/index.php...indpost&p=87718

Abraços

[rcnery]

Amigo,

Obrigado por tentar me ajudar mais acho q você não entendeu meu problema, a Data aparece correta no envio do cDonts e no response.write, o problema esta na hora de ir para o bd ai q eu não sei o que pode estar errado.

Se souber de algo que realmente possa me ajudar agradeço muito.

Abraço

Ricardo

[mariofdf]

Tente escrever a data assim:

mData = month(date)&"/"&day(date)&"/"&year(date)

Se não der certo poste ai que te passo uma função para corrigir.

[dark0]

Amigo,

Estamos falando de Data, certo?

você diz que a data aparece correta na tela, certo?

Mas ela fica errada, ao gravar no banco, certo?

Bom..

então, vamos lá:

Como está definido o campo do seu banco, onde a data fica armazenada?

Ele esta definido como Date , ou como Texto?

Pode ser alguma coisa assim..

Pois se o campo for Texto, e você gravar nele, provavelmente irá funcionar sem problemas!

Pois, tratando-se de string, você faz o que quiser com elas.. ou seja, como você gravar, ela vai ser gravada!

Já data não.. essa tem padrão para gravar..

[fertel]

Gente, aproveitando este tópico quero acrescentar minha dúvida, que quando vou gravar datas no bd que está com o campo configurado para data mesmo, se por acaso o campo de onde eu recolho a informação da data estiver vazio, ele dá um erro. Mesmo dizendo no bd que o campo não é requerido.

Ex.: data = request.form("data")

'Se por acaso o usuário não preencher dá erro na gravação.

E como fazer pesquisa, utilizo o "LIKE" e não tem retornado nada.

Agradeço