Ir para conteúdo
Fórum Script Brasil
  • 0

Erro no Botão Radio

Guest Visitante

Perguntado por Guest Visitante,

 Share

Pergunta

Guest Visitante

Guest Visitante

Postado
Postado

Galera mais uma vez preciso da ajuda de vocês, estou fazendo um campo de busca no meu cadastroo de clientes, afim de facilitar quando necessaria a alteração de dados, a consulta esta funcionando, mas a opção de alterar da erro no botão radio, na verdade ele não esta abrindo o registro selecionado, sera q podem me ajudar .. segue os codigos abaixo:

<%

Dim strURL

Dim cnnSearch

Dim rstSearch

Dim strDBPath

Dim objRs

Dim strSQL

Dim strSearch

inicio = Timer

'#Função que tira todos os acentos das palavras

function TiraAcento(StrAcento)

for i = 1 to len(StrAcento)

Letra = mid(StrAcento, i, 1)

Select Case Letra

Case "á","Á","à","À","ã","Ã","â","Â","â","ä","Ä"

Letra = "A"

Case "é","É","ê","Ê","Ë","ë","È","è"

Letra = "E"

Case "í","Í","ï","Ï","Ì","ì"

Letra = "I"

Case "ó","Ó","ô","Ô","õ","Õ","ö","Ö","ò","Ò"

Letra = "O"

Case "ú","Ú","Ù","ù","ú","û","ü","Ü","Û"

Letra = "U"

Case "ç","Ç"

Letra = "C"

Case "não"

Letra = "N"

End Select

texto = texto & Letra

next

TiraAcento = texto

end function

strURL = Request.ServerVariables("URL")

Set ObjRs = objConn.Execute(strQuery)

strSearch = Request.QueryString("search")

%><title>:. Consulta Jurídica :. </title>

<body bgcolor="#E4E4E4">

<script>

<!--

function pop1( ) {

window.open('associados.asp','janela01','status=no,resizable=no,scrollbars=no,menubar=no,width=600,height=618,left=20,top=21') ;

}

//-->

</script>

<script>

<!--

function pop2( ) {

window.open('escolhe_pra_auterar2.asp','janela01','status=no,resizable=no,scrollbars=yes,menubar=no,width=828,height=498,left=20,top=21') ;

}

//-->

</script>

<table width="445" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F2FFF2">

<tr>

<td bgcolor="#EFEFEF" width="812">

<table width="768" border="0" cellpadding="2" style="border-collapse: collapse" height="120">

<tr>

<TD align=middle valign="top" bgcolor="#EBEBEB" height="5" style="font-family: VPSA online system" width="794">

<b>

<font face="Tahoma" style="font-size: 12pt">

<img border="0" src="inclusao_juridico.jpg" width="802" height="70"></font></b></TD>

</tr>

<tr>

<TD align=middle bgcolor="#EFEFEF" height="19" style="font-family: VPSA online system" width="794">

&nbsp;</TD>

</tr>

<tr>

<td bgcolor="#EFEFEF" height="19" width="794">

&nbsp;</td>

</tr>

<tr>

<td bgcolor="#EFEFEF" height="61" width="794">

<form action="<%= strURL %>" method="get">

<div align="center">

<b><font face="Tahoma" size="2">Digite o nome do Devedor&nbsp; </font></b>

<font color="#008000">

<input name="search" value="<%= strSearch %>" size="33" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; background-color: #A1C094" /></font>

<font color="#008000">

<input name="submit" type="submit" value="busca" style="font-family: Tahoma; font-size: 8 pt; font-weight: bold; background-color: #A1C094" /> </font>

</div>

<div align="center">

&nbsp;</div>

</form>

<p align="center">

<%

If strSearch <> "" Then

strDBPath = Server.MapPath("contato.mdb")

Const adUseClient = 3

Set cnnSearch = Server.CreateObject("ADODB.Connection")

cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"

cnnSearch.CursorLocation = adUseClient

strSQL = "SELECT devedor, valor, datainclusao, serasa, datacordo, valorpagamento,quitacao, Associado,Andamento,documento " _

& "FROM Juridico " _

& "WHERE devedor LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _

& "OR documento LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _

& "ORDER BY devedor;"

Set rstSearch = cnnSearch.Execute(strSQL)

intContador = rstSearch.RecordCount

%>

</p></td>

</tr>

</table>

<p align="center"><br>

<font face="Tahoma" style="font-size: 8pt"><b>( Foram encontradas&nbsp;<%=intContador%>

ocorrências )</b></font></p>

<form method="GET" action="alterar_juridico.asp">

<div align="center" style="width: 808; height: 246">

<table width="779" border="0" cellpadding="4" cellspacing="0" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#111111">

<tr>

<th width="1034" bgcolor="#6E9F4D" align="left"><strong>

<font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Devedor</font></strong></th>

<th width="1034" bgcolor="#6E9F4D" align="left"><strong>

<font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Associado</font></strong></th>

<th width="76" bgcolor="#6E9F4D"><strong>

<font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Documento</font></strong></th>

<th width="64" bgcolor="#6E9F4D"><strong>

<font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Valor</font></strong></th>

