Erro na Atualização - meus amigos(as)

[acfelipesilva 0]

Boa tarde!

 

Senhores(as),

 

Já não sei mais a quem recorrer, não consigo "matar" o problema dessa página, preciso atualizar os dados de de um página asp, porém o consigo fazer. O problema é que não fui em quem desenvolvi o sistema, logo estou repleto de problemas e o mais grave é esse, essa parte da atualização... Bom, a página onde os dados são digitados chama-se cadastroterceirizado_atualiza.asp e página que faz a "brincadeira" de atualizar e dar resposta ao usário é CadTer_Atualiza.asp...

 

Vou postar o código para o senhores veêm o que poderá ser feito. Sempre dá o erro msg "Erro na Atualização..."

Trata-se da mensagem de tratamento que o técnico anterior fez, mas não consigo nenhuma resposta positiva...

 

Agradeço a todos q puderem dar esta força...

 

CÓDIGO DE cadastroterceirizado_atualiza.asp

 

<%'Response.Write "Oi"'Response.endresponse.cookies("id").expires = DateAdd("d",0,Now)response.expires=0 'vence instantaneamente Response.CacheControl = "Private"'codigo = request("codadv")'numContrato = Request("numcontrato")'Response.Write codigo & "-" 'Response.Write numcontrato'Response.endDim sqlsqlADV = "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")'Response.Write codigo & "-" 'Response.Write numcontrato'Response.write "oi" & request("codadv")'Response.endIf 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"	'Response.Write "passei aki"else   ai_Codigo  = ""   at_END	 = ""   at_UF	  = ""   at_CEP	 = ""   at_TEL_FAX = ""   at_CID	 = ""   controle="1" End if	 'Response.write "numContrato:" & numContrato & "----"'Response.end  'If numContrato <> null  then if numContrato <> "" and  numContrato <> "0"  then	stQuery2 = "ConsultaContrato " & Codigo &  " , " & numContrato  	'Response.Write "oi" &stQuery2	'Response.end	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")  'Response.Write at_agencia  'Response.end		'Response.Write "passei aki"	'controle=""	 obRS2.close()	set obRS2=nothing	'at_END	 = obRS2("at_END")	'at_UF	  = obRS2("at_UF")	'at_CEP	 = obRS2("at_CEP")	'at_TEL_FAX = obRS2("at_TEL_FAX")	'at_CID	 = obRS2("at_CID")   else   at_contrato  = ""   at_jurisdicao	 = ""   at_objeto	  =  ""   at_inicio=""   at_fim=""   at_origem=""   at_dirger="0"   at_gereg = "0"   at_agencia="0"   'at_CEP	 = ""   'at_TEL_FAX = ""   'at_CID	 = ""   'controle="" End if	 'Response.Write at_objeto& "1"'Response.end'Trecho incluído em 17/07/2007'Set objScap1 = Server.CreateObject("SCAP1.clsSisLock")'objScap1.UsuarioLogin = Session("Login")   'wResultAtual = objScap1.Mensagem   	'If wResultAtual <> vb script: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"> 		</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="vb script: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="java script: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="java script:this.className='bt'" onMouseOver="java script:this.className='bthover'" id="submit1" name="submit1" >	  	<input onClick="reset2()" value="Limpar" class="bt" onMouseOut="java script:this.className='bt'" onMouseOver="java script:this.className='bthover'" id="submit2" name="submit2" size="20">  	<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">  <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"> <div class="links">					<table width="84%" 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 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%"> </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="java script:this.className='linkover'" onMouseOut="java script: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"> <%=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><%'if ai_Codigo="" then'	Response.Write("<script type=""text/javascript""> document.getElementById(""carregando"").style.display = ""none"";</script>")'end if 	objCmm.Close()set objCmm=nothing	%>

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

CÓDIGO DE CadTer_Atualiza.asp

 

<%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				'CAMINHO FÍSICO DA INSERÇÃO DO ARQUIVO	'pasta= (server.mappath("\"))& "\portaljuridico\arquivos\" 	'TIPO DO ARQUIVO(WORD,FOTO)	'contentType = UploadRequest.Item("foto").Item("ContentType") 	'CAMINHO FÍSICO COMPLETO DO ARQUIVO	'pega o valor do documento	'filepathname2 =  UploadRequest.Item("agencia").Item("Value")'0	'1	fileEndereco =  UploadRequest.Item("endereco").Item("Value")	fileCidade =  UploadRequest.Item("cidade").Item("Value")	fileUf =  UploadRequest.Item("Uf").Item("Value")	fileCep =  UploadRequest.Item("cep").Item("Value")	filetel=  UploadRequest.Item("tel").Item("Value")'2	fileOrigem =  UploadRequest.Item("origem").Item("Value")	filenumcontrato =  UploadRequest.Item("numcontrato").Item("Value")	filedirger =  UploadRequest.Item("dirger").Item("Value")	filegereg =  UploadRequest.Item("gereg").Item("Value")	fileAgencia =  UploadRequest.Item("agencia").Item("Value")	filejurisdicao =  UploadRequest.Item("jurisdicao").Item("Value")	fileAdv =  UploadRequest.Item("Adv").Item("Value")		 				fileIniciovig =  UploadRequest.Item("iniciovig").Item("Value")	if fileIniciovig="" then 		fileIniciovig= "17530101"	else		fileIniciovig= right(fileIniciovig,4) &   right(left( fileIniciovig ,5 ),2) & left(fileIniciovig ,2 ) 	end if					fileFimvig =  UploadRequest.Item("fimvig").Item("Value")	if fileFimvig="" then 		fileFimvig= "17530101"	else		fileFimvig= right(fileFimvig,4) &   right(left( fileFimvig ,5 ),2) & left(fileFimvig,2 ) 	end if					fileObjtext =  UploadRequest.Item("objtext").Item("Value")	filedtastatus = UploadRequest.Item("dtastatus").Item("Value")			'Pega o valor do código do tipo de arquivo no formulario	'filepathname = UploadRequest.Item("foto").Item("FileName") 	'materia = UploadRequest.Item("materia").Item("Value")	'assunto = UploadRequest.Item("assunto").Item("Value")		'Response.Write "Endereco:  " & fileEndereco & fileAdv&  "<br>"	'Response.Write "Cidade:  " & fileCidade & "<br>"	'Response.Write "Uf:  " & fileUf & "<br>"	'Response.Write "cep:  " & fileCep & "<br>"	'Response.Write "Tel:  " & filetel & "<br>"	'Response.Write "---------------   Formulario 2  -----------  <br>"		'Response.Write "Origem:  " & fileOrigem & "<br>"	'Response.Write "Numero do contrato:  " & filenumcontrato & "<br>"	'Response.Write "Diretriz:  " & filedirger & "<br>"	'Response.Write "Gereg:  " & filegereg & "<br>"	'Response.Write "Agencia:  " & fileAgencia & "<br>"	'Response.Write "Jurisdicao:  " & filejurisdicao & "<br>"	'Response.Write "Jurisdicao:  " & filejurisdicao & "<br>"	' Response.write  fileObjtext  & "','"& fileIniciovig  & "','" & fileFimvig  &"'"	'Response.end		if filegereg= "" then		filegereg="0"	end if	if fileAgencia= "" then		fileAgencia="0"	end if	 	 'if fileJurisdicao = "" then	'	fileJurisdicao="0"	'end if			'teste	'Response.end		'criando a variavel de 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")'sql = "exec spt_incluirTerceirizado  '" & doc_nom & "','" & filepathname2 & "','" & materia & "','" & assunto & "','" & doc_caminho & "'"if filedirger = "" then 	filedirger="0"end ifif filegereg = "" then 	filegereg="0"end if		if fileAgencia = "" then 	fileAgencia="0"end if		if filejurisdicao="" thenfilejurisdicao= "0"end ifsql =  "exec sp_ATUALIZA_cadctrterceiro  '" & login & "'," & fileAdv & ",'"  & filenumcontrato & "','" & fileOrigem & "','" & filedirger & "' ,'" & filegereg &  "'," & fileAgencia & ",'" & filejurisdicao &"','"  & fileObjtext  & "','" & fileIniciovig  & "','" & fileFimvig  &"','" & filedtastatus & "'"'Response.Write sql'Response.end 	 			SET sqlC = objCmm.Execute (sql)	if	objCmm.Errors.Count <> 0 then	mensagem  = "Erro na Atualização..."else	mensagem  = "Atualização com Sucesso!"end ifobjCmm.Close()set objCmm=nothing	 'mensagem  = "Operação com Sucesso"'end if						'End If	%>	<!--#include file="upload.asp"-->		<script LANGUAGE=javascript>	<!--		alert("<%=mensagem%>");		window.open("cadastroterceirizado.asp","_self");	-->	</SCRIPT>

[jrcardozo 4]

você está usando uma stored procedure pra atualizar os dados, tem que ver como ela estádá algum erro?outra coisa, essa variavel fileAdv recebe um valor do tipo integer ou varchar?