Problemas com Data 2

RODriGuinho BS · Novembro 18, 2005

Eu tenhu um questionário ond ele estah dando erro pq naum consegue converter o dado de Char pra Datetime.

Ai eu descobri q o problema eh no campo da data do aniversario...

Colocando no formato do Brasil (dd/mm/yyyy) ele dah o erro, mas s utilizo do formato americano (mm/dd/yyyy) ele funciona.

Bem, acabei descobrindo o Session.LCDI = 1046...

Q naum mudou em nada...

O codigo eh assim...

<%@LANGUAGE="VBSCRIPT"%>

<% Session.LCID = 1046 %>

<%

Response.Buffer = True

Response.ExpiresAbsolute = Now() - 1

Response.Expires = 0

Response.CacheControl = "no-cache"

%>



<%

' *** Edit Operations: declare variables

Dim MM_editAction

Dim MM_abortEdit

Dim MM_editQuery

Dim MM_editCmd

Dim MM_editConnection

Dim MM_editTable

Dim MM_editRedirectUrl

Dim MM_editColumn

Dim MM_recordId

Dim MM_fieldsStr

Dim MM_columnsStr

Dim MM_fields

Dim MM_columns

Dim MM_typeArray

Dim MM_formVal

Dim MM_delim

Dim MM_altVal

Dim MM_emptyVal

Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))

If (Request.QueryString <> "") Then

MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)

End If

' boolean to abort record edit

MM_abortEdit = false

' query string to execute

MM_editQuery = ""

%>

<%

' *** Insert Record: set variables

If (CStr(Request("MM_insert")) = "form_quest") Then

MM_editConnection = MM_conCRM_STRING

MM_editTable = "dbo.pessoa"

MM_editRedirectUrl = "OKQuestEMMAT2006.asp"

MM_fieldsStr = "ID_pessoa|value|ID_questionario|value|nome_aluno|value|sexo_aluno|value|dat

a_nasc_aluno|value|endereco_aluno|value|num_end_aluno|value|complem_end_aluno|va

lue|bairro_aluno|value|cep_aluno|value|endereco_pais|value|estado_aluno|value|ci

dade_aluno|value|fone1|value|fone2|value|pessoa_rg|value|pessoa_cpf|value|email_

aluno|value|curso_aluno|value|serie|value|ult_escola_estudou|value|anos_reprovad

os|value|opcao|value|qual|value|porque_saiu|value|horarios_estudo|value|porque|v

alue|resp_acad_aluno|value|nome_resp_acad_aluno|value|nome_pai|value|profissao_p

ai|value|rg_pai|value|cpf_pai|value|email_pai|value|telefone_pai|value|religiao_

pai|value|escolaridade_pai|value|idade_pai|value|nome_mae|value|profissao_mae|va

lue|rg_mae|value|cpf_mae|value|email_mae|value|telefone_mae|value|religiao_mae|v

alue|escolaridade_mae|value|idade_mae|value|situacao_conjugal_pais|value|quem_al

uno_reside|value|num_irmaos|value|nome_irmao1|value|serie_irmao1|value|nome_irma

o2|value|serie_irmao2|value|nome_irmao3|value|serie_irmao3|value|resp_financeiro

|value|nome_resp_financ|value|rg_resp_financ|value|cpf_resp_financ|value|email_p

ai2|value|end_resp_financ|value|numero_resp_financ|value|bairro_resp_financ|valu

e|cidade_resp_financ|value|cep_resp_financ|value|estado_resp_financ|value|telefo

ne_resp_financ|value|telefone_aluno32|value|dificuldades|value|outras_dificuldad

es|value|Possui_restricao|value|alergico|value|tipo_alergia|value|doenca_cuidado

s|value|tipo_doenca|value|medicacao|value|tipo_medicacao|value|remedio_dor|value

|nome_acidente|value|parentesco_acidente|value|telefone_acidente|value|celular_a

cidente|value|hospital|value|tipo_convenio|value|num_convenio|value|data_validad

e_convenio|value|religiao_aluno|value|praticante|value|igreja_frequenta|value|no

me_pastor|value|droga|value|tipo_droga|value|cigarro|value|bebida|value|escolha_

estudar|value|porque_unasp|value|Raca|value"

MM_columnsStr = "ID_pessoa|',none,''|ID_questionario|',none,''|cNome|',none,''|lSexomasculino|none,1,0|dDtNasc|',none,NULL|cEndereco|',none,''|cEndereco_num|',none,''|cEndereco_complemento|',none,''|cEndereco_bairro|',none,''|cEndereco_CEP|',none,''|cEndereco_pais|',none,''|cEndereco_estado|',none,''|cEndereco_cidade|',none,''|cFone1|',none,''|cFone2|',none,''|cPessoa_RG|',none,''|cPessoa_CPF|',none,''|cEmail|',none,''|cCurso_pretendido|',none,''|cSerie_pretendida|',none,''|cUltima_escola|',none,''|iAnos_reprovados|none,none,NULL|lInternato_anterior|none,1,0|cInternato_ant