<td width="50" height="1" align="center" bgcolor="#6E9F4D">

<font face="Tahoma" color="#FFFFFF"><b>

<span style="font-size: 8pt">Alterar</span></b></font></td>

<td width="50" height="1" align="center" bgcolor="#6E9F4D">

&nbsp;</td>

<th width="4" bgcolor="#EFEFEF" align="left">&nbsp;</th>

</tr>

<%

Do While Not rstSearch.EOF

%>

<tr>

<%While Not objRS.EOF %>

<td bgcolor="#FFFFFF" width="1034" align="left"><font size="1" face="Tahoma"><%= rstSearch.Fields("devedor").Value %></font></td>

<td bgcolor="#FFFFFF" width="1034" align="left"><font size="1" face="Tahoma"><%= rstSearch.Fields("Associado").Value %></font></td>

<td bgcolor="#FFFFFF" width="76" align="center">

<div align="center"><font size="1" face="Tahoma"><%= rstSearch.Fields("documento").Value %></font></div></td>

<td bgcolor="#FFFFFF" width="64" align="center">

<div align="center"><font size="1" face="Tahoma"><%= rstSearch.Fields("valor").Value %></font></div></td>

<td width="50" height="1" align="center"> <div align="center"><b>

<font size="1" color="#808080" face="Arial">

<input type="radio" name="radio" value="<%=objRS(0)%>"></font></b><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000">

</font> </b></font></div></td>

<td width="50" height="1" align="center">

<input type="image" src="btn_ok.jpg" border="0" name="I1" alt="Clique aqui para alterar"></td>

<td bgcolor="#EFEFEF" width="4" align="left">

&nbsp;</td>

</tr>

</table>

<font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>

</font><b>

<font face="Tahoma" style="font-size: 8pt">&nbsp;Sua busca foi processada em

<%response.write FormatNumber( Timer - inicio, 2 )%>

segundos.<br>

&nbsp;</font></b><p>&nbsp;</div></td> </form>

</tr>

<%

'Move para o próximo registro

objRS.MoveNext

Wend

'Fechando as conexões

objRs.close

objConn.close

Set objRs = Nothing

Set objConn = Nothing

%>

</table>

<p>&nbsp;</p>

Arquivo q abre os registro:

<%

On error resume Next

Dim objConn, stringSQL, strConnection, id, strDBPath

id = Request.QueryString("radio")

' Conectando com o banco de dados contato.mdb

Set objConn = Server.CreateObject("ADODB.Connection")

Set objRS = Server.CreateObject("ADODB.Connection")

'objConn.Open "DBQ=" & Server.MapPath("contato.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

strDBPath = Server.MapPath("contato.mdb")

objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"

stringSQL = "SELECT * FROM Juridico WHERE autonum= "&id

Set objRS = objConn.Execute(stringSQL)

'Deletando registro da tabela contato onde esta a id

if err <> 0 Then%>

<html>

<head>

<title>:. Fgcom Controle de Associaddos v1.0 :.</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>

<head>

<body bgcolor="#E4E4E4">

<style type="text/css">

#meuselect

{

width:100px;background:#F0FFF0;font:11px arial,helvetica, sans-serif;color:#36648B;

}

#meuselect option.stit

{

width:135px; background-color:#C1CDCD; color:#003366;

}

#meuselect option.sep

{

width:135px; background-color:#FFFFFF; color:#000000;

}

#meuselect option.impar

{

width:135px; background-color:#E0EEE0; color:#003300;

}

#meuselect option.par

{

width:110px; background-color:#F0FFF0; color:#006600;

}

</style>

<div align="center"><b>

<font size="2" color="#FF0000" face="Verdana, Arial, Helvetica, sans-serif">

Ocorreu algum erro!</font><font face="Verdana, Arial, Helvetica, sans-serif"><font size="2"><br>

</font>

<a href="java script:history.back(-1)">Volta</a></font></b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><a href="java script:history.back(-1)"></a></font></div>

<div align="center" style="width: 1002; height: 535; background-color: #F4FFF4">

<center>

<table width="445" border="0" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111">

<tr>

<td bgcolor="#FFFFFF" width="966" valign="top" style="border-style: none; border-width: medium">

<%else%>

<div align="center">

<center>

<table width="39%" border="0" cellspacing="1" height="1" style="border-width: 0; border-collapse:collapse" bordercolor="#111111">

<tr>

<TD align=middle valign="top" bgcolor="#FFFFFF" height="47" style="border-style:none; border-width:medium; font-family: VPSA online system">

<b>

<font face="Tahoma" style="font-size: 12pt">

<img border="0" src="inclusao_juridico.jpg" width="786" height="70"></font></b></TD>

</tr>

</table>

</center>

</div>

<div align="center"></div>

<form method="POST" action="altera_dados_juridico.asp" name="form" onsubmit="return valida_campo()">

<input type="hidden" name="autonum" value="<%=objRS("autonum")%>">

<div align="center" style="width: 791; height: 343">

<center>

<table width="449" border="0" cellspacing="0" cellpadding="0">

<tr>

<td bordercolor="#F4FFF4" width="538">

<table width="783" height="1" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">

<tr>

<td width="4393" colspan="11" height="32" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-left-style:solid; border-left-width:1; border-right-style:solid; border-right-width:1; border-top-style:solid; border-top-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p align="center"><font face="Tahoma" color="#008000">

<span style="font-size: 10pt; font-weight: 700">Cadastro de Inclusões</span></font></td>

</tr>

<tr>

<td width="460" height="1" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-left-style:solid; border-left-width:1; border-right-style:none; border-right-width:medium" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="459" height="1" style="border-style:none; border-width:medium; font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="414" height="1" style="border-style:none; border-width:medium; font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="157" height="1" style="border-style:none; border-width:medium; font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p align="right">

<b><font face="Tahoma" style="font-size: 8pt" color="#008000">Empresa</font></b></td>

<td width="2194" colspan="6" height="1" style="border-style:none; border-width:medium; font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p align="left">

<font face="Tahoma" color="#008000">

<b>

<INPUT id=email5 maxLength=80 name=Associado

style="border-style:solid; border-width:1; BACKGROUND-COLOR: #A1C094; FONT-SIZE: 8 pt; font-family:Tahoma; padding-left:4; padding-right:4; padding-top:1; padding-bottom:1" size="83" value="<%=objRS("Associado")%>"></b></font></td>

<td width="709" height="1" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-left-style:none; border-left-width:medium; border-right-style:solid; border-right-width:1; border-top-style:none; border-top-width:medium; border-bottom-style:none; border-bottom-width:medium" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

</tr>

<tr>

<td width="460" height="11" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-left-style:solid; border-left-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="459" height="11" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="414" height="11" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="157" height="11" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p align="right"><b><font face="Tahoma" style="font-size: 8pt" color="#008000">

Devedor:</font></b></td>

<td width="2194" colspan="6" height="11" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p style="margin-top:0; margin-bottom:0">

<font face="Tahoma"><b><font color="#008000">

<INPUT id=email0 maxLength=60 name=devedor

style="border-style:solid; border-width:1; BACKGROUND-COLOR: #A1C094; FONT-SIZE: 8 pt; font-family:Tahoma; padding-left:4; padding-right:4; padding-top:1; padding-bottom:1" size="75" value="<%=objRS("devedor")%>"></font></b></font></td>

<td width="709" height="11" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-right-style:solid; border-right-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

</tr>

<tr>

<td width="389" valign="middle" height="1" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-left-style:solid; border-left-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094" colspan="4">

<p align="right"><b><font face="Tahoma" style="font-size: 8pt" color="#008000">

Inclusão:</font></b></td>

<td width="2293" valign="top" height="1" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-bottom-style:none; border-bottom-width:medium" bgcolor="#EFEFEF" bordercolor="#A1C094" colspan="6">

<p style="margin-top:0; margin-bottom:0">

<font face="Tahoma"><b><font color="#008000">

<INPUT id=email2 maxLength=60 name=datainclusao

style="border-style:solid; border-width:1; BACKGROUND-COLOR: #A1C094; FONT-SIZE: 8 pt; font-family:Tahoma; padding-left:4; padding-right:4; padding-top:1; padding-bottom:1" size="10" value="<%=objRS("datainclusao")%>"></font></b></font></td>

<td width="677" valign="top" height="1" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-right-style:solid; border-right-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

</tr>

<tr>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-left-style:solid; border-left-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="459" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="414" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="157" height="1" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-right-style:none; border-right-width:medium" bgcolor="#EFEFEF" bordercolor="#A1C094" align="right">

<b><font face="Tahoma" style="font-size: 8pt" color="#008000">Documento:&nbsp;

</font></b></td>

<td width="814" colspan="3" height="1" valign="top" style="border-style:none; border-width:medium; font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p style="margin-top:0; margin-bottom:0">

<font face="Tahoma"><b><font color="#008000">

<!--webbot bot="Validation" b-value-required="TRUE" i-minimum-length="4" i-maximum-length="12" --><INPUT class=botao id=senha2 maxLength=12 name=documento

style="border-style:solid; border-width:1; BACKGROUND-COLOR: #A1C094; FONT-SIZE: 8 pt; font-family:Tahoma; padding-left:4; padding-right:4; padding-top:1; padding-bottom:1" size="16" value="<%=objRS("documento")%>"></font></b></font></td>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-left-style:none; border-left-width:medium" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p style="margin-top: 0; margin-bottom: 0">&nbsp;</td>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p style="margin-top: 0; margin-bottom: 0">&nbsp;</td>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p style="margin-top: 0; margin-bottom: 0">&nbsp;</td>

<td width="709" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-right-style:solid; border-right-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

</tr>

<tr>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-left-style:solid; border-left-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="459" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="414" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="157" height="1" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-right-style:none; border-right-width:medium" bgcolor="#EFEFEF" bordercolor="#A1C094" align="right">

<b><font face="Tahoma" style="font-size: 8pt" color="#008000">Valor:</font></b></td>

<td width="814" colspan="3" height="1" valign="top" style="border-style:none; border-width:medium; font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p style="margin-top:0; margin-bottom:0">

<font face="Tahoma"><b><font color="#008000">

<!--webbot bot="Validation" b-value-required="TRUE" i-minimum-length="4" i-maximum-length="12" --><INPUT class=botao id=senha2 maxLength=12 name=valor

style="border-style:solid; border-width:1; BACKGROUND-COLOR: #A1C094; FONT-SIZE: 8 pt; font-family:Tahoma; padding-left:4; padding-right:4; padding-top:1; padding-bottom:1" size="11" value="<%=objRS("valor")%>"></font></b></font></td>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-left-style:none; border-left-width:medium" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p style="margin-top: 0; margin-bottom: 0">&nbsp;</td>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p style="margin-top: 0; margin-bottom: 0">&nbsp;</td>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p style="margin-top: 0; margin-bottom: 0">&nbsp;</td>

<td width="709" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-right-style:solid; border-right-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

</tr>

<tr>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-left-style:solid; border-left-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="459" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="414" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="157" height="1" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-right-style:none; border-right-width:medium" bgcolor="#EFEFEF" bordercolor="#A1C094" align="right">

<b><font face="Tahoma" style="font-size: 8pt" color="#008000">SCPC:</font></b></td>

<td width="814" colspan="3" height="1" valign="top" style="border-style:none; border-width:medium; font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p style="margin-top:0; margin-bottom:0">

<font face="Tahoma"><b><font color="#008000">

<!--webbot bot="Validation" b-value-required="TRUE" i-minimum-length="4" i-maximum-length="12" --><INPUT class=botao id=senha2 maxLength=12 name=serasa

style="border-style:solid; border-width:1; BACKGROUND-COLOR: #A1C094; FONT-SIZE: 8 pt; font-family:Tahoma; padding-left:4; padding-right:4; padding-top:1; padding-bottom:1" size="10" value="<%=objRS("serasa")%>"></font></b></font></td>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-left-style:none; border-left-width:medium" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p style="margin-top: 0; margin-bottom: 0">&nbsp;</td>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p style="margin-top: 0; margin-bottom: 0">&nbsp;</td>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p style="margin-top: 0; margin-bottom: 0">&nbsp;</td>

<td width="709" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-right-style:solid; border-right-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

</tr>

<tr>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-left-style:solid; border-left-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="459" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="571" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094" colspan="2" align="right">

<b><font face="Tahoma" style="font-size: 8pt" color="#008000">&nbsp; Data

Acordo:</font></b></td>

<td width="814" colspan="3" height="1" valign="top" style="border-style:none; border-width:medium; font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p style="margin-top:0; margin-bottom:0">

<font face="Tahoma"><b><font color="#008000">

<!--webbot bot="Validation" b-value-required="TRUE" i-minimum-length="4" i-maximum-length="12" --><INPUT class=botao id=senha2 maxLength=12 name=datacordo

style="border-style:solid; border-width:1; BACKGROUND-COLOR: #A1C094; FONT-SIZE: 8 pt; font-family:Tahoma; padding-left:4; padding-right:4; padding-top:1; padding-bottom:1" size="11" value="<%=objRS("datacordo")%>"></font></b></font></td>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-left-style:none; border-left-width:medium" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p style="margin-top: 0; margin-bottom: 0">&nbsp;</td>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p style="margin-top: 0; margin-bottom: 0">&nbsp;</td>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p style="margin-top: 0; margin-bottom: 0">&nbsp;</td>

<td width="709" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-right-style:solid; border-right-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

</tr>

<tr>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-left-style:solid; border-left-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="459" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="571" height="1" valign="middle" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094" colspan="2" align="right">

<b><font face="Tahoma" style="font-size: 8pt" color="#008000">&nbsp; Valor&nbsp;

Acordo:</font></b></td>

<td width="814" colspan="3" height="1" valign="top" style="border-style:none; border-width:medium; font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p style="margin-top:0; margin-bottom:0">

<font face="Tahoma"><b><font color="#008000">

<!--webbot bot="Validation" b-value-required="TRUE" i-minimum-length="4" i-maximum-length="12" --><INPUT class=botao id=senha2 maxLength=12 name=valoracordo

style="border-style:solid; border-width:1; BACKGROUND-COLOR: #A1C094; FONT-SIZE: 8 pt; font-family:Tahoma; padding-left:4; padding-right:4; padding-top:1; padding-bottom:1" size="11" value="<%=objRS("valoracordo")%>"></font></b></font></td>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-left-style:none; border-left-width:medium" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p style="margin-top: 0; margin-bottom: 0">&nbsp;</td>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p style="margin-top: 0; margin-bottom: 0">&nbsp;</td>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p style="margin-top: 0; margin-bottom: 0">&nbsp;</td>

<td width="709" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-right-style:solid; border-right-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

</tr>

<tr>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-left-style:solid; border-left-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="459" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="414" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="157" height="1" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-right-style:none; border-right-width:medium" bgcolor="#EFEFEF" bordercolor="#A1C094" align="right">

<b><font face="Tahoma" style="font-size: 8pt" color="#008000">Valor Pago:</font></b></td>

<td width="814" colspan="3" height="1" valign="top" style="border-style:none; border-width:medium; font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p style="margin-top:0; margin-bottom:0">

<font face="Tahoma"><b><font color="#008000">

<!--webbot bot="Validation" b-value-required="TRUE" i-minimum-length="4" i-maximum-length="12" --><INPUT class=botao id=senha2 maxLength=12 name=valorpagamento

style="border-style:solid; border-width:1; BACKGROUND-COLOR: #A1C094; FONT-SIZE: 8 pt; font-family:Tahoma; padding-left:4; padding-right:4; padding-top:1; padding-bottom:1" size="5" value="<%=objRS("valorpagamento")%>"></font></b></font></td>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-left-style:none; border-left-width:medium" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p style="margin-top: 0; margin-bottom: 0">&nbsp;</td>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p style="margin-top: 0; margin-bottom: 0">&nbsp;</td>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p style="margin-top: 0; margin-bottom: 0">&nbsp;</td>

<td width="709" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-right-style:solid; border-right-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

</tr>

<tr>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-left-style:solid; border-left-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="459" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="414" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="157" height="1" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-right-style:none; border-right-width:medium" bgcolor="#EFEFEF" bordercolor="#A1C094" align="right">

<b><font face="Tahoma" style="font-size: 8pt" color="#008000">Quitação:</font></b></td>

<td width="814" colspan="3" height="1" valign="top" style="border-style:none; border-width:medium; font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p style="margin-top:0; margin-bottom:0">

<font face="Tahoma"><b><font color="#008000">

<!--webbot bot="Validation" b-value-required="TRUE" i-minimum-length="4" i-maximum-length="12" --><INPUT class=botao id=senha2 maxLength=12 name=quitacao

style="border-style:solid; border-width:1; BACKGROUND-COLOR: #A1C094; FONT-SIZE: 8 pt; font-family:Tahoma; padding-left:4; padding-right:4; padding-top:1; padding-bottom:1" size="5" value="<%=objRS("quitacao")%>"></font></b></font></td>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-left-style:none; border-left-width:medium" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p style="margin-top: 0; margin-bottom: 0">&nbsp;</td>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p style="margin-top: 0; margin-bottom: 0">&nbsp;</td>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p style="margin-top: 0; margin-bottom: 0">&nbsp;</td>

<td width="709" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-right-style:solid; border-right-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

</tr>

<tr>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-left-style:solid; border-left-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="459" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="414" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="157" height="1" valign="middle" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-right-style:none; border-right-width:medium" bgcolor="#EFEFEF" bordercolor="#A1C094" align="right">

<b><font face="Tahoma" style="font-size: 8pt" color="#008000">Andamento:</font></b></td>

<td width="814" colspan="3" height="1" valign="top" style="border-style:none; border-width:medium; font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p style="margin-top:0; margin-bottom:0">

<font size="2" face="Verdana" style="font-size: 8pt" color="#FFFFFF">

<textarea cols="88" name="Andamento" rows="7" style="border:1px solid #000000; padding-left: 4px; padding-right: 4px; padding-top: 1px; padding-bottom: 1px; font-size:8 pt; font-family:Tahoma; color:#000000; background-color:#A1C094"><%=objRS("Andamento")%></textarea></font></td>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-left-style:none; border-left-width:medium" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p style="margin-top: 0; margin-bottom: 0">&nbsp;</td>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p style="margin-top: 0; margin-bottom: 0">&nbsp;</td>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p style="margin-top: 0; margin-bottom: 0">&nbsp;</td>

<td width="709" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-right-style:solid; border-right-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

</tr>

<tr>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-left-style:solid; border-left-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="459" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="414" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="157" height="1" valign="middle" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-right-style:none; border-right-width:medium" bgcolor="#EFEFEF" bordercolor="#A1C094" align="right">

&nbsp;</td>

<td width="814" colspan="3" height="1" valign="top" style="border-style:none; border-width:medium; font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-left-style:none; border-left-width:medium" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="709" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-right-style:solid; border-right-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

</tr>

<tr>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-left-style:solid; border-left-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="459" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="414" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="157" height="1" valign="middle" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-right-style:none; border-right-width:medium" bgcolor="#EFEFEF" bordercolor="#A1C094" align="right">

&nbsp;</td>

<td width="814" colspan="3" height="1" valign="top" style="border-style:none; border-width:medium; font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-left-style:none; border-left-width:medium" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="460" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="709" height="1" valign="top" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-right-style:solid; border-right-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

</tr>

<tr>

<td width="3175" height="1" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-left-style:solid; border-left-width:1; border-right-style:solid; border-right-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094" colspan="11">

&nbsp;</td>

</tr>

<tr>

<td width="3175" height="1" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-left-style:solid; border-left-width:1; border-right-style:solid; border-right-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094" colspan="11">

<hr color="#A1C094" noshade>

<div style="border-right: 1px solid #A1C094">

&nbsp;</div>

</td>

</tr>

<tr>

<td width="272" height="32" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-left-style:solid; border-left-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="271" height="32" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="226" height="32" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="1" height="32" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="685" height="32" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094" valign="middle">

<p align="center">

<font face="Tahoma"><span style="font-size: 8pt">

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

<input type="submit" value="Alterar" name="enviar" style="font-size: 8 pt; font-family: Tahoma; font-weight: bold; background-color: #A1C094"></span></font></td>

<td width="326" height="32" valign="middle" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094" colspan="2">

<p align="left">

<font face="Tahoma"><span style="font-size: 8pt">

<input type="submit" value="Exlcluir" name="enviar1" style="font-size: 8 pt; font-family: Tahoma; font-weight: bold; background-color: #A1C094"></span></font></td>

<td width="288" height="32" valign="middle" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

<p align="center">

<font face="Tahoma"><span style="font-size: 8pt">

<input type="button" value="Imprimir" name="Imprimir" OnClick="java script:DoPrinting()" style="font-size: 8 pt; font-family: Tahoma; font-weight: bold; background-color: #A1C094"></span></font></td>

<td width="288" height="32" valign="bottom" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="288" height="32" valign="bottom" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="537" height="32" valign="bottom" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-right-style:solid; border-right-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

</tr>

<tr>

<td width="272" height="22" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-left-style:solid; border-left-width:1; border-bottom-style:solid; border-bottom-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="271" height="22" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-bottom-style:solid; border-bottom-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="226" height="22" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-bottom-style:solid; border-bottom-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="1" height="22" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-bottom-style:solid; border-bottom-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="685" height="22" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-bottom-style:solid; border-bottom-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="37" height="22" valign="bottom" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-bottom-style:solid; border-bottom-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="289" height="22" valign="bottom" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-bottom-style:solid; border-bottom-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="288" height="22" valign="bottom" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-bottom-style:solid; border-bottom-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="288" height="22" valign="bottom" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-bottom-style:solid; border-bottom-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="288" height="22" valign="bottom" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-bottom-style:solid; border-bottom-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

<td width="537" height="22" valign="bottom" style="font-size: 9px; font-family: Verdana, Arial, Helvetica, sans-serif; border-right-style:solid; border-right-width:1; border-bottom-style:solid; border-bottom-width:1" bgcolor="#EFEFEF" bordercolor="#A1C094">

&nbsp;</td>

</tr>

</table></td>

</tr> <script language="JavaScript1.2">

<!--

function DoPrinting(){

if (!window.print){

alert("Use o Netscape ou Internet Explorer \n nas versões 4.0 ou superior!")

return

}

window.print()

}

//-->

</script>

</table>

</center>

</div>

</form>

<%end if%>

</td>

</tr>

</table>

</center>

</div>

</body>

</html>

Arquivo q altera os dados:

<%

'Força o programador a declarar todas as variáveis, evitando erro de digitação no uso das variéveis

Option Explicit

'Não deixa informações no Cache

Response.Expires = 0

'Declaração das variáveis

Dim objConn, strQuery, sql_query, RsQuery, campo, sql, autonum, strDBPath

Dim Associado,devedor,datainclusao,documento,valor,serasa,datacordo,valoracordo,valorpagamento,Andamento,quitacao,ObjRs

'Atrubuição dos valores as respectivas variáveis

Associado= Request.Form("Associado")

devedor= Request.Form("devedor")

datainclusao= Request.Form("datainclusao")

documento= Request.Form("documento")

valor= Request.Form("valor")

serasa= Request.Form("serasa")

datacordo= Request.Form("datacordo")

valoracordo= Request.Form("valoracordo")

valorpagamento= Request.Form("valorpagamento")

Andamento= Request.Form("Andamento")

quitacao= Request.Form("quitacao")

autonum = Request.Form("autonum")

'Cria o objeto RecordSet e atribui a variável

Set objConn = Server.CreateObject("ADODB.Connection")

'Abre a conexão com o banco de dados utilizando o Drive {Microsoft Access...

'(para utilizar outro, ex: Paradox é só substituir o Drive pelo do Paradox)

'(*.mdb) indica que o arquivo utiliza extensão mdb

'objConn.Open "DBQ=" & Server.MapPath("contato.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

strDBPath = Server.MapPath("contato.mdb")

objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"

'não vou permitir a alteração da foto senão você já viu néw

strQuery = "UPDATE Juridico SET Associado= '"&Associado&"',devedor= '"&devedor&"',datainclusao= '"&datainclusao&"' ,documento= '"&documento&"',valor= '"&valor&"',serasa= '"&serasa&"',datacordo= '"&datacordo&"',valoracordo= '"&valoracordo&"' ,valorpagamento= '"&valorpagamento&"' ,Andamento= '"&Andamento&"' ,quitacao= '"&quitacao&"' WHERE autonum ="&autonum

'Caso ocorra um erro esta função de erro será chamada

On error Resume Next

'Executaa inserção no Banco de Dados

Set ObjRs = objConn.Execute(strQuery)

'Fecha o Objeto de Conexão

objConn.close

'"APAGA" qualquer instancia que possa ter no objeto objRs e objConn

Set objRs = Nothing

Set objConn = Nothing

if err = 0 Then

end if

%><p align="center">

<font face="Verdana" size="3" color="#FFFFFF">

</font>

<!-- depois de enviado o email... -->

<script language="JavaScript">alert('Cadastro efetuado com sucesso!');

location.href='todas_inclusoes.asp';</script>

</font>

<body>

<body>

[]ços

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 0
jow

jow

Postado
Postado

Ná Página onde você altera os dados altere por este script !!

<%
'Força o programador a declarar todas as variáveis, evitando erro de digitação no uso das variéveis
Option Explicit

'Não deixa informações no Cache
Response.Expires = 0

'Declaração das variáveis
Dim objConn, strQuery, sql_query, RsQuery, campo, sql, autonum, strDBPath
Dim Associado,devedor,datainclusao,documento,valor,serasa,datacordo,valoracordo,valo
rpagamento,Andamento,quitacao,ObjRs

'Atrubuição dos valores as respectivas variáveis
Associado= Request.Form("Associado")
devedor= Request.Form("devedor")
datainclusao= Request.Form("datainclusao")
documento= Request.Form("documento")
valor= Request.Form("valor")
serasa= Request.Form("serasa")
datacordo= Request.Form("datacordo")
valoracordo= Request.Form("valoracordo")
valorpagamento= Request.Form("valorpagamento")
Andamento= Request.Form("Andamento")
quitacao= Request.Form("quitacao")
autonum = Request.Form("autonum")

autonum = Request.QueryString("radio")

'Cria o objeto RecordSet e atribui a variável 
Set objConn = Server.CreateObject("ADODB.Connection")
'Abre a conexão com o banco de dados utilizando o Drive {Microsoft Access...
'(para utilizar outro, ex: Paradox é só substituir o Drive pelo do Paradox)
'(*.mdb) indica que o arquivo utiliza extensão mdb
'objConn.Open "DBQ=" & Server.MapPath("contato.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"
strDBPath = Server.MapPath("contato.mdb")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"

'não vou permitir a alteração da foto senão você já viu néw
strQuery = "UPDATE Juridico SET Associado= '"&Associado&"',devedor= '"&devedor&"',datainclusao= '"&datainclusao&"' ,documento= '"&documento&"',valor= '"&valor&"',serasa= '"&serasa&"',datacordo= '"&datacordo&"',valoracordo= '"&valoracordo&"' ,valorpagamento= '"&valorpagamento&"' ,Andamento= '"&Andamento&"' ,quitacao= '"&quitacao&"' WHERE autonum ="&autonum

'Caso ocorra um erro esta função de erro será chamada
On error Resume Next
'Executaa inserção no Banco de Dados 
Set ObjRs = objConn.Execute(strQuery)
'Fecha o Objeto de Conexão
objConn.close
'"APAGA" qualquer instancia que possa ter no objeto objRs e objConn
Set objRs = Nothing
Set objConn = Nothing 
if err = 0 Then
end if
%><p align="center">
<font face="Verdana" size="3" color="#FFFFFF">
</font>
<!-- depois de enviado o email... -->
<script language="JavaScript">alert('Cadastro efetuado com sucesso!');
location.href='todas_inclusoes.asp';</script>

</font>
</body>

Obs: isso funciona este script está OK, mas do jeito q você quer fazer não vai alterar nada, porque ao escolher você já está mandando fazer o update então vai alterar para q já está, o certo seria ao selecionar o radio ir para um formulário de alteração e como ação esse formulário envia para a página de update dos dados .... Qualquer coisa posta ae Abraçossss

Link para o comentário
Compartilhar em outros sites
  • 0
Guest Visitante

Guest Visitante

Postado
Postado

Segue a pagina:

<%

Dim strURL

Dim cnnSearch

Dim rstSearch

Dim strDBPath

Dim objRs

Dim strSQL

Dim strSearch

inicio = Timer

'#Função que tira todos os acentos das palavras

function TiraAcento(StrAcento)

for i = 1 to len(StrAcento)

Letra = mid(StrAcento, i, 1)

Select Case Letra

Case "á","Á","à","À","ã","Ã","â","Â","â","ä","Ä"

Letra = "A"

Case "é","É","ê","Ê","Ë","ë","È","è"

Letra = "E"

Case "í","Í","ï","Ï","Ì","ì"

Letra = "I"

Case "ó","Ó","ô","Ô","õ","Õ","ö","Ö","ò","Ò"

Letra = "O"

Case "ú","Ú","Ù","ù","ú","û","ü","Ü","Û"

Letra = "U"

Case "ç","Ç"

Letra = "C"

Case "não"

Letra = "N"

End Select

texto = texto & Letra

next

TiraAcento = texto

end function

strURL = Request.ServerVariables("URL")

Set ObjRs = objConn.Execute(strQuery)

strSearch = Request.QueryString("search")

%><title>:. Consulta Jurídica :. </title>

<body bgcolor="#E4E4E4">

&lt;script>

<!--

function pop1( ) {

window.open('associados.asp','janela01','status=no,resizable=no,scrollbars=no,menubar=no,width=600,height=618,left=20

,top=21') ;

}

//-->

</script>

&lt;script>

<!--

function pop2( ) {

window.open('escolhe_pra_auterar2.asp','janela01','status=no,resizable=no,scrollbars=yes,menubar=no,width=828,height=498,left=2

0,top=21') ;

}

//-->

</script>

<table width="445" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#F2FFF2">

<tr>

<td bgcolor="#EFEFEF" width="812">

<table width="768" border="0" cellpadding="2" style="border-collapse: collapse" height="120">

<tr>

<TD align=middle valign="top" bgcolor="#EBEBEB" height="5" style="font-family: VPSA online system" width="794">

<b>

<font face="Tahoma" style="font-size: 12pt">

<img border="0" src="inclusao_juridico.jpg" width="802" height="70"></font></b></TD>

</tr>

<tr>

<TD align=middle bgcolor="#EFEFEF" height="19" style="font-family: VPSA online system" width="794">

 </TD>

</tr>

<tr>

<td bgcolor="#EFEFEF" height="19" width="794">

 </td>

</tr>

<tr>

<td bgcolor="#EFEFEF" height="61" width="794">

<form action="<%= strURL %>" method="get">

<div align="center">

<b><font face="Tahoma" size="2">Digite o nome do Devedor  </font></b>

<font color="#008000">

<input name="search" value="<%= strSearch %>" size="33" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; background-color: #A1C094" /></font>

<font color="#008000">

<input name="submit" type="submit" value="busca" style="font-family: Tahoma; font-size: 8 pt; font-weight: bold; background-color: #A1C094" /> </font>

</div>

<div align="center">

 </div>

</form>

<p align="center">

<%

If strSearch <> "" Then

strDBPath = Server.MapPath("contato.mdb")

Const adUseClient = 3

Set cnnSearch = Server.CreateObject("ADODB.Connection")

cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"

cnnSearch.CursorLocation = adUseClient

strSQL = "SELECT devedor, valor, datainclusao, serasa, datacordo, valorpagamento,quitacao, Associado,Andamento,documento " _

& "FROM Juridico " _

& "WHERE devedor LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _

& "OR documento LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _

& "ORDER BY devedor;"

Set rstSearch = cnnSearch.Execute(strSQL)

intContador = rstSearch.RecordCount

%>

</p></td>

</tr>

</table>

<p align="center"><br>

<font face="Tahoma" style="font-size: 8pt"><b>( Foram encontradas <%=intContador%>

ocorrências )</b></font></p>

<form method="GET" action="alterar_juridico.asp">

<div align="center" style="width: 808; height: 246">

<table width="779" border="0" cellpadding="4" cellspacing="0" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#111111">

<tr>

<th width="1034" bgcolor="#6E9F4D" align="left"><strong>

<font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Devedor</font></strong></th>

<th width="1034" bgcolor="#6E9F4D" align="left"><strong>

<font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Associado</font></strong></th>

<th width="76" bgcolor="#6E9F4D"><strong>

<font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Documento</font></strong></th>

<th width="64" bgcolor="#6E9F4D"><strong>

<font face="Tahoma" style="font-size: 8pt" color="#FFFFFF">Valor</font></strong></th>

<td width="50" height="1" align="center" bgcolor="#6E9F4D">

<font face="Tahoma" color="#FFFFFF"><b>

<span style="font-size: 8pt">Alterar</span></b></font></td>

<td width="50" height="1" align="center" bgcolor="#6E9F4D">

 </td>

<th width="4" bgcolor="#EFEFEF" align="left"> </th>

</tr>

<%

Do While Not rstSearch.EOF

%>

<tr>

<%While Not objRS.EOF %>

<td bgcolor="#FFFFFF" width="1034" align="left"><font size="1" face="Tahoma"><%= rstSearch.Fields("devedor").Value %></font></td>

<td bgcolor="#FFFFFF" width="1034" align="left"><font size="1" face="Tahoma"><%= rstSearch.Fields("Associado").Value %></font></td>

<td bgcolor="#FFFFFF" width="76" align="center">

<div align="center"><font size="1" face="Tahoma"><%= rstSearch.Fields("documento").Value %></font></div></td>

<td bgcolor="#FFFFFF" width="64" align="center">

<div align="center"><font size="1" face="Tahoma"><%= rstSearch.Fields("valor").Value %></font></div></td>

<td width="50" height="1" align="center"> <div align="center"><b>

<font size="1" color="#808080" face="Arial">

<input type="radio" name="radio" value="<%=objRS(0)%>"></font></b><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000">

</font> </b></font></div></td>

<td width="50" height="1" align="center">

<input type="image" src="btn_ok.jpg" border="0" name="I1" alt="Clique aqui para alterar"></td>

<td bgcolor="#EFEFEF" width="4" align="left">

 </td>

</tr>

</table>

<font size="1" face="Verdana, Arial, Helvetica, sans-serif"><br>

</font><b>

<font face="Tahoma" style="font-size: 8pt"> Sua busca foi processada em

<%response.write FormatNumber( Timer - inicio, 2 )%>

segundos.<br>

 </font></b><p> </div></td> </form>

</tr>

<%

'Move para o próximo registro

objRS.MoveNext

Wend

'Fechando as conexões

objRs.close

objConn.close

Set objRs = Nothing

Set objConn = Nothing

%>

</table>

<p> </p>

[]ços

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...