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 na Hora de Atualizar - URGENTE - AGRADEÇO QUEM PODER AJUDAR Atualizado em 20/07/2007 ás 16:03:00

Postado em 20/07/2007 ás 16:03:00

Boa tarde!


Senhores(as),


Tenho duas páginas asp, uma que é cadastroterceirizado_atualiza.asp e CadTer_Atualiza.asp, não estou conseguindo fazer a alteração, herdei esse sistema de um outro analista e estou meio perdido no código que ele montou, será que vocês poderiam me dar uma luz. Tenho quase creteza q o erro é na página cadter-atualiza.asp mas ainda não sei como resolver, grato a todos q puderem me ajudar!


<%
'cadastroterceirizado_atualiza.asp


response.cookies("id").expires = DateAdd("d",0,Now)
response.expires=0 'vence instantaneamente
Response.CacheControl = "Private"


Dim sql
sqlADV = "select ai_CODIGO, at_NOME, at_END, at_CID, at_UF, at_CEP, at_TEL_FAX from sapj2000..vw_advogados_terc where ai_nivel in (2,3) order by at_nome"


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


objCmm.Open  Application("strConn")


SET sqlC = objCmm.Execute (sqlADV)


codigo = request("codadv")
numContrato = Request("numcontrato")


If request("codadv") <> "0" and request("codadv")<>""  then 'or request("codadv") > 0 or request("codadv") <> ""  then
    codigo = request("codadv")
    stQuery = "select ai_CODIGO, at_NOME, at_END, at_CID, at_UF, at_CEP, at_TEL_FAX from tbadvogados where ai_Codigo = " & codigo
    SET obRS = objCmm.Execute (stQuery)
 ai_Codigo  = obRS("ai_CODIGO")
 at_END     = obRS("at_END")
 at_UF      = obRS("at_UF")
 at_CEP     = obRS("at_CEP")
 at_TEL_FAX = obRS("at_TEL_FAX")
 at_CID     = obRS("at_CID")  
 controle="2"
else
   ai_Codigo  = ""
   at_END     = ""
   at_UF      = ""
   at_CEP     = ""
   at_TEL_FAX = ""
   at_CID     = ""
   controle="1"
 End if    
 
 if numContrato <> "" and  numContrato <> "0"  then
    stQuery2 = "ConsultaContrato " & Codigo &  " , " & numContrato 


 
    set obRS2  = server.CreateObject("ADODB.Recordset")
    SET obRS2 = objCmm.Execute (stQuery2)
 at_contrato  = obRS2("numadv_contrato")
 at_jurisdicao = obRS2("vchAdv_Jurisdicao")
 at_objeto = obRS2("vchAdv_Obj")
 at_inicio = obRS2("vchAdv_DatIni")
 at_fim = obRS2("vchAdv_DatFim")
 at_origem= obRS2("vchAdv_OriCon")
 at_dirger= obRS2("vchAdv_GesDir")
 at_gereg =  obRS2("vchAdv_GesGer")
 at_agencia=obRS2("vchAdv_GesAg")


  obRS2.close()
 set obRS2=nothing


else
   at_contrato  = ""
   at_jurisdicao     = ""
   at_objeto      =  ""
   at_inicio=""
   at_fim=""
   at_origem=""
   at_dirger="0"
   at_gereg = "0"
   at_agencia="0"
 End if    
 

%>



<html>
<head>
<meta http-equiv="Content-Language" content="pt-br">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>portaljuridico - Portal Juridico</title>
<link rel="stylesheet" type="text/css" href="http://basanet/estilos/css.css">
<link rel="stylesheet" type="text/css" href="estilos/css.css">
<!-- #include file="ValidaData.Inc" -->
</head>
<script language="JavaScript">
function txtBoxFormat(objForm, strField, sMask, evtKeyPress) {
     var i, nCount, sValue, fldLen, mskLen,bolMask, sCod, nTecla;


     if(document.all) { // Internet Explorer
       nTecla = evtKeyPress.keyCode; }
     else if(document.layers) { // 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 da Função Máscaras Gerais
</script>
<script language="VBScript">


 


Function reset2()
  navigate("cadastroterceirizado_atualiza.asp")
end function



Function EditarContrato(campo1)
 VAR= ("cadastroterceirizado_atualiza.asp?codadv=" & document.advogados.Adv.value  &  'MSGBOX(VAR)
 navigate(VAR)
 
End function


 


Function incluir()
   
     if   document.advogados.origem.value =  "" then
  msgbox( "Prencha a origem do contrato!")     
  document.advogados.origem.focus
  exit function
     end if
     
     if   document.advogados.numcontrato.value =  "" or document.advogados.numcontrato.value =  null  then
  msgbox( "Informe o número do Contrato!")
  document.advogados.numcontrato.focus
  exit function
     end if
    
'Trecho incluído em 18/07/2007
    if document.advogados.dirger.value = "" and document.advogados.gereg.value = "" and document.advogados.agencia.value = "" then
  msgbox("Informe pelo menos uma campo para o gestor!")
  document.advogados.dirger.focus
  exit function
 end if 


 if document.advogados.dirger.value = "0" and document.advogados.gereg.value = "0" and document.advogados.agencia.value = "0" then
  msgbox("Informe pelo menos uma campo para o gestor!")
  document.advogados.dirger.focus
  exit function
 end if
      
     
      if   document.advogados.jurisdicao.value =  "" then
  msgbox( "Informe a Jurisdição do Contrato!") 
  document.advogados.jurisdicao.focus
  exit function
     end if
 
     
       if   document.advogados.iniciovig.value =  "" then
  msgbox( "Informe o Inicio da vigência do Contrato!") 
  document.advogados.iniciovig.focus
  exit function
     end if
    
     if   document.advogados.fimvig.value =  "" then
  msgbox( "Informe o Fim da vigência do Contrato!") 
  document.advogados.fimvig.focus
  exit function
     end if
    
     if   document.advogados.fimvig.value <>  ""  then
    if   document.advogados.fimvig.value <  document.advogados.iniciovig.value  then
      msgbox( "A data final não pode ser menor que a data inicial!")
      document.advogados.fimvig.focus
      exit function
    end if  
     end if     
    
      if   document.advogados.objtext.value =  "" then
  msgbox( "Informe o Objeto do Contrato!") 
  document.advogados.objtext.focus
  exit function
     end if
    
     document.advogados.submit1.value = "Atualizando..."
     document.advogados.submit1.disabled = true
     document.advogados.submit2.disabled = true
     document.advogados.submit3.disabled = true
     document.advogados.submit()
     
end function


'função para não deixar
Function VerConteudo(KeyCod)
  If KeyCod <> vbKeyBack Then
  If Not (KeyCod >= 48 And KeyCod <= 57) Then _
   window.event.keyCode = 0
 End If
End Function



Function VerConteudo2(KeyCod)
  If KeyCod <> vbKeyBack Then
  If Not (KeyCod <> 34 And KeyCod <> 39) Then _
   window.event.keyCode = 0
 End If
End Function


 


</script>
<body leftmargin="0" topmargin="6">
<form name="advogados" id="advogados" method="post" action="CadTer_Atualiza.asp" ENCTYPE="multipart/form-data">



<table width="600" align="center" border="0">
 <tr>
  <td class="textoscenter" background="images/bg_titc.jpg" style="background-repeat:no-repeat; background-position:center">
  CADASTRO TERCEIRIZADO
  </td>
 </tr>
</table>


<br>


<table width="540" class="borda" align="center" border="0">
 <tr>
  <td width="140"><font class="textoss">
   Localizar Advogado:</font>
  </td>
  <td align="left">
  <select name="Adv" id="Adv" onChange="vbscript:buscarAdvogado2()">
    <option selected value="0">Selecione um Nome</option>
   <%while not sqlC.EOF
      if codadv <> "0" Then
     if trim(sqlC("ai_CODIGO")) = trim(ai_CODIGO) Then%>
              <option selected value="<%=sqlC("ai_CODIGO")%>"><%=sqlC("at_NOME")%></option><%
           else%>
              <option value="<%=sqlC("ai_CODIGO")%>"><%=sqlC("at_NOME")%></option><%
           end if
        else%>
            <option value="<%=sqlC("ai_CODIGO")%>"><%=sqlC("at_NOME")%></option>                   
      <%end if
      sqlC.moveNext
   wend%>   
  </select>
  </td>
 </tr>
</table>
<br>
<table width="540" class="borda" align="center" border="0">
 <tr>
  <td width="140"><font class="textoss">
   Endereço:</font>
  </td>
  <td align="left" colspan="5"><input name="endereco" type="text" class="textoss" id="endereco" size="60" maxlength="80" readonly value="<%=at_end%>">
  </td>
 </tr>
 <tr>
  <td width="140"><font class="textoss">Cidade:</font></td>
  <td align="left"><input name="cidade" type="text" class="textoss" id="cidade" size="20" maxlength="30" readonly value="<%=at_CID%>"></td>
  <td align="right"><font class="textoss">UF:</font></td>
  <td align="left"><input name="UF" type="text" class="textoss" id="UF" size="2" maxlength="2" readonly value="<%=at_uf%>"></td>       
 </tr>
 <tr>
  <td align="left" width="140"><font class="textoss">CEP:</font></td>
  <td align="left"><input name="cep" type="text" class="textoss" id="cep" size="8" maxlength="8" readonly value="<%=at_cep%>"></td>  
 </tr>
 <tr>
  <td align="left" width="140"><font class="textoss">Tel / Fax:</font></td>
  <td align="left"><input name="tel" type="text" class="textoss" id="tel" size="25" maxlength="25" readonly value="<%=at_TEL_FAX%>"></td>  
 </tr>
</table>


<br>



<%


'Response.write "controle: " & "-" & controle & len(controle)



if controle= " " or  len(controle)= 0 or  controle= "2" then
'if controle= "0" or  len(controle)= 0 then


%>
<div id="carregando" align="center">
<table width="540" class="borda" align="center" border="0">
    <tr>
  <td width="140"><font class="textoss">
   Origem do Contrato:</font>
  </td>
  <td align="left"><select name="origem" id="origem">
      <option selected value="">Selecione</option>
      <option value="CREDENCIADOS">Credenciado</option>
      <option value="DIRETAS">Contratação Direta</option>   
      <option value="EXTRAJUDICIAIS">Cobrança Extrajudicial</option>       
      <option value="LICITADOS">Contratação Licitação</option>               
    </select>
    <script>document.advogados.origem.value="<%=at_origem%>";</script>
    
  </td>
    
  <td rowspan="7" width="10">&nbsp;
  </td>
 </tr>
 <tr>
  <td width="140"><font class="textoss">
   Número do Contrato:</font>
  </td>
  <td align="left"><input name="numcontrato" type="text" class="textoss" id="numcontrato" size="20" maxlength="30" OnKeyPress="vbscript:VerConteudo2 window.event.keycode" value="<%=at_contrato%>" title="Número do Contrato">
  </td>
  <td align="left" colspan="5" rowspan="6">&nbsp;
  
  
   
  </td>
 </tr>
 <tr>
  <td align="left" width="140"><font class="textoss">
   Gestor:</font>
  </td>
 </tr>
    <tr>
     <td colspan="3">
      <table border="0">
       <tr>
        <td width="33">&nbsp;</td>
        <td align="left" width="188"><font class="textoss">
         Direção Geral:</font>
        </td>
        <td align="left"><select name="dirger" id="dirger">
               <option value="0" selected>Selecione</option>
             <%
              set sqlDir= server.CreateObject("ADODB.Recordset")
            SET sqlDir = objCmm.Execute("select numdg_cod,vchDg_SGl as vchDg_des from tbAuxDiGer  where numdg_cod<>0 order by vchDg_SGl" )
            
              while not sqlDir.EOF
             'if sqlDir("numdg_cod") <> "0" Then
             ' if trim(sqlDir("numdg_cod")) = trim(at_dirger) Then%>
                <option value="<%=sqlDir("numdg_cod")%>"><%=sqlDir("vchDg_des")%></option><%
             ' end if
             'else%>
               <%'end if
              sqlDir.moveNext
            wend
           sqlDir.Close()
           set sqlDir=nothing
           %>   
          </select>
          <script>document.advogados.dirger.value="<%=trim(at_dirger)%>";</script>
          
         </td> 
       </tr>
       <tr>
        <td>&nbsp;</td>    
        <td align="left"><font class="textoss">
         Gereg:</font>
        </td>
        <td align="left"><select name="gereg" id="gereg">
          <option value="0" selected>Selecione</option>
            <%
            set objConBc  = CreateObject("ADODB.Connection")
            set sql= server.CreateObject("ADODB.Recordset")
          objConBc.Open  Application("strConnBC")
          SET sql = objConBc.Execute ("select distinct(ger_den)as ger_den ,run_cod from vw_sbcuni_015 order by ger_den" )
            while not sql.EOF%>
              <option value="<%=sql("run_cod")%>"><%=sql("ger_den")%></option><%
         sql.moveNext
         wend
         
         sql.Close()
         set sql=nothing
         
         %>   
         </select>
         <script>document.advogados.gereg.value="<%=trim(at_gereg)%>";</script>
         
         </td> 
       </tr>
       
      
       
       <tr>
        <td>&nbsp;</td>    
        <td align="left"><font class="textoss">
         Agência:</font>
        </td>
        <td align="left"><select name="agencia" id="agencia">
        <option value="0" selected>Selecione</option>
           <%
            set sqlAg= server.CreateObject("ADODB.Recordset")
          SET sqlAg = objConBc.Execute ("select cast(uni_cod as numeric) as uni_cod,uni_den from vw_sbcuni_008 order by uni_den" )
            while not sqlAg.EOF%>
             <option value="<%=sqlAg("uni_cod")%>"><%=sqlAg("uni_den")%></option><%
          sqlAg.moveNext
         wend
         sqlAg.Close()
         objConBc.Close()
         set objConBc=nothing
         %>   
         </select>
         <script>document.advogados.agencia.value="<%=trim(at_agencia)%>";</script>
         
         </td> 
       </tr>
      </table>
     </td>     
    </tr>
 <tr>
  <td width="140"><font class="textoss">
  Jurisdição:</font>
  </td>
  <td align="left"><input name="jurisdicao" type="text" class="textoss" id="jurisdicao" size="20" maxlength="50" value="<%=at_jurisdicao%>" title="Jurisdição">
  </td>
 </tr>
 
 <%'if controle="2" then%>
     <!--table border="0" width="210" class="borda"-->
        <tr>
         <!--td colspan="2" align="center"><font class="textoss"> Vigência do Contrato:</font>-->
         <td align="left" width="140"><font class="textoss"> Vigência do Contrato:</font>
         </td>
        </tr>
        <tr>
         <td width="120" align="center"><font class="textoss">Início:</font>
         </td>
         <td align="left"><input name="iniciovig" type="text" class="textoss" id="iniciovig" size="10" onKeyPress="return txtBoxFormat(document.advogados, 'iniciovig', '99/99/9999', event)" maxlength="10" onBlur="javascript:Valida_data(iniciovig,iniciovig,'','','','')" value="<%=at_inicio%>" title="Inicio">
         </td>
        </tr>
        <tr>
         <td width="120" align="center"><font class="textoss">Término:</font>
         </td>
         <td align="left"><input name="fimvig" type="text" class="textoss" id="fimvig" size="10" onKeyPress="return txtBoxFormat(document.advogados, 'fimvig', '99/99/9999', event)" maxlength="10" onBlur="javascript:Valida_data(fimvig,fimvig,'','','','')" value="<%=at_fim%>" title="Término">
         </td>
        </tr>
        <tr>
         <td width="120" align="center"><font class="textoss">Objeto:</font>
         </td>
        </tr>
        <tr>
         <td colspan="2" align="center">
           <textarea name="objtext" cols="30" rows="4" class="textoss" id="objtext">
           </textarea>
           <script>document.advogados.objtext.value="<%=trim(at_objeto)%>";</script>
         </td>
        </tr>       
    <!--/table-->
<!--/div--> 
<%'end if%>
 
 
</table>


 



<br>
 <input type="button" value="Atualizar" onClick="incluir()" class="bt" onMouseOut="javascript:this.className='bt'" onMouseOver="javascript:this.className='bthover'" id="submit1" name="submit1" >
 &nbsp;&nbsp;
    <input onClick="reset2()" value="Limpar" class="bt" onMouseOut="javascript:this.className='bt'" onMouseOver="javascript:this.className='bthover'" id="submit2" name="submit2" size="20">&nbsp;&nbsp;
    <input type="button" value="Fechar" onClick="self.location='inicial.asp'" class="bt" onMouseOut="javascript:this.className='bt'" onMouseOver="javascript:this.className='bthover'" id="submit3" name="submit3">&nbsp;&nbsp;
<br>



<!--CADASTRO-->
<table width="600" class="borda" align="center" border="0">
 <tr>
  <td width="100%" ALIGN="CENTER">
    <div style="position:relative; width:600; height:145;scrollbar-3d-light-color:#ffcc33;scrollbar-arrow-color:#000000;scrollbar-base-color:#333333;scrollbar-dark-shadow-color:#333333;scrollbar-face-color:#C4C4C3;scrollbar-highlight-color:#eeeeee;scrollbar-shadow-color:#ffffff; overflow:auto">&nbsp;<div class="links">
     <table width="84%" border="0" cellspacing="0" cellpadding="0" bgcolor="#Fffffb" height="40">
      <tr>
        <td height="20" valign="top" width="2%">&nbsp;</td>
        <td height="20" valign="top" width="96%">
          <table width="100%" style="border-bottom: 1 solid #999999" class="textosleft">
            <tr bgcolor="#008000">
              <td width="70%" align="center" class="border" bgcolor="#Fffffb" colspan="2"><font class="textoss"><b><font class="textoss">Número do Contrato</b></font></td>
              <td width="30%" align="center" class="border" bgcolor="#Fffffb" colspan="2"><font class="textoss"><b>Origem do Contrato:</b></font></td>
            </tr>
          </table>
        </td>
        <td height="0" valign="top" width="2%">&nbsp;</td>
      </tr>
      <tr>
       <td height="85" valign="top" bgcolor="#Fffffb" width="2%">
       </td>
       <td height="85" valign="top" bgcolor="#Fffffb" width="50%">
         <div style="position:relative; width:100%; height:80; visibility: visible;scrollbar-3d-light-color:#ffcc33;scrollbar-arrow-color:#000000;scrollbar-base-color:#333333;scrollbar-dark-shadow-color:#333333;scrollbar-face-color:#C4C4C3;scrollbar-highlight-color:#eeeeee;scrollbar-shadow-color:#ffffff; overflow:auto">
           <table width="100%" border="0" bgcolor="#Fffffb" cellspacing="0" cellpadding="0">
          <%
          set listagem = server.CreateObject("ADODB.Recordset")
          if codigo <> "" then
         sql2 = "select top 10 * from tbAdvogado where  numAdv_Codigo=" & codigo
          else
         sql2 = "select * from tbAdvogado  order by dtmAdv_datuma "
          end if


          SET listagem = objCmm.Execute (sql2)
          IF not listagem.EOF then
            CorAtu = "#FFFFFF"
               while not listagem.EOF%>
                 <tr bgcolor="<%=CorAtu%>" style="cursor:hand" onMouseOver="javascript:this.className='linkover'" onMouseOut="javascript:this.className='linkout'">
            <td width="70%" bgcolor="<%=CorAtu%>" class="textosleft" style=" cursor: hand" title="Editar Contrato" onClick="EditarContrato(<%= "'" & listagem("numAdv_contrato").value  & "'" %>)"><font face="Arial, Helvetica, sans-serif" size="1" color="#000000">
            <div align="left"><img border="0" src="images/BtnGridEdit.gif" WIDTH="16" HEIGHT="16">&nbsp;<%=listagem("numAdv_contrato").value%></div></font></td>
            <td class="textoscenter" width="10%" title="Editar Contrato" onClick="EditarContrato(<%= "'" & listagem("numAdv_contrato").value  & "'" %>)"><font face="Arial, Helvetica, sans-serif" size="1" color="#000000">
            <div align="center"><%=listagem("vchAdv_OriCon").value%></div></font></td>
           <%'codadv
           if CorAtu = "#FFFFFF" then
             CorAtu = "#E9E9E9"
           else
             CorAtu = "#FFFFFF"
           end if
           listagem.MoveNext
           i = i + 1   
           wend
         else
           %> <tr bgcolor="<%=CorAtu%>" border="0">
            <td class="textosleft" width="70%" class="border" bgcolor="#Fffffb">
             <div align="center"><font face="Arial, Helvetica, sans-serif" size="1" color="#000000">O advogado não possui contrato vinculado</font></div>
            </td>
           </tr>
           <%
          
         end if
         listagem.Close()
         set listagem=nothing
         
         %>   
         </table>
        </div> 
      </td>
     </tr>
     </table>
    </div>


  
 </tr>
</table>


</div>


<%end if%>
<script language="vbscript">
function buscarAdvogado2()
    if document.advogados.Adv.value <> "" then
  navigate("cadastroterceirizado_atualiza.asp?codadv=" & document.advogados.Adv.value)
 end if 
end function


</script>



</form>
</body>
</html>



<%objCmm.Close()
set objCmm=nothing 
%>



------------------------------------------------------------------------
CadTer_Atualiza.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")
 
 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")


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_ATUALIZA_cadctrterceiro  '" & login & "'," & fileAdv & ",'"  & filenumcontrato & "','" & fileOrigem & "','" & filedirger & "' ,'" & filegereg &  "'," & fileAgencia & ",'" & filejurisdicao &"','"  & fileObjtext  & "','" & fileIniciovig  & "','" & fileFimvig  &"','" & filedtastatus & "'"


SET sqlC = objCmm.Execute (sql) 
if objCmm.Errors.Count <> 0 then
 mensagem  = "Erro na Atualização..."
else
 mensagem  = "Atualizaçã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