Fórum Contato
  
   O portal do desenvolvedor ASP Quinta-feira - 5 de Agosto de 2021  
Busca

Menu do site
Efetuar Login
Usuário:

Senha:

 Esqueceu a senha?
Login automático

 Cadastre-se
 Fóruns   Meu cadastro   Meu perfil   Ranking de usuários 

 FórumProgramaçãoErros Responder mensagem 

 Erro da Inserção de dados usando ASP - ERROR CONVERTING DATA TYPE VARCHAR TO DATETIME Atualizado em 24/07/2007 ás 17:06:00

Postado em 24/07/2007 ás 17:06:00

Olá Gente,


Depois de muito bater cabeça acho que achei o problema da minha página de inclusão e atualização de dados, porém apareceu um novo erro, só que acho que agora vocês poderão me ajudar desta vez...


Vou postar a procedure e a página insere_cadastrao.asp, para que seja verificado o possível erro, ok..


Alguém conseguirá resolver isso? Grato,


Mensagem de erro:


-2147217913
ERROR CONVERTING DATA TYPE VARCHAR TO DATETIME


-------------------------------------------// ---------------------------------------// ----------------------------


Procedure que estou utilizando


ALTER procedure dbo.sp_IncluirCtrTerceiro     
     
 @Login varchar (50),     
 @numAdv_codigo int,      
 @numAdv_contrato varchar(50),     
 @vchAdv_OriCon varchar (50) ,     
 @vchAdv_GesDir int,     
 @vchAdv_GesGer int,     
 @vchAdv_GesAg int ,     
 @vchAdv_Jurisdicao varchar(50),      
 @vchAdv_Obj varchar (50) = null    ,  
 @vchAdv_DatIni datetime = '17530101',     
 @vchAdv_DatFim datetime = '17530101',      
 @statusctr varchar (50)  
      
as     
     
set nocount on     
declare  @dtmAdv_datuma datetime      ,@vchAdv_Sta varchar (50)
         
set @dtmAdv_datuma=getdate()


IF @vchAdv_DatFim > @dtmAdv_datuma
BEGIN
  SET @statusctr = 'ATIVO'
END
ELSE
 IF @vchAdv_DatFim < @dtmAdv_datuma
 BEGIN
  SET @statusctr = 'ENCERRADO'
END


   
if  not exists  (select * from tbAdvogado where numAdv_codigo=@numAdv_codigo and numAdv_contrato=@numAdv_contrato)     
begin     
 BEGIN TRAN      
 insert into tbAdvogado(numAdv_codigo,numAdv_contrato,vchAdv_OriCon,vchAdv_GesDir,vchAdv_GesGer,vchAdv_GesAg,vchAdv_DatIni,vchAdv_DatFim,vchAdv_Obj,vchAdv_Sta,dtmAdv_datuma,vchAdv_Jurisdicao,statusctr)     
 values(@numAdv_codigo,@numAdv_contrato,@vchAdv_OriCon,@vchAdv_GesDir,@vchAdv_GesGer,@vchAdv_GesAg,@vchAdv_DatIni,@vchAdv_DatFim,@vchAdv_Obj,@vchAdv_Sta,@dtmAdv_datuma,@vchAdv_Jurisdicao,@statusctr)     
if @@error=0           
  begin      
    insert into tbMov_Advogado(numAdv_codigo,numAdv_contrato,vchAdv_OriCon,vchAdv_GesDir,vchAdv_GesGer,vchAdv_GesAg,vchAdv_DatIni,vchAdv_DatFim,vchAdv_Obj,vchAdv_Sta,vchAdv_Login,dtmAdv_datuma,vchAdv_Jurisdicao,statusctr)        values(@numAdv_codigo,@numAdv_contrato,@vchAdv_OriCon,@vchAdv_GesDir,@vchAdv_GesGer,@vchAdv_GesAg,@vchAdv_DatIni,@vchAdv_DatFim,@vchAdv_Obj,@vchAdv_Sta,@login,@dtmAdv_datuma,@vchAdv_Jurisdicao,@statusctr)     
   if @@error=0           
     begin      
       commit tran     
     end      
   else     
     begin     
       rollback     
     end     
   end     
   else     
     begin     
       rollback     
     end     
   end     
else     
  begin     
    BEGIN TRAN     
        update  tbAdvogado     
             set  vchAdv_OriCon=@vchAdv_OriCon     
 ,vchAdv_GesDir=@vchAdv_GesDir     
 ,vchAdv_GesGer=@vchAdv_GesGer     
 ,vchAdv_GesAg=@vchAdv_GesAg     
 ,vchAdv_DatIni=@vchAdv_DatIni     
 ,vchAdv_DatFim=@vchAdv_DatFim     
 ,vchAdv_Obj=@vchAdv_Obj     
 ,vchAdv_Sta=@vchAdv_Sta     
 ,dtmAdv_datuma=@dtmAdv_datuma     
 ,vchAdv_Jurisdicao=@vchAdv_Jurisdicao
 ,statusctr=@statusctr         
 where numAdv_codigo=@numAdv_codigo and      
 numAdv_contrato=@numAdv_contrato     
 if @@error=0           
    begin      
       insert into tbMov_Advogado                        (numAdv_codigo,numAdv_contrato,vchAdv_OriCon,vchAdv_GesDir,vchAdv_GesGer,vchAdv_GesAg,vchAdv_DatIni,vchAdv_DatFim,vchAdv_Obj,vchAdv_Sta,vchAdv_Login,dtmAdv_datuma,vchAdv_Jurisdicao,statusctr)        values(@numAdv_codigo,@numAdv_contrato,@vchAdv_OriCon,@vchAdv_GesDir,@vchAdv_GesGer,@vchAdv_GesAg,@vchAdv_DatIni,@vchAdv_DatFim,@vchAdv_Obj,@vchAdv_Sta,@login,@dtmAdv_datuma,@vchAdv_Jurisdicao,@statusctr)     
   if @@error=0           
      begin      
         commit tran     
      end      
  else     
      begin     
        rollback     
      end     
   end     
 else     
     begin     
       rollback     
    end     
end     
     
------------------------------------------------- // ---------------------------------------------- // ------------------------------------


Página  insere.asp


<%

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, mes, 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



'CAMINHO FÍSICO DA INSERÇÃO DO ARQUIVO
'pasta= (server.mappath("\"))& "\portaljuridico\arquivos\"
'TIPO DO ARQUIVO(WORD,FOTO)
'contentType = UploadRequest.Item("foto").Item("ContentType")
'CAMINHO FÍSICO COMPLETO DO ARQUIVO
'pega o valor do documento
'filepathname2 = UploadRequest.Item("agencia").Item("Value")
'0


'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")
if fileIniciovig="" then
fileIniciovig= "17530101"
else
fileIniciovig= right(fileIniciovig,4) & right(left( fileIniciovig ,5 ),2) & left(fileIniciovig ,2 )
end if


fileFimvig = UploadRequest.Item("fimvig").Item("Value")
if fileFimvig="" then
fileFimvig= "17530101"
else
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")


'Pega o valor do código do tipo de arquivo no formulario
'filepathname = UploadRequest.Item("foto").Item("FileName")
'materia = UploadRequest.Item("materia").Item("Value")
'assunto = UploadRequest.Item("assunto").Item("Value")

'Response.Write "Endereco: " & fileEndereco & fileAdv& "
"
'Response.Write "Cidade: " & fileCidade & "
"
'Response.Write "Uf: " & fileUf & "
"
'Response.Write "cep: " & fileCep & "
"
'Response.Write "Tel: " & filetel & "
"
'Response.Write "--------------- Formulario 2 -----------
"

'Response.Write "Origem: " & fileOrigem & "
"
'Response.Write "Numero do contrato: " & filenumcontrato & "
"
'Response.Write "Diretriz: " & filedirger & "
"
'Response.Write "Gereg: " & filegereg & "
"
'Response.Write "Agencia: " & fileAgencia & "
"
'Response.Write "Jurisdicao: " & filejurisdicao & "
"
'Response.Write "Jurisdicao: " & filejurisdicao & "
"
' Response.write fileObjtext & "','"& fileIniciovig & "','" & fileFimvig &"'"
'Response.end

if filegereg= "" then
filegereg="0"
end if
if fileAgencia= "" then
fileAgencia="0"
end if

'if fileJurisdicao = "" then
'fileJurisdicao="0"
'end if


'teste
'Response.end


'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 & "'"



'Response.Write sql
'Response.end






SET sqlC = objCmm.Execute (sql)
ifobjCmm.Errors.Count <> 0 then
Response.Write "Ocorreu um erro nesta página!
"
Response.Write "Número do erro: " & Err.number & "
"
Response.Write "Descrição fornecida: " & Err.Description & "
"
mensagem = "Erro na Inclusão!"
else
mensagem = "Operação com Sucesso"
end if

objCmm.Close()
set objCmm=nothing
'mensagem = "Operação com Sucesso"
'end if





'End If


%>

<%

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, mes, 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



'CAMINHO FÍSICO DA INSERÇÃO DO ARQUIVO
'pasta= (server.mappath("\"))& "\portaljuridico\arquivos\"
'TIPO DO ARQUIVO(WORD,FOTO)
'contentType = UploadRequest.Item("foto").Item("ContentType")
'CAMINHO FÍSICO COMPLETO DO ARQUIVO
'pega o valor do documento
'filepathname2 = UploadRequest.Item("agencia").Item("Value")
'0


'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")
if fileIniciovig="" then
fileIniciovig= "17530101"
else
fileIniciovig= right(fileIniciovig,4) & right(left( fileIniciovig ,5 ),2) & left(fileIniciovig ,2 )
end if


fileFimvig = UploadRequest.Item("fimvig").Item("Value")
if fileFimvig="" then
fileFimvig= "17530101"
else
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")


'Pega o valor do código do tipo de arquivo no formulario
'filepathname = UploadRequest.Item("foto").Item("FileName")
'materia = UploadRequest.Item("materia").Item("Value")
'assunto = UploadRequest.Item("assunto").Item("Value")

'Response.Write "Endereco: " & fileEndereco & fileAdv& "
"
'Response.Write "Cidade: " & fileCidade & "
"
'Response.Write "Uf: " & fileUf & "
"
'Response.Write "cep: " & fileCep & "
"
'Response.Write "Tel: " & filetel & "
"
'Response.Write "--------------- Formulario 2 -----------
"

'Response.Write "Origem: " & fileOrigem & "
"
'Response.Write "Numero do contrato: " & filenumcontrato & "
"
'Response.Write "Diretriz: " & filedirger & "
"
'Response.Write "Gereg: " & filegereg & "
"
'Response.Write "Agencia: " & fileAgencia & "
"
'Response.Write "Jurisdicao: " & filejurisdicao & "
"
'Response.Write "Jurisdicao: " & filejurisdicao & "
"
' Response.write fileObjtext & "','"& fileIniciovig & "','" & fileFimvig &"'"
'Response.end

if filegereg= "" then
filegereg="0"
end if
if fileAgencia= "" then
fileAgencia="0"
end if

'if fileJurisdicao = "" then
'fileJurisdicao="0"
'end if


'teste
'Response.end


'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 & "'"



'Response.Write sql
'Response.end






SET sqlC = objCmm.Execute (sql)
ifobjCmm.Errors.Count <> 0 then
Response.Write "Ocorreu um erro nesta página!
"
Response.Write "Número do erro: " & Err.number & "
"
Response.Write "Descrição fornecida: " & Err.Description & "
"
mensagem = "Erro na Inclusão!"
else
mensagem = "Operação com Sucesso"
end if

objCmm.Close()
set objCmm=nothing
'mensagem = "Operação com Sucesso"
'end if





'End If


%><% <%

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, mes, 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



'CAMINHO FÍSICO DA INSERÇÃO DO ARQUIVO
'pasta= (server.mappath("\"))& "\portaljuridico\arquivos\"
'TIPO DO ARQUIVO(WORD,FOTO)
'contentType = UploadRequest.Item("foto").Item("ContentType")
'CAMINHO FÍSICO COMPLETO DO ARQUIVO
'pega o valor do documento
'filepathname2 = UploadRequest.Item("agencia").Item("Value")
'0


'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")
if fileIniciovig="" then
fileIniciovig= "17530101"
else
fileIniciovig= right(fileIniciovig,4) & right(left( fileIniciovig ,5 ),2) & left(fileIniciovig ,2 )
end if


fileFimvig = UploadRequest.Item("fimvig").Item("Value")
if fileFimvig="" then
fileFimvig= "17530101"
else
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")


'Pega o valor do código do tipo de arquivo no formulario
'filepathname = UploadRequest.Item("foto").Item("FileName")
'materia = UploadRequest.Item("materia").Item("Value")
'assunto = UploadRequest.Item("assunto").Item("Value")

'Response.Write "Endereco: " & fileEndereco & fileAdv& "
"
'Response.Write "Cidade: " & fileCidade & "
"
'Response.Write "Uf: " & fileUf & "
"
'Response.Write "cep: " & fileCep & "
"
'Response.Write "Tel: " & filetel & "
"
'Response.Write "--------------- Formulario 2 -----------
"

'Response.Write "Origem: " & fileOrigem & "
"
'Response.Write "Numero do contrato: " & filenumcontrato & "
"
'Response.Write "Diretriz: " & filedirger & "
"
'Response.Write "Gereg: " & filegereg & "
"
'Response.Write "Agencia: " & fileAgencia & "
"
'Response.Write "Jurisdicao: " & filejurisdicao & "
"
'Response.Write "Jurisdicao: " & filejurisdicao & "
"
' Response.write fileObjtext & "','"& fileIniciovig & "','" & fileFimvig &"'"
'Response.end

if filegereg= "" then
filegereg="0"
end if
if fileAgencia= "" then
fileAgencia="0"
end if

'if fileJurisdicao = "" then
'fileJurisdicao="0"
'end if


'teste
'Response.end


'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 & "'"



'Response.Write sql
'Response.end






SET sqlC = objCmm.Execute (sql)
ifobjCmm.Errors.Count <> 0 then
Response.Write "Ocorreu um erro nesta página!
"
Response.Write "Número do erro: " & Err.number & "
"
Response.Write "Descrição fornecida: " & Err.Description & "
"
mensagem = "Erro na Inclusão!"
else
mensagem = "Operação com Sucesso"
end if

objCmm.Close()
set objCmm=nothing
'mensagem = "Operação com Sucesso"
'end if





'End If


%>
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, mes, 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
  
 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")
 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")
 if fileIniciovig="" then
  fileIniciovig= "17530101"
    else
  fileIniciovig= right(fileIniciovig,4) &   right(left( fileIniciovig ,5 ),2) & left(fileIniciovig ,2 )
    end if  
 
 fileFimvig =  UploadRequest.Item("fimvig").Item("Value")
 if fileFimvig="" then
  fileFimvig= "17530101"
    else
  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
 
set objCmm = CreateObject("ADODB.Connection")
set sqlC  = server.CreateObject("ADODB.Recordset")
objCmm.Open     Application("strConn")


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 & "'"


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>
 


 


 


 


 


 


 


 


 


 


 


 


 


 


 


 


 


 


 


 


 


 


 


 


 


 


 


 


 


 









SuperASP do Brasil Ltda - contato@superasp.com.br

© 2001/2008 - Superasp do Brasil Ltda. Todos os direitos reservados