Problemas com Inserção de Dados + ASP + SQL Server 2000

acfelipesilva · Agosto 20, 2007

Gente,Tava dando manutenção numa página ASP, chamada CACON.asp, ela envia os dados para inserção em CadCACON_Insere.asp, o problema é que não tô conseguindo inerir nada... Tá dando erro, vou potar os códigos para ver se vocês podem dar uma força... ok, grato por qq tipo de ajuda!<%@LANGUAGE="vb script:VerConteudo window.event.keycode" value="<%=numSec_NumProt%>" readonly> <%else%> <input name="numprotocolo" type="text" class="textoss" id="numprotocolo" size="15" maxlength="15" OnKeyPress="vb script:Valida_data(dataprot,dataprot,'Atual','','','')" value="<%=dtmSec_DatProt%>" readonly> <%else%> <input name="dataprot" type="text" class="textoinibidos" id="dataprot" size="10" maxlength="10" onBlur="java script:Valida_data(dataprot,dataprot,'Atual','','','')" value="<%=dtmSec_DatProt%>" readonly> <%end if%> </td> </tr> <% 'INICIO DO CONTROLE DA ORIGEM 'origem = 2 -> orgigem externa if numSec_Origem=2 then%> <tr> <td align="left" width="120"><font class="textoss">Origem Externa:</font> </td> </tr> <tr> <td width="150" nowrap><font class="textoss"> Descrição da Origem :</font> </td> <td align="left"> <input name="origext" type="text" class="textoinibidos" id="origext" size="20" maxlength="50" OnKeyPress="vb script:VerConteudo2 window.event.keycode" value="<%=vchSec_OriExtDes%>" readonly> </td> </tr> <tr> <tr> <td align="left" width="120"><font class="textoss">Origem Interna:</font> </td> </tr> <tr> <td align="left" width="100"><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" ) while not sqlDir.EOF%> <option value="<%=sqlDir("numdg_cod")%>"> <%=sqlDir("vchDg_des")%></option> <% sqlDir.moveNext wend sqlDir.Close() set sqlDir=nothing %> </select> <script>document.secretaria.dirger.value="<%=trim(numSec_OrintDir)%>"; document.secretaria.dirger.disabled = true ; </script> </tr> <tr> <td align="left" width="100"><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.secretaria.gereg.value="<%=trim(numSec_OrIntGer)%>"; document.secretaria.gereg.disabled = true ; </script> </td> </tr> <tr> <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" ) 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.secretaria.agencia.value="<%=trim(numSec_OrIntag)%>"; document.secretaria.agencia.disabled = true ; </script> </td> </tr> </tr>  <%end if 'FIM DO CONTROLE DA ORIGEM %> <tr> <td align="left" width="100" nowrap><font class="textoss">Tipo do Documento:</font> </td> <td align="left"><select name="tipdoc" id="tipdoc"> <option value selected>Selecione</option> <option value="CI">CI</option> <option value="CE">CE</option> </select></td> <script>document.secretaria.tipdoc.value="<%=trim(vchSec_TipDoc)%>"; document.secretaria.tipdoc.disabled = true; </script> </tr> <tr> <td width="120"><font class="textoss"> Número do Documento:</font> </td> <td align="left"><input name="numdoc" type="text" class="textoinibidos" id="numdoc" size="15" maxlength="15" OnKeyPress="vb script:VerConteudo2 window.event.keycode" value="<%=trim(vchSec_Assunto)%>" readonly> </td> </tr> </table> </td> <td width="30%" align="top" valign="top" topmargin="0">   <%' if controle>=1 then%>   <%' if controle=2 then %>  <table class="borda" border="0" width="100" valign="top" topmargin="0" align="top"> <tr> <td width="160"> <table border="0"> <tr> <td width="70%" align="top" valign="top" topmargin="0" nowrap><font class="textoss">Data de Entrada:</font> </td> <td align="left" width="30%"> <input name="dataentCoor" type="text" class="textoss" id="dataentCoor" size="10" maxlength="10" readonly value="<%=dtmSec_Datent%>"> </td> </tr> <tr> <td align="left" width="40%"><font class="textoss"> Matéria:</font> </td> <td align="left" width="60%"><select name="materia" id="materia"> <option value selected>Selecione</option> <option value="CIVEL">Civel</option> <option value="TRABALHISTA">Trabalhista</option> <option value="OUTROS">Outros</option> </select> <script>document.secretaria.materia.value="<%=trim(vchSec_Materia)%>";</script> </td> </tr> <tr align="left"> <td width="100%" align="left" colspan="2"> <font class="textoss">Advogado:</font>  <select name="Adv" id="Adv"> <option selected value="0">Selecione um Nome</option> <%while not sqlaD.EOF if codadv <> "0" Then if trim(sqlaD("ai_CODIGO")) = trim(ai_CODIGO) Then%> <option selected value="<%=sqlaD("ai_CODIGO")%>"><%=trim(sqlaD("at_NOME"))%></option><% else%> <option value="<%=sqlaD("ai_CODIGO")%>"><%=trim(sqlaD("at_NOME"))%></option><% end if else%> <option value="<%=sqlaD("ai_CODIGO")%>"><%=trim(sqlaD("at_NOME"))%></option> <%end if sqlaD.moveNext wend sqlaD.Close() SET sqlaD=NOTHING %> </select> </td> </tr> <tr> <td align="left" width="100"><font class="textoss"> Providência:</font> </td> <td align="left"><select name="providencia" id="providencia"> <option selected value>Selecione</option> <option value="JUDICIAL">Judicial</option> <option value="EXTRAJUDICIAL">Extrajudicial</option> </select> <script>document.secretaria.providencia.value="<%=trim(vchSec_Providencia)%>";</script> </td> </tr> <tr> <td width="120"><font class="textoss"> Estágio:</font> </td> <td align="left"> <select name="destino1" id="destino1"> <option VALUE selected>Selecione</option> <option value="ABERTO">Aberto</option> <option value="CONCLUÍDO">Concluído</option> <option value="FECHADOEXC">Fechado pela Coordenação</option> </select></td> <script>document.secretaria.destino1.value="<%=trim(vchSec_Estagio)%>";</script> </tr> <tr> <td width="120" nowrap><font class="textoss">Prazo:</font> </td> <td align="left"><input name="prazo" type="text" class="textoss" id="prazo" size="10" maxlength="10" onKeyPress="return txtBoxFormat(document.secretaria, 'prazo', '99/99/9999', event)" onBlur="java script:Valida_data(prazo,prazo,'Anterior','','','')" VALUE="<%=dtmSec_Prazo%>"> </td> </tr>  <tr> <td align="left" width="120"><font class="textoss"> Destino Interno:</font> </td> </tr> <tr> <td colspan="2"> <table border="0"> <tr> <td align="left" width="40%" nowrap><font class="textoss"> Direção Geral:</font> </td> <td align="left" width="40%"> <select name="dirger1" id="dirger1"> <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" ) while not sqlDir.EOF%> <option value="<%=sqlDir("numdg_cod")%>"><%=sqlDir("vchDg_des")%></option> <%sqlDir.moveNext wend sqlDir.Close() set sqlDir=nothing %> </select> <script>document.secretaria.dirger1.value="<%=numSec_DestDir%>";</script> </tr> <tr> <td align="left" width="50%"><font class="textoss"> Gereg:</font> </td> <td align="left" width="50%"><select name="gereg1" id="gereg1"> <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.secretaria.gereg1.value="<%=trim(numSec_DestGer)%>";</script> </tr> <tr width="120"> <td align="left" width="20%"><font class="textoss"> Agência:</font> </td> <td align="left" width="40%"><font class="textoss"> <select name="agencia1" id="agencia1"> <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" ) while not sqlAg.EOF%> <option value="<%=sqlAg("uni_cod")%>"><%=sqlAg("uni_den")%></option><% sqlAg.moveNext wend sqlAg.Close() objConBc.Close() set objConBc=nothing %> </select> </td> <script>document.secretaria.agencia1.value="<%=trim(numSec_DestAg)%>";</script> </tr> </table> </td> </tr>  <tr> <td width="120"><font class="textoss">Destino Externo:</font> </td> <td align="left"><input name="destext" type="text" class="textoss" id="destext" size="15" maxlength="50" OnKeyPress="vb script:Valida_data(datresp,datresp,'Anterior','','','')" value="<%=dtmSec_DataResposta%>"> </td> </tr> </table> <%'end if%> <%'end if%> </td> </tr> </table> </td> </tr> </table><table width="200" align="center" border="0"><tr> <td> <% 'Response.Write controle & vchSec_DestProt 'Response.end 'if controle=2 and vchSec_DestProt = "CACON" then if controle=2 and vchSec_DestProt = "CACON" and vchSec_Estagio="ABERTO" then%> <input type="button" value="Gravar" onClick="incluir()" class="bt" onMouseOut="java script:this.className='bt'" onMouseOver="java script:this.className='bthover'" id="submit1" name="submit1" <%=objScap1.RestObj (35)%>> <%else if controle < 2 then%> <input type="button" value="Gravar" onClick="incluir()" class="bt" onMouseOut="java script:this.className='bt'" onMouseOver="java script:this.className='bthover'" id="submit1" name="submit1" <%=objScap1.RestObj (36)%>> <%'else%> <%end if%> <%end if%>  <input type="button" value="Fechar" onClick="self.location='inicial.asp'" class="bt" onMouseOut="java script:this.className='bt'" onMouseOver="java script:this.className='bthover'" id="submit3" name="submit3" <%=objScap1.RestObj (37)%>> </td></tr> </table><%end if%><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"> <div class="links"> <table width="98%" border="0" cellspacing="0" cellpadding="0" bgcolor="#Fffffb" height="40"> <tr> <td height="20" valign="top" width="2%"> </td> <td height="20" valign="top" width="96%"> <table width="100%" style="border-bottom: 1 solid #999999" class="textosleft"> <tr bgcolor="#008000">  <td bgcolor="#Fffffb" width="20%"><font class="textoss">Nº do Protocolo</font></td> <td bgcolor="#Fffffb" width="20%"><font class="textoss">Dt. Entrada</font></td> <td bgcolor="#Fffffb" width="20%"><font class="textoss">Data do Protocolo</font></td> <td bgcolor="#Fffffb" width="10%"><font class="textoss">Coordenadoria</font></td> <td bgcolor="#Fffffb" width="40%"><font class="textoss">Estágio</font></td>  </tr> </table> </td> <td height="0" valign="top" width="2%"> </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 convert(char(10),dtmSec_EntProt,112)as data_parametro,convert(char(10),dtmSec_EntProt,103)as dtmSec_EntProt, convert(char(10),dtmSec_DATProt,103)as dtmSec_DATProt, numSec_NumProt from tbsecretaria order by dtmSec_Datuma desc " ' where numAdv_Codigo=" & codigo sql2 = " exec consultaProtocolo_002 'CACON'" 'else ' sql2 = "select * from tbAdvogado order by dtmAdv_datuma " 'end if 'Response.Write sql2 'Response.end SET listagem = objCmm.Execute (sql2) IF not listagem.EOF then CorAtu = "#FFFFFF" while not listagem.EOF If contador = 0 then contador = 1 %> <tr bgcolor="#C2E9A9"> <%else contador = 0 %> <tr bgcolor="#ffffff"> <%End if %> <td width="2%">  <td style="cursor:hand" width="20%" onClick="EditarContrato('<%=listagem("numSec_NumProt").value %>','<%=trim(listagem("data_parametro"))%>')"><font class="textosc" ><%=listagem("numSec_NumProt").value%> </font></td> <td style="cursor:hand" width="20%" onClick="EditarContrato('<%=listagem("numSec_NumProt").value %>','<%=trim(listagem("data_parametro"))%>')"><font class="textosc" ><%=listagem("dtmSec_EntProt").value%></font></td> <td style="cursor:hand" width="20%" onClick="EditarContrato('<%=listagem("numSec_NumProt").value %>','<%=trim(listagem("data_parametro"))%>')"><font class="textosc" ><%=listagem("dtmSec_DATProt").value%></font></td> <td style="cursor:hand" width="12%" onClick="EditarContrato('<%=listagem("numSec_NumProt").value %>','<%=trim(listagem("data_parametro"))%>')"><font class="textosc" ><%=listagem("vchSec_DestProt")%></font></td> <td style="cursor:hand" width="28%" onClick="EditarContrato('<%=listagem("numSec_NumProt").value %>','<%=trim(listagem("data_parametro"))%>')"><font class="textosc" ><%=listagem("vchSec_Estagio").value%></font></td> </tr> <%'codadv 'if CorAtu = "#FFFFFF" then 'CorAtu = "#E9E9E9" ' CorAtu ="#C2E9A9" '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> </td> </tr></table></form></body></html><%objCmm.close()set objCmm= nothing%><%'Response.Write("<script type=""text/javascript""> document.getElementById(""carregandoExterna"").style.display = ""none"";</script>")%>

