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 

  Incorrect syntax near ' / ' Atualizado em 31/07/2007 ás 11:38:00

Postado em 31/07/2007 ás 11:38:00

Olá,


Estou com um problema de inclusão no meu código ASP. Toda vez q tento incluir um registro, no campo número do documento aparece o erro abaixo:


Número do Erro: -2147217900 // Incorrect  syntax  near ' / ' .


Utilizo banco de dados SQL Server 2000, verifiquei minha stored procedure de inclusao e nao vi nada de errado, o campo esta definido como varchar(50)...O campo deve permitir entrada de caracteres tais como '/', '-', '.' , mas hoje ele não estar permitindo a gravação caso o campo venha preenchido com o caracter especial. Vou postar o código ASP e a SP para vcs olharem, agradeço muito quem poder me ajudar nessa caso... Já li e reli o código e não consigo encontrar o erro... Grato para quem poder me ajudar!


ASP de Inclusão


<%


sql=""
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
 


 '1 --> data de enrtrada
 fileDataent =  UploadRequest.Item("dataent").Item("Value")
 if fileDataent="" then
  fileDataent= "19000101"
    else
  fileDataent= right(fileDataent,4) &   right(left( fileDataent ,5 ),2) & left(fileDataent ,2 )
    end if 
 '2 --> numero do protocolo
 fileNumprotocolo =  UploadRequest.Item("numprotocolo").Item("Value")
 if fileNumprotocolo ="" then
  fileNumprotocolo = 0
 end if
 '3 --> data do protocolo
 fileDataprot =  UploadRequest.Item("dataprot").Item("Value")
 if fileDataprot="" then
  fileDataprot= "19000101"
     else
  fileDataprot= right(fileDataprot,4) &   right(left( fileDataprot ,5 ),2) & left(fileDataprot ,2 )
    end if  
 
 '4    -->Direção Geral:
 fileDirger=  UploadRequest.Item("dirger").Item("Value")
 if fileDirger ="" then
  fileDirger =0
 end if
 '5 --> Gereg
 fileGereg=  UploadRequest.Item("gereg").Item("Value")
 if fileGereg="" then
  fileGereg =0
 end if
 
 '6   --> Agencia
 fileagencia=  UploadRequest.Item("agencia").Item("Value")
 if fileagencia = "" then
  fileagencia =0
 end if
 '7 --> Tipo de documento
 fileTipdoc =  UploadRequest.Item("tipdoc").Item("Value")
 if fileTipdoc = "" then
  fileTipdoc =0
 end if
 '8 --> Numeroc do documento
 fileNumdoc =  UploadRequest.Item("numdoc").Item("Value")
 if fileNumdoc = "" then
  fileNumdoc =0
 end if
 '9 --> Assunto
 fileAssunto =  UploadRequest.Item("assunto").Item("Value")


 '10 --> 'Data de entrada
 fileDataent1 =  UploadRequest.Item("dataent1").Item("Value")
 if fileDataent1="" then
  fileDataent1= "19000101"
    else
  fileDataent1= right(fileDataent1,4) &   right(left( fileDataent1 ,5 ),2) & left(fileDataent1 ,2 )
    end if  
 '11 -->Data de saida
 fileDatsai =  UploadRequest.Item("datsai").Item("Value")
 if fileDatsai="" then
  fileDatsai= "19000101"
    else
  fileDatsai=  right(fileDatsai,4)  &   right(left( fileDatsai ,5 ),2)  & left(fileDatsai ,2 )
    end if   
  
 '12 -->Destino
 fileDestino =  UploadRequest.Item("destino").Item("Value")
 if fileDestino="" then
  fileDestino= "0"
    end if  
 '13 --> Estágio:
 
 fileDestino1=  UploadRequest.Item("destino1").Item("Value")
 if fileDestino1="" then
  fileDestino1= "0"
    end if  
 '14
 fileDatfec=  UploadRequest.Item("datfec").Item("Value")
 if fileDatfec="" then
  fileDatfec= "19000101"
    end if 
 '15 tipo de documento
 fileTipdoc1=  UploadRequest.Item("tipdoc1").Item("Value")
 if fileTipdoc1="" then
  fileTipdoc1= "0"
    end if 
 '16
 fileDesc=  UploadRequest.Item("desc").Item("Value")
 
 filedtmSec_Fecha=UploadRequest.Item("filedtmSec_Fecha").Item("Value")
 if filedtmSec_Fecha="" then
  fileDatfec= "01011900"
    end if 
 
 '17 --> 'Diretriz
 fileDirger1=  UploadRequest.Item("dirger1").Item("Value")
 if fileDirger1="" then
  fileDirger1= "0"
    end if 
 '18 -->'Gereg
 fileGereg1=  UploadRequest.Item("gereg1").Item("Value")
 if fileGereg1="" then
  fileGereg1= "0"
    end if 
   
 '19 -->'Agencia
 fileagencia1=  UploadRequest.Item("agencia1").Item("Value")
 if fileagencia1="" then
  fileagencia1= "0"
    end if 
 '20 --> 'Destino Externo
 fileDestext=  UploadRequest.Item("destext").Item("Value")
 
 '21 --> descrição origem
 fileOrigExt =  UploadRequest.Item("origext").Item("Value")


sql  = "spt_IncluirSecretaria  '" & fileDataent & "','" & fileNumprotocolo & "','" & fileDataprot & "','" & fileDirger & "','" &    fileGereg  & "'," &   fileagencia & ",'" & fileTipdoc & "'," & fileNumdoc & ",'"  & fileAssunto & "','" & fileDataent1 & "','" & fileDatsai & "','" & fileDestino & "','" &  fileDestino1   &  "','" &  fileTipdoc1 & "','" &  fileDesc & "','" &  fileDirger1 & "','" & fileGereg1 & "','" & fileagencia1 & "','"  & filedtmSec_Fecha   & "','" & fileDestext & "','" & session("login") & "','" & fileOrigExt &"'"
 
'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")


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


objCmm.Close()
set objCmm=nothing


%>
<!--#include file="upload.asp"-->
 
<SCRIPT LANGUAGE=javascript>
<!--
  alert("<%=mensagem%>");
  window.open("secretaria.asp","_self");
-->
</SCRIPT>


-----------------------------------------------------------------------------------------------


SP de inclusao


ALTER procedure dbo.spt_IncluirSecretaria                                             
                       
@dtmSec_EntProt varchar(10)                       
,@numSec_NumProt varchar(50)         
,@dtmSec_DatProt varchar(10)                       
,@numSec_OrIntDir int                       
,@numSec_OrIntGer int                       
,@numSec_OrIntAg int                       
,@vchSec_TipDoc varchar(50)
,@numSec_numDoc varchar(50)                       
,@vchSec_Assunto varchar(50)                       
,@dtmSec_EntGer varchar(10)                       
,@dtmSec_SaiGer varchar(10)                       
,@vchSec_DestProt varchar(50)                       
,@vchSec_Estagio varchar(50)                       
,@vchSec_TipDocF varchar(50)                       
,@vchSec_DescFech varchar(50)                       
,@numSec_DestDir int                       
,@numSec_DestGer int                       
,@numSec_DestAg int                       
,@dtmSec_Fecha  varchar(10)                       
,@vchSec_DesExtDes varchar(50)                       
,@login varchar(50)                       
,@vchSec_OriExtDes varchar(50)                       
              
as                       
                 
set nocount on                       
declare  @dtmAdv_datuma datetime ,@vchAdv_Sta varchar (50) ,@numSec_Destino int,@numSec_Origem int                       
DECLARE @intSec_statusCtr INT                           
                       
set @dtmSec_DatProt=  convert(char(10),@dtmSec_DatProt,112)                       
set @dtmSec_EntGer=  convert(char(10),@dtmSec_EntGer,112)                       
set @dtmSec_SaiGer=  convert(char(10),@dtmSec_SaiGer,112)                       
set @dtmSec_Fecha=  convert(char(10),@dtmSec_Fecha,112)                       
               
SET @intSec_statusCtr=0               
 
  set @numSec_Origem=0                                   
           
if @vchSec_OriExtDes <> '' and @vchSec_OriExtDes is not null            
begin                       
  set @numSec_Origem=2                       
end                        
else                       
begin                     
 if @numSec_DestDir<>0 or  @numSec_DestAg<> 0 or @numSec_DestGer<>0                     
  begin                       
      set @numSec_destino=1                       
  end                       
end       
  
if @numSec_OrIntDir<>0 or @numSec_OrIntGer<>0   or @numSec_OrIntAg<>0     
begin 
  set @numSec_Origem=1                       
end 
else 
begin 
 if @vchSec_OriExtDes<> ''     
 begin 
   set @numSec_Origem=2                       
 end 
end  
              
if @vchSec_Estagio='0'               
begin               
  set @vchSec_Estagio='ABERTO'                
               
end               
                 
if (@numSec_OrIntDir<>0 or  @numSec_OrIntGer <> 0 or @numSec_OrIntAg <> 0   ) and (@numSec_NumProt <> '' )     
begin                       
  set @numSec_Destino=2                       
end 
               
if  not exists  (select * from tbSecretaria where convert(char(10),dtmSec_EntProt,112)=@dtmSec_EntProt and  numSec_NumProt=@numSec_NumProt)                               
Begin                               
 --1º Momento               
 set @intSec_statusCtr=1               
 
  BEGIN TRAN                               
  insert into tbSecretaria (dtmSec_EntProt ,numSec_NumProt,dtmSec_DatProt,numSec_Origem,numSec_OrIntDir,numSec_OrIntGer,numSec_OrIntAg ,vchSec_OriExtDes ,vchSec_TipDoc ,numSec_numDoc ,vchSec_Assunto ,dtmSec_EntGer ,dtmSec_SaiGer ,vchSec_DestProt ,vchSec_Estagio ,dtmSec_Fecha  ,vchSec_TipDocF ,vchSec_DescFech ,numSec_Destino,numSec_DestDir ,numSec_DestGer ,numSec_DestAg ,vchSec_DesExtDes ,dtmSec_datuma,intSec_statusCtr )                       
 values(@dtmSec_EntProt,@numSec_NumProt ,@dtmSec_DatProt ,@numSec_Origem ,@numSec_OrIntDir ,@numSec_OrIntGer ,@numSec_OrIntAg ,@vchSec_OriExtDes ,@vchSec_TipDoc ,@numSec_numDoc ,@vchSec_Assunto ,@dtmSec_EntGer ,@dtmSec_SaiGer ,@vchSec_DestProt ,'ABERTO' ,  @dtmSec_Fecha  ,@vchSec_TipDocF ,@vchSec_DescFech ,@numSec_Destino ,@numSec_DestDir ,@numSec_DestGer ,@numSec_DestAg ,@vchSec_DesExtDes ,getdate(),@intSec_statusCtr)                       
   if @@error=0                                
    begin                                
      insert into tbMov_Secretaria(dtmSec_EntProt ,numSec_NumProt,dtmSec_DatProt,numSec_Origem,numSec_OrIntDir,numSec_OrIntGer,numSec_OrIntAg ,vchSec_OriExtDes ,vchSec_TipDoc ,numSec_numDoc ,vchSec_Assunto ,dtmSec_EntGer ,dtmSec_SaiGer ,vchSec_DestProt ,vchSec_Estagio ,dtmSec_Fecha  ,vchSec_TipDocF ,vchSec_DescFech ,numSec_Destino,numSec_DestDir ,numSec_DestGer ,numSec_DestAg ,vchSec_DesExtDes ,      dtmSec_datuma , login ,intSec_statusCtr)                       
      values(@dtmSec_EntProt,@numSec_NumProt ,@dtmSec_DatProt ,@numSec_Origem ,@numSec_OrIntDir ,@numSec_OrIntGer ,@numSec_OrIntAg ,@vchSec_OriExtDes ,@vchSec_TipDoc ,@numSec_numDoc ,@vchSec_Assunto ,@dtmSec_EntGer ,@dtmSec_SaiGer ,@vchSec_DestProt ,'ABERTO'
 
   
    
       
   ,@dtmSec_Fecha  ,@vchSec_TipDocF ,@vchSec_DescFech ,@numSec_Destino ,@numSec_DestDir ,@numSec_DestGer ,@numSec_DestAg ,@vchSec_DesExtDes ,getdate(), @login,@intSec_statusCtr)                       
    if @@error=0                                     
    begin                                
      commit tran                               
    end                                
    else                          
    begin                               
      rollback                               
    end                               
 end                               
 else                               
 begin                               
   rollback                               
 end                         
end                             
else                               


begin                      
 --Outros Momentos (2,3,4)               
 
          if @dtmSec_SaiGer = '19000101' and  @vchSec_DestProt = 0               
             set @intSec_statusCtr = 1
          else
            select @intSec_statusCtr=intSec_statusCtr+1 from tbSecretaria where convert(char(10),dtmSec_EntProt,112)=@dtmSec_EntProt and  numSec_NumProt=@numSec_NumProt               
               
    BEGIN TRAN                               
                 
       if @intSec_statusCtr=2 or @intSec_statusCtr = 1
       Begin              
    update  tbSecretaria                               
        set                        
     dtmSec_DatProt=@dtmSec_DatProt                       
     ,numSec_Origem=@numSec_Origem                       
     ,vchSec_OriExtDes=@vchSec_OriExtDes                         
     ,vchSec_TipDoc=@vchSec_TipDoc                       
     ,numSec_numDoc=@numSec_numDoc                         
     ,vchSec_Assunto=@vchSec_Assunto                         
     ,dtmSec_EntGer =@dtmSec_EntGer                        
     ,dtmSec_SaiGer =@dtmSec_SaiGer                        
     ,vchSec_DestProt=@vchSec_DestProt                         
     ,vchSec_Estagio=@vchSec_Estagio                       
     ,dtmSec_Fecha =@dtmSec_Fecha                        
     ,vchSec_TipDocF=@vchSec_TipDocF                         
     ,vchSec_DescFech=@vchSec_DescFech                         
     ,numSec_Destino=@numSec_Destino                       
     ,numSec_DestDir=@numSec_DestDir                         
     ,numSec_DestGer=@numSec_DestGer                         
     ,numSec_DestAg=@numSec_DestAg                         
     ,vchSec_DesExtDes=@vchSec_DesExtDes           
     ,intSec_statusCtr=@intSec_statusCtr                    
     ,dtmSec_datuma=getdate()                    
       where convert(char(10),dtmSec_EntProt,112)=@dtmSec_EntProt and  numSec_NumProt=@numSec_NumProt                       
 end             


 else if @intSec_statusCtr>=3              
 Begin              
   update  tbSecretaria                               
        set                  
    vchSec_Estagio=@vchSec_Estagio                       
    ,dtmSec_Fecha =@dtmSec_Fecha                        
    ,vchSec_TipDocF=@vchSec_TipDocF                         
    ,vchSec_DescFech=@vchSec_DescFech                         
    ,numSec_Destino=@numSec_Destino                       
    ,numSec_DestDir=@numSec_DestDir                         
    ,numSec_DestGer=@numSec_DestGer                         
    ,numSec_DestAg=@numSec_DestAg                         
    ,vchSec_DesExtDes=@vchSec_DesExtDes                         
    ,intSec_statusCtr=@intSec_statusCtr                    
    ,dtmSec_datuma=getdate()                    
       where convert(char(10),dtmSec_EntProt,112)=@dtmSec_EntProt and  numSec_NumProt=@numSec_NumProt                       
 end             
             
    if @@error=0                                     
  begin                                
      insert into tbMov_Secretaria(dtmSec_EntProt ,numSec_NumProt,dtmSec_DatProt,numSec_Origem,numSec_OrIntDir,numSec_OrIntGer,numSec_OrIntAg ,vchSec_OriExtDes ,vchSec_TipDoc ,numSec_numDoc ,vchSec_Assunto ,dtmSec_EntGer ,dtmSec_SaiGer ,vchSec_DestProt ,vchSec_Estagio ,dtmSec_Fecha  ,vchSec_TipDocF ,vchSec_DescFech ,numSec_Destino,numSec_DestDir ,numSec_DestGer ,numSec_DestAg ,vchSec_DesExtDes ,      dtmSec_datuma , login ,intSec_statusCtr)                       
      values(@dtmSec_EntProt,@numSec_NumProt ,@dtmSec_DatProt ,@numSec_Origem ,@numSec_OrIntDir ,@numSec_OrIntGer ,@numSec_OrIntAg ,@vchSec_OriExtDes ,@vchSec_TipDoc ,@numSec_numDoc ,@vchSec_Assunto ,@dtmSec_EntGer ,@dtmSec_SaiGer ,@vchSec_DestProt ,@vchSec_Estagio ,@dtmSec_Fecha  ,@vchSec_TipDocF ,@vchSec_DescFech ,@numSec_Destino ,@numSec_DestDir ,@numSec_DestGer ,@numSec_DestAg ,@vchSec_DesExtDes ,getdate(), @login,@intSec_statusCtr)                       
    if @@error=0                                     
    begin                                
      commit tran                               
    end                                
    else                               
    begin                               
      rollback                               
    end                               
  end                               
  else                               
  begin                               
    rollback                  
  end                               
end       
<%
sql=""
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 --> data de enrtrada
fileDataent = UploadRequest.Item("dataent").Item("Value")
if fileDataent="" then
fileDataent= "19000101"
else
fileDataent= right(fileDataent,4) & right(left( fileDataent ,5 ),2) & left(fileDataent ,2 )
end if
'2 --> numero do protocolo
fileNumprotocolo = UploadRequest.Item("numprotocolo").Item("Value")
if fileNumprotocolo ="" then
fileNumprotocolo = 0
end if
'3 --> data do protocolo
fileDataprot = UploadRequest.Item("dataprot").Item("Value")
if fileDataprot="" then
fileDataprot= "19000101"
else
fileDataprot= right(fileDataprot,4) & right(left( fileDataprot ,5 ),2) & left(fileDataprot ,2 )
end if

'4 -->Direção Geral:
fileDirger= UploadRequest.Item("dirger").Item("Value")
if fileDirger ="" then
fileDirger =0
end if
'5 -->Gereg
fileGereg= UploadRequest.Item("gereg").Item("Value")
if fileGereg="" then
fileGereg =0
end if


'6 --> Agencia
fileagencia= UploadRequest.Item("agencia").Item("Value")
if fileagencia = "" then
fileagencia =0
end if
'7 --> Tipo de documento
fileTipdoc = UploadRequest.Item("tipdoc").Item("Value")
if fileTipdoc = "" then
fileTipdoc =0
end if
'8 --> Numeroc do documento
fileNumdoc = UploadRequest.Item("numdoc").Item("Value")
if fileNumdoc = "" then
fileNumdoc =0
end if
'9 --> Assunto
fileAssunto = UploadRequest.Item("assunto").Item("Value")




'10 -->'Data de entrada
fileDataent1 = UploadRequest.Item("dataent1").Item("Value")
if fileDataent1="" then
fileDataent1= "19000101"
else
fileDataent1= right(fileDataent1,4) & right(left( fileDataent1 ,5 ),2) & left(fileDataent1 ,2 )
end if
'11 -->Data de saida
fileDatsai = UploadRequest.Item("datsai").Item("Value")
if fileDatsai="" then
fileDatsai= "19000101"
else
fileDatsai= right(fileDatsai,4) & right(left( fileDatsai ,5 ),2) & left(fileDatsai ,2 )
end if

'Response.Write fileDatsai
'Response.end

'12 -->Destino
fileDestino = UploadRequest.Item("destino").Item("Value")
if fileDestino="" then
fileDestino= "0"
end if
'13 --> Estágio:


fileDestino1= UploadRequest.Item("destino1").Item("Value")
if fileDestino1="" then
fileDestino1= "0"
end if
'14
fileDatfec= UploadRequest.Item("datfec").Item("Value")
if fileDatfec="" then
fileDatfec= "19000101"
end if
'15 tipo de documento
fileTipdoc1= UploadRequest.Item("tipdoc1").Item("Value")
if fileTipdoc1="" then
fileTipdoc1= "0"
end if
'16
fileDesc= UploadRequest.Item("desc").Item("Value")

filedtmSec_Fecha=UploadRequest.Item("filedtmSec_Fecha").Item("Value")
if filedtmSec_Fecha="" then
fileDatfec= "01011900"
end if


'Response.Write fileDesc
'Response.end


'17 -->'Diretriz
fileDirger1= UploadRequest.Item("dirger1").Item("Value")
if fileDirger1="" then
fileDirger1= "0"
end if
'18 -->'Gereg
fileGereg1= UploadRequest.Item("gereg1").Item("Value")
if fileGereg1="" then
fileGereg1= "0"
end if
'Response.Write fileGereg1
'Response.end


'19 -->'Agencia
fileagencia1= UploadRequest.Item("agencia1").Item("Value")
if fileagencia1="" then
fileagencia1= "0"
end if
'20 -->'Destino Externo
fileDestext= UploadRequest.Item("destext").Item("Value")

'21 --> descrição origem
fileOrigExt = UploadRequest.Item("origext").Item("Value")






'Response.Write fileDestino1 & "-" & fileDestino
'Response.end
'fileDataent
',fileNumprotocolo
',fileDataprot
',fileDirger
',fileGereg
',fileagencia
',fileTipdoc
',fileNumdoc
',fileAssunto
',fileDataent1
',fileDatsai
',fileDestino
',fileDestino1
',fileTipdoc1
',fileDesc
',fileDirger1
',fileGereg1
',fileagencia1
',fileDatfec
',fileDestext




sql = "spt_IncluirSecretaria '" & fileDataent & "','" & fileNumprotocolo & "','" & fileDataprot & "','" & fileDirger & "','" & fileGereg & "'," & fileagencia & ",'" & fileTipdoc & "'," & fileNumdoc & ",'" & fileAssunto & "','" & fileDataent1 & "','" & fileDatsai & "','" & fileDestino & "','" & fileDestino1 & "','" & fileTipdoc1 & "','" & fileDesc & "','" & fileDirger1 & "','" & fileGereg1 & "','" & fileagencia1 & "','" & filedtmSec_Fecha & "','" & fileDestext& "','" & session("login") & "','" & fileOrigExt &"'"



'Response.Write sql
'Response.end




'COMANDO SQL






















'Response.Write "oi" & fileTipdoc & "-" & fileDataprot & ","
'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")


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

objCmm.Close()
set objCmm=nothing












%><%
sql=""
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 --> data de enrtrada
fileDataent = UploadRequest.Item("dataent").Item("Value")
if fileDataent="" then
fileDataent= "19000101"
else
fileDataent= right(fileDataent,4) & right(left( fileDataent ,5 ),2) & left(fileDataent ,2 )
end if
'2 --> numero do protocolo
fileNumprotocolo = UploadRequest.Item("numprotocolo").Item("Value")
if fileNumprotocolo ="" then
fileNumprotocolo = 0
end if
'3 --> data do protocolo
fileDataprot = UploadRequest.Item("dataprot").Item("Value")
if fileDataprot="" then
fileDataprot= "19000101"
else
fileDataprot= right(fileDataprot,4) & right(left( fileDataprot ,5 ),2) & left(fileDataprot ,2 )
end if

'4 -->Direção Geral:
fileDirger= UploadRequest.Item("dirger").Item("Value")
if fileDirger ="" then
fileDirger =0
end if
'5 -->Gereg
fileGereg= UploadRequest.Item("gereg").Item("Value")
if fileGereg="" then
fileGereg =0
end if


'6 --> Agencia
fileagencia= UploadRequest.Item("agencia").Item("Value")
if fileagencia = "" then
fileagencia =0
end if
'7 --> Tipo de documento
fileTipdoc = UploadRequest.Item("tipdoc").Item("Value")
if fileTipdoc = "" then
fileTipdoc =0
end if
'8 --> Numeroc do documento
fileNumdoc = UploadRequest.Item("numdoc").Item("Value")
if fileNumdoc = "" then
fileNumdoc =0
end if
'9 --> Assunto
fileAssunto = UploadRequest.Item("assunto").Item("Value")




'10 -->'Data de entrada
fileDataent1 = UploadRequest.Item("dataent1").Item("Value")
if fileDataent1="" then
fileDataent1= "19000101"
else
fileDataent1= right(fileDataent1,4) & right(left( fileDataent1 ,5 ),2) & left(fileDataent1 ,2 )
end if
'11 -->Data de saida
fileDatsai = UploadRequest.Item("datsai").Item("Value")
if fileDatsai="" then
fileDatsai= "19000101"
else
fileDatsai= right(fileDatsai,4) & right(left( fileDatsai ,5 ),2) & left(fileDatsai ,2 )
end if

'Response.Write fileDatsai
'Response.end

'12 -->Destino
fileDestino = UploadRequest.Item("destino").Item("Value")
if fileDestino="" then
fileDestino= "0"
end if
'13 --> Estágio:


fileDestino1= UploadRequest.Item("destino1").Item("Value")
if fileDestino1="" then
fileDestino1= "0"
end if
'14
fileDatfec= UploadRequest.Item("datfec").Item("Value")
if fileDatfec="" then
fileDatfec= "19000101"
end if
'15 tipo de documento
fileTipdoc1= UploadRequest.Item("tipdoc1").Item("Value")
if fileTipdoc1="" then
fileTipdoc1= "0"
end if
'16
fileDesc= UploadRequest.Item("desc").Item("Value")

filedtmSec_Fecha=UploadRequest.Item("filedtmSec_Fecha").Item("Value")
if filedtmSec_Fecha="" then
fileDatfec= "01011900"
end if


'Response.Write fileDesc
'Response.end


'17 -->'Diretriz
fileDirger1= UploadRequest.Item("dirger1").Item("Value")
if fileDirger1="" then
fileDirger1= "0"
end if
'18 -->'Gereg
fileGereg1= UploadRequest.Item("gereg1").Item("Value")
if fileGereg1="" then
fileGereg1= "0"
end if
'Response.Write fileGereg1
'Response.end


'19 -->'Agencia
fileagencia1= UploadRequest.Item("agencia1").Item("Value")
if fileagencia1="" then
fileagencia1= "0"
end if
'20 -->'Destino Externo
fileDestext= UploadRequest.Item("destext").Item("Value")

'21 --> descrição origem
fileOrigExt = UploadRequest.Item("origext").Item("Value")






'Response.Write fileDestino1 & "-" & fileDestino
'Response.end
'fileDataent
',fileNumprotocolo
',fileDataprot
',fileDirger
',fileGereg
',fileagencia
',fileTipdoc
',fileNumdoc
',fileAssunto
',fileDataent1
',fileDatsai
',fileDestino
',fileDestino1
',fileTipdoc1
',fileDesc
',fileDirger1
',fileGereg1
',fileagencia1
',fileDatfec
',fileDestext




sql = "spt_IncluirSecretaria '" & fileDataent & "','" & fileNumprotocolo & "','" & fileDataprot & "','" & fileDirger & "','" & fileGereg & "'," & fileagencia & ",'" & fileTipdoc & "'," & fileNumdoc & ",'" & fileAssunto & "','" & fileDataent1 & "','" & fileDatsai & "','" & fileDestino & "','" & fileDestino1 & "','" & fileTipdoc1 & "','" & fileDesc & "','" & fileDirger1 & "','" & fileGereg1 & "','" & fileagencia1 & "','" & filedtmSec_Fecha & "','" & fileDestext& "','" & session("login") & "','" & fileOrigExt &"'"



'Response.Write sql
'Response.end




'COMANDO SQL






















'Response.Write "oi" & fileTipdoc & "-" & fileDataprot & ","
'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")


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

objCmm.Close()
set objCmm=nothing












%>

<%
sql=""
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 --> data de enrtrada
fileDataent = UploadRequest.Item("dataent").Item("Value")
if fileDataent="" then
fileDataent= "19000101"
else
fileDataent= right(fileDataent,4) & right(left( fileDataent ,5 ),2) & left(fileDataent ,2 )
end if
'2 --> numero do protocolo
fileNumprotocolo = UploadRequest.Item("numprotocolo").Item("Value")
if fileNumprotocolo ="" then
fileNumprotocolo = 0
end if
'3 --> data do protocolo
fileDataprot = UploadRequest.Item("dataprot").Item("Value")
if fileDataprot="" then
fileDataprot= "19000101"
else
fileDataprot= right(fileDataprot,4) & right(left( fileDataprot ,5 ),2) & left(fileDataprot ,2 )
end if

'4 -->Direção Geral:
fileDirger= UploadRequest.Item("dirger").Item("Value")
if fileDirger ="" then
fileDirger =0
end if
'5 -->Gereg
fileGereg= UploadRequest.Item("gereg").Item("Value")
if fileGereg="" then
fileGereg =0
end if


'6 --> Agencia
fileagencia= UploadRequest.Item("agencia").Item("Value")
if fileagencia = "" then
fileagencia =0
end if
'7 --> Tipo de documento
fileTipdoc = UploadRequest.Item("tipdoc").Item("Value")
if fileTipdoc = "" then
fileTipdoc =0
end if
'8 --> Numeroc do documento
fileNumdoc = UploadRequest.Item("numdoc").Item("Value")
if fileNumdoc = "" then
fileNumdoc =0
end if
'9 --> Assunto
fileAssunto = UploadRequest.Item("assunto").Item("Value")




'10 -->'Data de entrada
fileDataent1 = UploadRequest.Item("dataent1").Item("Value")
if fileDataent1="" then
fileDataent1= "19000101"
else
fileDataent1= right(fileDataent1,4) & right(left( fileDataent1 ,5 ),2) & left(fileDataent1 ,2 )
end if
'11 -->Data de saida
fileDatsai = UploadRequest.Item("datsai").Item("Value")
if fileDatsai="" then
fileDatsai= "19000101"
else
fileDatsai= right(fileDatsai,4) & right(left( fileDatsai ,5 ),2) & left(fileDatsai ,2 )
end if

'Response.Write fileDatsai
'Response.end

'12 -->Destino
fileDestino = UploadRequest.Item("destino").Item("Value")
if fileDestino="" then
fileDestino= "0"
end if
'13 --> Estágio:


fileDestino1= UploadRequest.Item("destino1").Item("Value")
if fileDestino1="" then
fileDestino1= "0"
end if
'14
fileDatfec= UploadRequest.Item("datfec").Item("Value")
if fileDatfec="" then
fileDatfec= "19000101"
end if
'15 tipo de documento
fileTipdoc1= UploadRequest.Item("tipdoc1").Item("Value")
if fileTipdoc1="" then
fileTipdoc1= "0"
end if
'16
fileDesc= UploadRequest.Item("desc").Item("Value")

filedtmSec_Fecha=UploadRequest.Item("filedtmSec_Fecha").Item("Value")
if filedtmSec_Fecha="" then
fileDatfec= "01011900"
end if


'Response.Write fileDesc
'Response.end


'17 -->'Diretriz
fileDirger1= UploadRequest.Item("dirger1").Item("Value")
if fileDirger1="" then
fileDirger1= "0"
end if
'18 -->'Gereg
fileGereg1= UploadRequest.Item("gereg1").Item("Value")
if fileGereg1="" then
fileGereg1= "0"
end if
'Response.Write fileGereg1
'Response.end


'19 -->'Agencia
fileagencia1= UploadRequest.Item("agencia1").Item("Value")
if fileagencia1="" then
fileagencia1= "0"
end if
'20 -->'Destino Externo
fileDestext= UploadRequest.Item("destext").Item("Value")

'21 --> descrição origem
fileOrigExt = UploadRequest.Item("origext").Item("Value")






'Response.Write fileDestino1 & "-" & fileDestino
'Response.end
'fileDataent
',fileNumprotocolo
',fileDataprot
',fileDirger
',fileGereg
',fileagencia
',fileTipdoc
',fileNumdoc
',fileAssunto
',fileDataent1
',fileDatsai
',fileDestino
',fileDestino1
',fileTipdoc1
',fileDesc
',fileDirger1
',fileGereg1
',fileagencia1
',fileDatfec
',fileDestext




sql = "spt_IncluirSecretaria '" & fileDataent & "','" & fileNumprotocolo & "','" & fileDataprot & "','" & fileDirger & "','" & fileGereg & "'," & fileagencia & ",'" & fileTipdoc & "'," & fileNumdoc & ",'" & fileAssunto & "','" & fileDataent1 & "','" & fileDatsai & "','" & fileDestino & "','" & fileDestino1 & "','" & fileTipdoc1 & "','" & fileDesc & "','" & fileDirger1 & "','" & fileGereg1 & "','" & fileagencia1 & "','" & filedtmSec_Fecha & "','" & fileDestext& "','" & session("login") & "','" & fileOrigExt &"'"



'Response.Write sql
'Response.end




'COMANDO SQL






















'Response.Write "oi" & fileTipdoc & "-" & fileDataprot & ","
'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")


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

objCmm.Close()
set objCmm=nothing












%>


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

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