erior_nome|',none,''|cMotivo_saida_internato|',none,''|lPossui_horario_estudo|none,1,0|cPossui_horario_estudo_porque|',none,''|cQuem_respos_acomp_escolar|',none,''|cQuem_respos_acomp_escolar_nome|',none,''|cPai_nome|',none,''|cPai_Profissao|',none,''|cPai_RG|',none,''|cPai_CPF|',none,''|cPai_Email|',none,''|cPai_telefone|',none,''|cPai_religiao|',none,''|cPai_grau_instrucao|',none,''|iPai_idade|none,none,NULL|cMae_nome|',none,''|cMae_profissao|',none,''|cMae_RG|',none,''|cMae_CPF|',none,''|cMae_email|',none,''|cMae_telefone|',none,''|cMae_religiao|',none,''|cMae_grau_instrucao|',none,''|iMae_idade|none,none,NULL|cSituacao_conjulgal_pais|',none,''|cComQue_Aluno_mora|',none,''|iQuant_irmaos|none,none,NULL|cIrmao_nome1|',none,''|cIrmao_serie1|',none,''|cIrmao_nome2|',none,''|cIrmao_serie2|',none,''|cIrmao_nome3|',none,''|cIrmao_serie3|',none,''|cQuemResponsavelFinanceiro|',none,''|cRespFin_nome|',none,''|cRespFin_RG|',none,''|cRespFin_CPF|',none,''|cRespFin__email|',none,''|cRespFin_Endereco|',none,''|cRespFin_endereco_numero|',none,''|cRespFin_bairro|',none,''|cRespFin_cidade|',none,''|cRespFin_cep|',none,''|cRespFin_estado|',none,''|cRespFin_telefone|',none,''|cRespFin_celular|',none,''|cDificuldade_visao|none,1,0|cProblemas_outros|',none,''|lRestricao_exercicio|none,1,0|lAlergico|none,1,0|cAlergico_obs|',none,''|lDoenca_cuidados_especiais|none,1,0|cDoenca_cuidados_especiais_obs|',none,''|lMedicacao_uso_continuo|none,1,0|cMedicacao_uso_continuo_obs|',none,''|cMedicamento_febre_dor_cabeca|',none,''|cCaso_acidente_avisar_nome|',none,''|cCaso_acidente_parentesco|',none,''|cCaso_acidente_fone|',none,''|cCaso_acidente_celular|',none,''|cCaso_acidente_hospital_nome|',none,''|cConvenio_saude_nome|',none,''|cConvenio_NumCarteira|',none,''|dConvenio_DTValidade|',none,NULL|cReligiao_nome|',none,''|cReligicao_praticante|none,1,0|cIASD_Igreja_nome|',none,''|cIASD_pastor_nome|',none,''|lJa_usou_drogas|none,1,0|cJa_usou_drogas_qual|',none,''|lJa_fumou|none,1,0|lJa_bebeu|none,none,NULL|lEstuda_por_vontade_propria|non

e,1,0|cPor_que_escolheu_UNASP|',none,''|cPessoa_Raca|',none,''"

' create the MM_fields and MM_columns arrays

MM_fields = Split(MM_fieldsStr, "|")

MM_columns = Split(MM_columnsStr, "|")

' set the form values

For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2

MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))

Next

' append the query string to the redirect URL

If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then

If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then

MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString

Else

MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString

End If

End If

End If

%>

<%

' *** Insert Record: construct a sql insert statement and execute it

Dim MM_tableValues

Dim MM_dbValues

If (CStr(Request("MM_insert")) <> "") Then

if Session("Cadastrado") = Session("Protocolo") then Response.Redirect("ERROQuestEMMAT2006.asp")

' create the sql insert statement

MM_tableValues = ""

MM_dbValues = ""

For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2

MM_formVal = MM_fields(MM_i+1)

MM_typeArray = Split(MM_columns(MM_i+1),",")

MM_delim = MM_typeArray(0)

If (MM_delim = "none") Then MM_delim = ""

MM_altVal = MM_typeArray(1)

If (MM_altVal = "none") Then MM_altVal = ""

MM_emptyVal = MM_typeArray(2)

If (MM_emptyVal = "none") Then MM_emptyVal = ""

If (MM_formVal = "") Then

MM_formVal = MM_emptyVal

Else

If (MM_altVal <> "") Then

MM_formVal = MM_altVal

ElseIf (MM_delim = "'") Then ' escape quotes

MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"

Else

MM_formVal = MM_delim + MM_formVal + MM_delim

End If

End If

If (MM_i <> LBound(MM_fields)) Then

MM_tableValues = MM_tableValues & ","

MM_dbValues = MM_dbValues & ","

End If

MM_tableValues = MM_tableValues & MM_columns(MM_i)

MM_dbValues = MM_dbValues & MM_formVal

Next

MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

response.write (MM_editQuery)

If (Not MM_abortEdit) Then

' execute the insert

Set MM_editCmd = Server.CreateObject("ADODB.Command")

MM_editCmd.ActiveConnection = MM_editConnection

MM_editCmd.CommandText = MM_editQuery

MM_editCmd.Execute

MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl <> "") Then

Session("Cadastrado") = Session("Protocolo")

Response.Redirect(MM_editRedirectUrl)

