Problemas Com Datas No Asp + Sql Server

[acfelipesilva]

Olá gente,

Meu problema é o seguinte tenho um formulário ASP onde gravo e consulto datas, porém quando estou com problemas na hora de consulta e alterar qualquer dado do meu formulário, dá um erro...

Gostaria que o usuário no momento que fosse digitar para gravr ou consultar a data, a mesma fosse mostrada no formato brasileiro, porém no banco SQL Server continuasse a formatação america, ou seja:

CONSULTA, ALTERAR, GRAVAR NO FORMULÁRIO: DD-MM-AAAA

NO Banco de dados SQL Server FICARIA AAAA-MM-DD.

Como faço isso? Sempre post algumas dúvidas aqui e nunca consigo respostas, será que dessa vez vai...

Grato a todos,

Vou postar o código para ver se ajuda, ok!

<%

Dim UserID, wUserName, wDominio, wUser, oUser

UserID = ""

If IsEmpty(UserID) Or IsNull(UserID) Or UserID = "" Then

UserID = Request.ServerVariables("LOGON_USER")

UserID = LCase(UserID)

If IsEmpty(UserID) Or IsNull(UserID) Or UserID = "" Then

Response.Status = "401 Acesso Negado"

Response.Write ("Negado. Você não está autorizado a este site.")

Response.End

Else

UserID = Replace(UserID, "\", "/")

If InStr(UserID, "/") < 1 Then

UserID = "defaultdomain/" & UserID

End If

End If

End If

GetName = ""

wUserName = "Usuário não cadastrado"

mudar = Split(UserID, "/")

wDominio = mudar(0)

wUser = mudar(1)

Set oUser = GetObject("WinNT://" & wDominio & "/" & wUser)

wUserName = oUser.FullName

If err.Number <> 0 Then

err.Clear

wUserName = "erro - Usuário não cadastrado"

End If

Session("UsuarioLogado") = wUserName

Session("Login") = UCase(wUser)

Session("Dominio") = UCase(wDominio)

sug_dominio = UCase(wDominio)

login = UCase(wUser)

sisid="1"

on error resume next

Response.Expires=0

Response.Buffer = TRUE

Response.Clear

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)

Dim UploadRequest

Dim clipConexao , clipSql, DataNot, ano, mês, dia, foto, foto1, n, Assunto, Manchete, Fonte, Noticia

dim ID_ARQ,ID_TIPOARQ

dim doc_nom,doc_caminho

dim materia

dim tipo_doc

Set UploadRequest = CreateObject("Scripting.Dictionary")

BuildUploadRequest RequestBin

'1

fileEndereco = UploadRequest.Item("endereco").Item("Value")

fileCidade = UploadRequest.Item("cidade").Item("Value")

fileUf = UploadRequest.Item("Uf").Item("Value")

fileCep = UploadRequest.Item("cep").Item("Value")

filetel= UploadRequest.Item("tel").Item("Value")

'2

fileOrigem = UploadRequest.Item("origem").Item("Value")

filenumcontrato = UploadRequest.Item("numcontrato").Item("Value")

filedirger = UploadRequest.Item("dirger").Item("Value")

filegereg = UploadRequest.Item("gereg").Item("Value")

fileAgencia = UploadRequest.Item("agencia").Item("Value")

filejurisdicao = UploadRequest.Item("jurisdicao").Item("Value")

fileAdv = UploadRequest.Item("Adv").Item("Value")

fileIniciovig = UploadRequest.Item("iniciovig").Item("Value")'DATA DE INICIO

if fileIniciovig="" then

fileIniciovig= "17530101"

else

fileInciovig = UploadRequest.Item("iniciovig").Item("Value")

'fileIniciovig= right(fileIniciovig,4) & right(left( fileIniciovig ,5 ),2) & left(fileIniciovig ,2 )

end if

fileFimvig = UploadRequest.Item("fimvig").Item("Value") 'DATA FINAL

if fileFimvig="" then

fileFimvig= "17530101"

else

fileFimvig = UploadRequest.Item("fimvig").Item("Value")

'fileFimvig= right(fileFimvig,4) & right(left( fileFimvig ,5 ),2) & left(fileFimvig,2 )

end if

fileObjtext = UploadRequest.Item("objtext").Item("Value")

filedtastatus = UploadRequest.Item("dtastatus").Item("Value")

if filegereg= "" then

filegereg="0"

end if

if fileAgencia= "" then

fileAgencia="0"

end if

'criando a variavel de comnexao

set objCmm = CreateObject("ADODB.Connection")

'criando a variavel do recordset

set sqlC = server.CreateObject("ADODB.Recordset")

'fazer a minha variavel de conexao receber a conexao do global asa

objCmm.Open Application("strConn")

'sql = "exec spt_incluirTerceirizado '" & doc_nom & "','" & filepathname2 & "','" & materia & "','" & assunto & "','" & doc_caminho & "'"

if filedirger = "" then

filedirger="0"

end if

if filegereg = "" then

filegereg="0"

end if

if fileAgencia = "" then

fileAgencia="0"

end if

if filejurisdicao="" then

filejurisdicao= "0"

end if

sql = "exec sp_IncluirCtrTerceiro '" & login & "'," & fileAdv & ",'" & filenumcontrato & "','" & fileOrigem & "','" & filedirger & "' ,'" & filegereg & "'," & fileAgencia & ",'" & filejurisdicao &"','" & fileObjtext & "','" & fileIniciovig & "','" & fileFimvig &"','" & filedtastatus & "'"

'Tratando erros

' Response.Write "Número do erro: " & fileIniciovig & "<BR>"

' Response.Write "Número do erro: " & fileFimvig & "<BR>"

' Response.End()

SET sqlC = objCmm.Execute (sql)

if objCmm.Errors.Count <> 0 then

Response.Write "Ocorreu um erro nesta página!<BR>"

Response.Write "Número do erro: " & Err.number & "<BR>"

Response.Write "Descrição fornecida: " & Err.Description & "<BR>"

mensagem = "Erro na Inclusão!"

else

mensagem = "Operação com Sucesso"

end if

objCmm.Close()

set objCmm=nothing

%>

<!--#include file="upload.asp"-->

<script LANGUAGE=javascript>

<!--

alert("<%=mensagem%>");

window.open("cadastroterceirizado.asp","_self");

-->

</SCRIPT>

[.Andreia.]

Modifique isso na visualização da consulta, por exemplo, pra visualizar no formato DD-MM-AAAA:

select convert(varchar, data,103) [Data] from tabela