acfelipesilva · Agosto 20, 2007

Continuando...

O código tá muito extenso né? Eu sei, fica dificil tanto de ajudar como de dar manutenção, bom, ele trabalha com a stored procedure abaixo:

O erro tá dando na linha 279, que é a linha da FUNCTION_EDITAR CONTRATO...

Sei que é bem dificil ajudar nesse caso, mas qq ajuda é bem vinda...

Grato,

ALTER procedure dbo.spt_IncluirCacon

  --DATA DE ENTRADA (PK)  @dtmSec_EntProt datetime  --'20070426'    --Número do Protocolo (PK)  ,@numSec_NumProt varchar(50)  --,3  --Data de Entrada na coordenadoria  ,@dtmSec_datEnt datetime  --,'20070505'    --Matéria:  ,@vchSec_Materia varchar(60)  --,'CIVEL'    --codigo do advogado  ,@numAdv_Codigo int  --,386    --providencia  ,@vchSec_Providencia varchar(50)  --,'JUDICIAL'    --Estágio:  ,@vchSec_Estagio varchar(50)  --,'CONCLUÍDO'    --Prazo:   ,@dtmSec_Prazo datetime  --,'20080505'    --Direção Geral  ,@numSec_DestDir int  --,1    --Gereg  ,@numSec_DestGer int  --,7196    --Agência  ,@numSec_DestAg int  --,27    --Destino externo  ,@vchSec_DesExtDes varchar(50)  --,'Destino externo'    --Data de Resposta  ,@dtmSec_DataResposta datetime  --,'20070505'    ,@vchSec_ProvAdv varchar(60)    --login  ,@login varchar(50)  --,'ADMINISTRATOR'      --------------------x---------------------------------    as        set nocount on    /*  declare   @dtmSec_DatProt datetime  ,@numSec_Origem int  ,@numSec_OrIntDir int  ,@numSec_OrIntGer int  ,@numSec_OrIntAg int  ,@vchSec_OriExtDes varchar(50)  ,@vchSec_TipDoc varchar(50)  ,@numSec_numDoc varchar(50)  ,@vchSec_Assunto varchar(50)  ,@dtmSec_EntGer datetime  ,@dtmSec_SaiGer datetime  ,@vchSec_DestProt varchar(50)  ,@dtmSec_Fecha datetime  ,@vchSec_TipDocF varchar(50)  ,@vchSec_DescFech varchar(50)  ,@numSec_Destino int  ,@dtmSec_datuma datetime  ,@intSec_statusCtr int  ,@vchSec_Materia varchar(60)  ,@vchSec_Resposta varchar(60)  ,@vchSec_ProvAdv varchar(60)  ,@vchSec_Observ nvarchar(2000)    select		   ,@dtmSec_DatProt=dtmSec_DatProt  ,@numSec_Origem =@numSec_Origem   ,@numSec_OrIntDir=@numSec_OrIntDir  ,@numSec_OrIntGer=@numSec_OrIntGer  ,@numSec_OrIntAg=@numSec_OrIntAg   ,@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  ,@dtmSec_Fecha=@dtmSec_Fecha   ,@vchSec_TipDocF=@vchSec_TipDocF  ,@vchSec_DescFech=@vchSec_DescFech  ,@numSec_Destino=@numSec_Destino   ,@dtmSec_datuma=@dtmSec_datuma  ,@intSec_statusCtr=@intSec_statusCtr  ,@vchSec_Materia=@vchSec_Materia   ,@vchSec_Resposta=@vchSec_Resposta   ,@vchSec_ProvAdv=@vchSec_ProvAdv   ,@vchSec_Observ=@vchSec_Observ	from tbsecretaria   where numSec_NumProt=@numSec_NumProt	  and dtmSec_EntProt=@dtmSec_EntProt  */    BEGIN     begin tran    update tbSecretaria    set dtmSec_datEnt=@dtmSec_datEnt    --Matéria:    ,vchSec_Materia=@vchSec_Materia    --codigo do advogado    ,numAdv_Codigo=@numAdv_Codigo    --providencia    ,vchSec_Providencia =@vchSec_Providencia    --Estágio:    ,vchSec_Estagio =@vchSec_Estagio    --Prazo:     ,dtmSec_Prazo=@dtmSec_Prazo    --Direção Geral    ,numSec_DestDir=@numSec_DestDir    --Gereg    ,numSec_DestGer=@numSec_DestGer    --Agência    ,numSec_DestAg=@numSec_DestAg    --Destino externo    ,vchSec_DesExtDes=@vchSec_DesExtDes     --Data de Resposta    ,dtmSec_DataResposta=@dtmSec_DataResposta    --providencia   ,vchSec_ProvAdv = @vchSec_ProvAdv    where dtmSec_EntProt=@dtmSec_EntProt and numSec_NumProt=@numSec_NumProt  	 if @@error=0								 begin					     --commit tran      --Begin tran  	    insert into tbmov_secretaria     select      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     ,dtmSec_datEnt     ,vchSec_Materia     ,numAdv_Codigo     ,vchSec_Providencia     ,dtmSec_Prazo     ,vchSec_Resposta     ,vchSec_ProvAdv     ,dtmSec_DataResposta     ,vchSec_Observ     ,vchSec_Arquivo     ,vchSec_CamArqu  	   from tbsecretaria     where dtmSec_EntProt=@dtmSec_EntProt and numSec_NumProt=@numSec_NumProt     IF @@error=0							   Begin					   	commit tran   		  end					  	   Else				 	   Begin					  		  rollback					  	   End					  					 	 end					  	 else				 	 begin					  		rollback					  	 end					    END

<%sql=""Dim UserID, wUserName, wDominio, wUser, oUserUserID = ""If IsEmpty(UserID) Or IsNull(UserID) Or UserID = "" ThenUserID = 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 IfEnd IfGetName = ""wUserName = "Usuário não cadastrado"mudar = Split(UserID, "/")wDominio = mudar(0)wUser = mudar(1)Set oUser = GetObject("WinNT://" & wDominio & "/" & wUser)wUserName = oUser.FullNameIf err.Number <> 0 Then	err.Clear	wUserName = "erro - Usuário não cadastrado"End IfSession("UsuarioLogado")  = wUserNameSession("Login") = UCase(wUser)Session("Dominio") = UCase(wDominio)sug_dominio = UCase(wDominio)login =  UCase(wUser)sisid="1"on error resume next Response.Expires=0Response.Buffer = TRUEResponse.ClearbyteCount = Request.TotalBytesRequestBin = Request.BinaryRead(byteCount)Dim UploadRequestDim clipConexao , clipSql, DataNot, ano, mes, dia, foto, foto1, n, Assunto, Manchete, Fonte, Noticiadim ID_ARQ,ID_TIPOARQdim doc_nom,doc_caminhodim materiadim tipo_docSet 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		'data de entrada na coordenadoria	filedataentCoor =  UploadRequest.Item("dataentCoor").Item("Value")	if filedataentCoor="" then 		filedataentCoor= "19000101"	 else		filedataentCoor= right(filedataentCoor,4) &   right(left( filedataentCoor ,5 ),2) & left(filedataentCoor ,2 ) 	end if				'materia	filemateria =  UploadRequest.Item("materia").Item("Value")		'advogado	fileAdv=UploadRequest.Item("Adv").Item("Value")	if fileAdv ="" then		fileAdv = 0	end if		'providencia	fileprovidencia=UploadRequest.Item("providencia").Item("Value")	if fileprovidencia ="" then		fileprovidencia = 0	end if		'Direção Geral	filedirger1=UploadRequest.Item("dirger1").Item("Value")	if filedirger1 ="" then		filedirger1 = 0	end if			'Gereg:	filegereg1=UploadRequest.Item("gereg1").Item("Value")	if filegereg1 ="" then		filegereg1 = 0	end if	'agencia	fileagencia1=UploadRequest.Item("agencia1").Item("Value")	if fileagencia1 ="" then		fileagencia1 = 0	end if						'estagio	filedestino1=UploadRequest.Item("destino1").Item("Value")	if filedestino1 ="" then		filedestino1 = 0	end if		'prazo	fileprazo=UploadRequest.Item("prazo").Item("Value")	if fileprazo="" then 		fileprazo= "19000101"	 else		fileprazo= right(fileprazo,4) &   right(left( fileprazo ,5 ),2) & left(fileprazo ,2 ) 	end if		'Destino	filedestext=UploadRequest.Item("destext").Item("Value")	if filedestext ="" then		filedestext = 0	end if			'data de providencia do advogado	filedatresp=UploadRequest.Item("datresp").Item("Value")	if filedatresp="" then 		filedatresp= "19000101"	 else		filedatresp= right(filedatresp,4) &   right(left( filedatresp ,5 ),2) & left(filedatresp ,2 ) 	end if			fileprovadv=UploadRequest.Item("provadv").Item("Value")	if fileprovadv="" then 		fileprovadv= "19000101"	 else		fileprovadv= right(fileprovadv,4) &   right(left( fileprovadv ,5 ),2) & left(fileprovadv ,2 ) 	end if		 	sql  = "spt_IncluirCacon  '" & fileDataent & "','" & fileNumprotocolo & "','" & filedataentCoor & "','" & filemateria  & "'," & fileAdv & ",'" & fileprovidencia & "','" & filedestino1 & "','" & fileprazo & "',"  &  filedirger1 & "," & filegereg1 & "," & fileagencia1 & ",'" & filedestext & "','" &  filedatresp & "','"& fileprovadv & "','"  & Session("Login") & "'"		Response.Write sqlResponse.end'criando a variavel de comnexaoset objCmm	= CreateObject("ADODB.Connection")'criando a variavel do recordsetset sqlC		= server.CreateObject("ADODB.Recordset")'fazer a minha variavel de conexao receber a conexao do global asaobjCmm.Open	 Application("strConn")if	objCmm.Errors.Count <> 0 then	mensagem  = "Erro na Inclusão do protocolo!"else	mensagem  = "Operação com Sucesso!"end ifSET sqlC = objCmm.Execute (sql)	objCmm.Close()set objCmm=nothing	 'mensagem  = "Operação com Sucesso"	%><!--#include file="upload.asp"-->	<script LANGUAGE=javascript><!--		alert("<%=mensagem%>");		window.open("cacon.asp","_self");--></SCRIPT>

jrcardozo · Agosto 21, 2007

qual erro?

acfelipesilva · Agosto 21, 2007

Aparece um erro de javascript ou vbscript

Linha: 282Caractere: 6Erro: O Objeto não dá suporte para a propriedade ou método:'documento.secretaria.submit2'Código: 0URL: http//amazonianet-teste/portaljuridico/cacon.asp?numProtocolo=001&DatadoProtocolo=20070731

Essa linha onde dá o erro é justamente onde fica o código

Function EditarContrato(campo1,campo2) VAR= ("cacon.asp?numProtocolo=" & campo1 & "&DatadoProtocolo=" & campo2 ) navigate(VAR)End function

Tento dar response.write na sql e não funciona, pq como o erro pode estar no javascript ou vbscript, o comando nem chega para a pagina CadCacon_Insere.asp!!!Tens idéia do q pode ta acontecendo?

Leonardo Moura · Agosto 21, 2007

######### O Objeto não dá suporte para a propriedade ou método:'documento.secretaria.submit2'#########você criou uma variável com o nome de DOCUMENTO ou você quis dizer DOCUMENT ?

jrcardozo · Agosto 21, 2007

cara, o code é extenso pakas e tá confuso. No primeiro post parece ser uma página que busca os dados do banco e joga para um FORM para editar, esse form precisa estar algo assim pois me parece que você faz upload

<form action="minhapagina.asp" method="post" enctype="application/x-www-form-urlencoded" name="form1"></form>

não achei no codigo onde você chama essa função

Function EditarContrato(campo1,campo2)VAR= ("cacon.asp?numProtocolo=" & campo1 & "&DatadoProtocolo=" & campo2 )navigate(VAR)End function

Todavia imagino que o sql seja

Também não localizei a SP spt_IncluirCacon

navigate é uma function ou sub?

Se é javascript, não seia assim 'document.formulario.submit();'

Bom, resumindo, não consegui entender seu código(principalmente pq ele é extenso e teria que "estuda-lo", mas pela mensagem de erro apresentado parece ser pq você faz usa Request.BinaryRead(Request.TotalBytes) pra fazer algum upload e nessa mesma página está tentando fazer request.form para passar os parametros para campo1 e campo2 da função EditarContrato e o request não é permitido

Se puder simplificar ajuda pra compreender o código e facilita na solução

Desculpe não poder dar mais dicas, mas só isso que consegui concluir com as info que passaste

acfelipesilva · Agosto 21, 2007

######### O Objeto não dá suporte para a propriedade ou método:'documento.secretaria.submit2'#########você criou uma variável com o nome de DOCUMENTO ou você quis dizer DOCUMENT ?

Desculpe, Leo, é DOCUMENT mesmo...

acfelipesilva · Agosto 21, 2007

Cara, tu ta vendo a minah dificuldade para dar manutenção nesse código feito pelo técnico que saiu aqui da Empresa... Tô tentando entender, até pra poder passar aqui pro fórum pra ver alguém pode me ajudar... Bom, dei uma mexida no intuito de organizar mais...Vou postar 2 códigos, Cacon.Asp ---> CadCacon_Insere.asp Que apresenta os erros já mencionados acima...<%@LANGUAGE="vb script:VerConteudo window.event.keycode" value="<%=numSec_NumProt%>" readonly> <% else %> <input name="numprotocolo" type="text" class="textoss" id="numprotocolo" size="15" maxlength="15" OnKeyPress="vb script:Valida_data(dataprot,dataprot,'Atual','','','')" value="<%=dtmSec_DatProt%>" readonly> <% else %> <input name="dataprot" type="text" class="textoinibidos" id="dataprot" size="10" maxlength="10" onBlur="java script:Valida_data(dataprot,dataprot,'Atual','','','')" value="<%=dtmSec_DatProt%>" readonly> <% end if %> </td></tr> <% 'INICIO DO CONTROLE DA ORIGEM 'origem = 2 -> orgigem externa if numSec_Origem=2 then %> <tr> <td align="left" width="120"><font class="textoss">Origem Externa:</font></td> </tr> <tr> <td width="150" nowrap><font class="textoss"> Descrição da Origem :</font></td> <td align="left"> <input name="origext" type="text" class="textoinibidos" id="origext" size="20" maxlength="50" OnKeyPress="vb script:VerConteudo2 window.event.keycode" value="<%=vchSec_OriExtDes%>" readonly> </td> </tr> <tr> <tr> <td align="left" width="120"><font class="textoss">Origem Interna:</font></td> </tr> <tr> <td align="left" width="100"><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 %> <option value="<%=sqlDir("numdg_cod")%>"><%=sqlDir("vchDg_des")%></option> <% sqlDir.moveNext wend sqlDir.Close() set sqlDir=nothing %> </select> <script>document.secretaria.dirger.value="<%=trim(numSec_OrintDir)%>"; document.secretaria.dirger.disabled = true; </script> </tr> <tr> <td align="left" width="100"><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 tbAuxGereg 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.secretaria.gereg.value="<%=trim(numSec_OrIntGer)%>"; document.secretaria.gereg.disabled = true; </script> </td> </tr> <tr> <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.secretaria.agencia.value="<%=trim(numSec_OrIntag)%>"; document.secretaria.agencia.disabled = true; </script> </td> </tr> </tr>  <% end if 'FIM DO CONTROLE DA ORIGEM %> <tr> <td align="left" width="100" nowrap><font class="textoss">Tipo do Documento:</font></td> <td align="left"> <select name="tipdoc" id="tipdoc"> <option value selected>Selecione</option> <option value="CI">CI</option> <option value="CE">CE</option> </select> </td> <script>document.secretaria.tipdoc.value="<%=trim(vchSec_TipDoc)%>"; document.secretaria.tipdoc.disabled = true; </script> </tr> <tr> <td width="120"><font class="textoss">Número do Documento:</font></td> <td align="left"><input name="numdoc" type="text" class="textoinibidos" id="numdoc" size="15" maxlength="15" OnKeyPress="vb script:VerConteudo2 window.event.keycode" value="<%=trim(vchSec_Assunto)%>" readonly> </td> </tr> </table> </td> <td width="30%" align="top" valign="top" topmargin="0">   <%' if controle >= 1 then %>   <%' if controle=2 then %>  <table class="borda" border="0" width="100" valign="top" topmargin="0" align="top"> <tr> <td width="160"> <table border="0"> <tr> <td width="70%" align="top" valign="top" topmargin="0" nowrap><font class="textoss">Data de Entrada:</font></td> <td align="left" width="30%"> <input name="dataentCoor" type="text" class="textoss" id="dataentCoor" size="10" maxlength="10" readonly value="<%=dtmSec_Datent%>"> </td> </tr> <tr> <td align="left" width="40%"><font class="textoss">Matéria:</font></td> <td align="left" width="60%"> <select name="materia" id="materia"> <option value selected>Selecione</option> <option value="CIVEL">Civel</option> <option value="TRABALHISTA">Trabalhista</option> <option value="OUTROS">Outros</option> </select> <script>document.secretaria.materia.value="<%=trim(vchSec_Materia)%>";</script> </td> </tr> <tr align="left"> <td width="100%" align="left" colspan="2"><font class="textoss">Advogado:</font> <select name="Adv" id="Adv"> <option selected value="0">Selecione um Nome</option> <% while not sqlaD.EOF if codadv <> "0" Then if trim(sqlaD("ai_CODIGO")) = trim(ai_CODIGO) Then %> <option selected value="<%=sqlaD("ai_CODIGO")%>"> <%=trim(sqlaD("at_NOME"))%></option> <% else %> <option value="<%=sqlaD("ai_CODIGO")%>"><%=trim(sqlaD("at_NOME"))%></option> <% end if else %> <option value="<%=sqlaD("ai_CODIGO")%>"><%=trim(sqlaD("at_NOME"))%></option> <% end if sqlaD.moveNext wend sqlaD.Close() SET sqlaD=NOTHING %> </select> </td> </tr> <tr> <td align="left" width="100"><font class="textoss">Providência:</font></td> <td align="left"> <select name="providencia" id="providencia"> <option selected value>Selecione</option> <option value="JUDICIAL">Judicial</option> <option value="EXTRAJUDICIAL">Extrajudicial</option> </select> <script>document.secretaria.providencia.value="<%=trim(vchSec_Providencia)%>";</script> </td> </tr> <tr> <td width="120"><font class="textoss">Estágio:</font></td> <td align="left"> <select name="destino1" id="destino1"> <option VALUE selected>Selecione</option> <option value="ABERTO">Aberto</option> <option value="CONCLUÍDO">Concluído</option> <option value="FECHADOEXC">Fechado pela Coordenação</option> </select></td> <script>document.secretaria.destino1.value="<%=trim(vchSec_Estagio)%>";</script> </tr> <tr> <td width="120" nowrap><font class="textoss">Prazo:</font></td> <td align="left"><input name="prazo" type="text" class="textoss" id="prazo" size="10" maxlength="10" onKeyPress="return txtBoxFormat(document.secretaria, 'prazo', '99/99/9999', event)" onBlur="java script:Valida_data(prazo,prazo,'Anterior','','','')" VALUE="<%=dtmSec_Prazo%>"> </td> </tr>  <tr> <td align="left" width="120"><font class="textoss">Destino Interno:</font></td> </tr> <tr> <td colspan="2"> <table border="0"> <tr> <td align="left" width="40%" nowrap><font class="textoss">Direção Geral:</font></td> <td align="left" width="40%"> <select name="dirger1" id="dirger1"> <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 %> <option value="<%=sqlDir("numdg_cod")%>"><%=sqlDir("vchDg_des")%></option> <% sqlDir.moveNext wend sqlDir.Close() set sqlDir=nothing %> </select> <script>document.secretaria.dirger1.value="<%=numSec_DestDir%>";</script> </tr> <tr> <td align="left" width="50%"><font class="textoss">Gereg:</font></td> <td align="left" width="50%"> <select name="gereg1" id="gereg1"> <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 tbAuxGereg 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.secretaria.gereg1.value="<%=trim(numSec_DestGer)%>";</script> </tr> <tr width="120"> <td align="left" width="20%"><font class="textoss">Agência:</font></td> <td align="left" width="40%"><font class="textoss"> <select name="agencia1" id="agencia1"> <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> </td> <script>document.secretaria.agencia1.value="<%=trim(numSec_DestAg)%>";</script> </tr> </table> </td> </tr>  <tr> <td width="120"><font class="textoss">Destino Externo:</font> </td> <td align="left"><input name="destext" type="text" class="textoss" id="destext" size="15" maxlength="50" OnKeyPress="vb script:Valida_data(datresp,datresp,'Anterior','','','')" value="<%=dtmSec_DataResposta%>">--> <input name="datresp" type="text" class="textoss" id="datresp" size="10" onKeyPress="return txtBoxFormat(document.secretaria, 'datresp', '99/99/9999', event)" maxlength="10" onBlur="java script:Valida_data(datresp,datresp,'Anterior','','','')" value="<%=dtmSec_DataResposta%>" title="Inicio"> </td> </tr> </table> <%'end if %> <%'end if%> </td> </tr> </table> </td> </tr></table><table width="200" align="center" border="0"> <tr> <td> <% 'if controle=2 and vchSec_DestProt = "CACON" then if controle=2 and vchSec_DestProt = "CACON" and vchSec_Estagio="ABERTO" then %> <input type="button" value="Gravar" onClick="incluir()" class="bt" onMouseOut="java script:this.className='bt'" onMouseOver="java script:this.className='bthover'" id="submit1" name="submit1" <%=objScap1.RestObj (35)%>> <% else if controle < 2 then %> <input type="button" value="Gravar" onClick="incluir()" class="bt" onMouseOut="java script:this.className='bt'" onMouseOver="java script:this.className='bthover'" id="submit1" name="submit1" <%=objScap1.RestObj (36)%>> <%'else %> <% end if %> <% end if %>  <input type="button" value="Fechar" onClick="self.location='inicial.asp'" class="bt" onMouseOut="java script:this.className='bt'" onMouseOver="java script:this.className='bthover'" id="submit3" name="submit3" <%=objScap1.RestObj (37)%>> </td> </tr> </table><% end if %><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"> <div class="links"> <table width="98%" border="0" cellspacing="0" cellpadding="0" bgcolor="#Fffffb" height="40"> <tr> <td height="20" valign="top" width="2%"> </td> <td height="20" valign="top" width="96%"> <table width="100%" style="border-bottom: 1 solid #999999" class="textosleft"> <tr bgcolor="#008000">  <td bgcolor="#Fffffb" width="20%"><font class="textoss">Nº do Protocolo</font></td> <td bgcolor="#Fffffb" width="20%"><font class="textoss">Dt. Entrada</font></td> <td bgcolor="#Fffffb" width="20%"><font class="textoss">Data do Protocolo</font></td> <td bgcolor="#Fffffb" width="10%"><font class="textoss">Coordenadoria</font></td> <td bgcolor="#Fffffb" width="40%"><font class="textoss">Estágio</font></td>  </tr> </table> </td> <td height="0" valign="top" width="2%"> </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") sql2 = " exec consultaProtocolo_002 'CACON'" SET listagem = objCmm.Execute (sql2) IF not listagem.EOF then CorAtu = "#FFFFFF" while not listagem.EOF If contador = 0 then contador = 1 %> <tr bgcolor="#C2E9A9"> <% else contador = 0 %> <tr bgcolor="#ffffff"> <% End if %> <td width="2%">  <td style="cursor:hand" width="20%" onClick= "EditarContrato('<%=listagem("numSec_NumProt").value %>','<%=trim(listagem("data_parametro"))%>')"><font class="textosc" > <%=listagem("numSec_NumProt").value%> </font></td> <td style="cursor:hand" width="20%" onClick="EditarContrato('<%=listagem("numSec_NumProt").value %>','<%=trim(listagem("data_parametro"))%>')"><font class="textosc" ><%=listagem("dtmSec_EntProt").value%></font></td> <td style="cursor:hand" width="20%" onClick= "EditarContrato('<%=listagem("numSec_NumProt").value %>','<%=trim(listagem("data_parametro"))%>')"> <font class="textosc" > <%=listagem("dtmSec_DATProt").value%></font></td> <td style="cursor:hand" width="12%" onClick= "EditarContrato('<%=listagem("numSec_NumProt").value %>','<%=trim(listagem("data_parametro"))%>')"> <font class="textosc" > <%=listagem("vchSec_DestProt")%></font></td> <td style="cursor:hand" width="28%" onClick= "EditarContrato('<%=listagem("numSec_NumProt").value %>','<%=trim(listagem("data_parametro"))%>')"> <font class="textosc" > <%=listagem("vchSec_Estagio").value%></font></td> </tr> <% 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> </td> </tr></table></form></body></html><%objCmm.close()set objCmm= nothing%>

Arquivado

Problemas com Inserção de Dados + ASP + SQL Server 2000

Recommended Posts

acfelipesilva 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

acfelipesilva 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

acfelipesilva 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Leonardo Moura 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

acfelipesilva 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

acfelipesilva 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Estou criando uma calculadora de m2 e litros de tinta

Cruzamento de Bases

Consulta sem duplicação

Fóruns

Tempo Real

Informação importante