End If

End If

End If

%>

<html>

<head>

<title>UNASP - Matrícula de alunos 2006</title>

<style type="text/css">

body {

margin-left: 0px;

margin-top: 0px;

margin-right: 0px;

margin-bottom: 0px;

background-color: #FFFFFF;

}

.style1 {

font-family: Verdana, Arial, Helvetica, sans-serif;

font-weight: bold;

color: #666666;

font-size: 12px;

text-transform: uppercase;

}

.numprotocolo {

font-family: Verdana, Arial, Helvetica, sans-serif;

font-size: 14px;

font-weight: bold;

color: #014274;

}

.style2 {

font-family: Verdana, Arial, Helvetica, sans-serif;

font-weight: bold;

font-size: 12px;

}

</style>

<script language="JavaScript">

/***

* Descrição.: formata um campo do formulário de

* acordo com a máscara informada...

* Parâmetros: - objForm (o Objeto Form)

* - strField (string contendo o nome

* do textbox)

* - sMask (mascara que define o

* formato que o dado será apresentado,

* usando o algarismo "9" para

* definir números e o símbolo "!" para

* qualquer caracter...

* - evtKeyPress (evento)

*

* Uso.......: <input type="textbox"

* name="xxx".....

* onkeypress="return txtBoxFormat(document.rcfDownload, 'str_cep', '99999-999', event);">

* Observação: As máscaras podem ser representadas

* como os exemplos abaixo:

* CEP -> 99999-999

* CPF -> 999.999.999-99

* CNPJ -> 99.999.999/9999-99

* C/C -> 999999-!

* Tel -> (99) 9999-9999

***/

function txtBoxFormat(objForm, strField, sMask, evtKeyPress) {

var i, nCount, sValue, fldLen, mskLen,bolMask, sCod, nTecla;

if(document.all) { // Internet Explorer

nTecla = evtKeyPress.keyCode; }

else { // Nestcape

nTecla = evtKeyPress.which;

}

sValue = objForm[strField].value;

// Limpa todos os caracteres de formatação que

// já estiverem no campo.

sValue = sValue.toString().replace( "-", "" );

sValue = sValue.toString().replace( "-", "" );

sValue = sValue.toString().replace( ".", "" );

sValue = sValue.toString().replace( ".", "" );

sValue = sValue.toString().replace( "/", "" );

sValue = sValue.toString().replace( "/", "" );

sValue = sValue.toString().replace( "(", "" );

sValue = sValue.toString().replace( "(", "" );

sValue = sValue.toString().replace( ")", "" );

sValue = sValue.toString().replace( ")", "" );

sValue = sValue.toString().replace( " ", "" );

sValue = sValue.toString().replace( " ", "" );

fldLen = sValue.length;

mskLen = sMask.length;

i = 0;

nCount = 0;

sCod = "";

mskLen = fldLen;

while (i <= mskLen) {

bolMask = ((sMask.charAt(i) == "-") || (sMask.charAt(i) == ".") || (sMask.charAt(i) == "/"))

bolMask = bolMask || ((sMask.charAt(i) == "(") || (sMask.charAt(i) == ")") || (sMask.charAt(i) == " "))

if (bolMask) {

sCod += sMask.charAt(i);

mskLen++; }

else {

sCod += sValue.charAt(nCount);

nCount++;

}

i++;

}

objForm[strField].value = sCod;

if (nTecla != 8) { // backspace

if (sMask.charAt(i-1) == "9") { // apenas números...

return ((nTecla > 47) && (nTecla < 58)); } // números de 0 a 9

else { // qualquer caracter...

return true;

} }

else {

return true;

}

}

 Fim

</SCRIPT>

<%

Function getPessoaID()

dim numrandom

dim codigo

' Tenta não permitir q o cara cadastra com o mesmo codigo quando refresh....

if Session("Protocolo") <> "" then

response.Redirect("QuestEMMAT2006.asp" )

end if

Randomize

numrandom = Int((999999 - 1) * RND + 1) - second(now) + hour(now) - minute(now)

codigo = Right(cstr(year(now)),1) + cstr(month(now)) + cstr(day(now)) + cstr(numrandom)

Session("Protocolo") = left(codigo,10)

getPessoaID = left(codigo,10)

End Function

%>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<meta http-equiv="Expires" CONTENT="0">

<meta http-equiv="Cache-Control" CONTENT="no-cache">

<meta http-equiv="Pragma" CONTENT="no-cache">

</head>

<%

if Session("Questionario") <> "" then

%>

<body>

Ratu · Novembro 18, 2005

Bom cara eu naum li seu codigo... mas jah aconteceu este problema comigo, entaum vou lhe explicar como resolvi:

vou colocar um exemplo de insert

sql="insert into tbl (data) values (convert,'"&data_formato_brasileiro&"',103)"

com a funcao convert ele insere certinho

nota, na hora de fazer o select para retornar os dados para o usuario ele traz no formato americano mm/dd/aaaa, entaum você tem q fazer o remanejamento da string!

falow! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Entrar

Arquivado

Problemas com Data 2

Recommended Posts

RODriGuinho BS 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ratu 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante