Galera com listagem de dados

[cabral51 0]

E ae galera, valew a todos pela ajuda antecipadamente!!

Eu fiz um modo para ser mostrados o numero de processo e abaixo dele em uma tabela os serviços referentes a ele, porem se esse processo naum tenha pedido naum eh para mostrar nada!

 

http://www.grupomercosul.com.br/manutencao...cias_pagas.html

 

eh o seguinte como vcs podem ver ele esta repetindo o processo vou postar o codigo:

CODE

 

<%

<%

strsql="SELECT distinct * from processos,parcelas,pedidos,clientes"

strsql= strsql & " where clientes.acesso='"&codigox&"'"

strsql= strsql & " and clientes.cadastro=processos.cadastro_proc"

strsql= strsql & " and processos.processo=pedidos.fin_processo"

strsql= strsql & " And pedidos.fin_ped= parcelas.fin_pedido"

strsql= strsql & " and PARCELAS.FIN_DT_REC_CH > #01/01/1995#"

set tbBanco3=banco.Execute(strSQL)

if not tbbanco3.eof then

While not tbbanco3.eof

%>

Processo: <% =tbbanco3("processo") %><br><br>

 

 

<table width="1269" border="1" align="center">

 

 

<tr bgcolor="#DBF0FB">

<td width="290" class="style53"><div align="center">Serviço</div></td>

<td width="160" class="style53"><p align="center">Data<br>

Pedido</p></td>

<td width="168" class="style53"><div align="center">Valor<br>

Pedido</div></td>

 

<td width="123" class="style53"><p align="center">Nº<br>

Parcelas </p></td>

<td width="151" class="style53"><div align="center">Valor<br>

Parcelas</div></td>

<td width="148" class="style53"><div align="center">Data de<br>

Vencimento da <br>

Parcela</div></td>

</tr>

<%

strsql="SELECT * from pedidos,parcelas where pedidos.fin_processo=" & tbbanco3("processo")

strsql= strsql & " And pedidos.fin_ped= parcelas.fin_pedido"

strsql= strsql & " and PARCELAS.FIN_DT_REC_CH > #01/01/1995#"

set tbBanco2=banco.Execute(strSQL)

if not tbbanco2.eof then

While not tbbanco2.eof

 

%>

<tr bgcolor="white">

<td class="style54"><div align="center"><%=tbbanco2("fin_servico")%></div></td>

<td class="style54"><div align="center"><%=tbbanco2("fin_dt_ped")%></div></td>

<td class="style54"><div align="center"><%=tbbanco2("fin_vr_ped")%></div></td>

<td height="26" class="style54"><div align="center"><%=tbbanco2("fin_conposicao_serv")%></div></td>

<td class="style54"><div align="center"><%=tbbanco2("fin_parcela")%></div></td>

<td class="style54"><div align="center"><%=tbbanco2("fin_vr_parc")%></div></td>

<td class="style54"><div align="center"><%=tbbanco2("fin_vcto_parc")%></div></td>

</tr>

 

 

 

<%

' analise=tbbanco3("processo")

tbbanco2.movenext

wend

 

else%>

<p>não</p>

 

<%

end if

tbBanco2.Close

set tbBanco2=Nothing %>

 

</table>

<br>

<%

 

 

tbbanco3.movenext

wend

end if

tbBanco3.Close

set tbBanco3=Nothing

 

%>

 

</form>

 

 

</div>

</body>

<% tbBanco1.Close

set tbBanco1=Nothing

else

tbBanco1.Close

set tbBanco1=Nothing

'response.write "ta errado"

'response.End()

'response.Redirect("index.asp?erro=2")

call fecha_banco

end if

%>

</html>

 

 

 

como naum repetilo??

[Ted k' 126]

"""While not tbbanco2.eof"""""

 

retire o Do While, pois isso é que faz repetir os dados, tirando isso você só mostra um código....

 

 

pela sua explicação foi isso que entendi!!!

 

abraços!!!!!!

[cabral51 0]

Brigado pela ajuda mas deixa eu te explicar, esse while ele faz com que gere linhas na tabela enquanto akele processo conter pedidos entendeu??entaum naum posso tirar esse while!!

[cabral51 0]

Alguem sabe??

[Ted k' 126]

veja bem, quero entender, então você está me dizendo os dados ou o dado fica repetindo várias vezes é?

 

por favor seja mais direto para eu poder te auxiliar...

 

você ñ quer que isso aconteça é? ou é outra coisa?

[cabral51 0]

Na primeira consulta se eu colocar select * from processos ele naum repete, o problema eh o seguinte ele lista os dados dessa formaProcesso: 123subitens(segundo sql)Nos subitens ele lista os pedidos e parcelas, porem caso o cliente naum tenha parcelas naum deve ser mostrado e eh ae q eu me ferro

[Mário Monteiro 179]

e como voce sabe que nao tem?? algum campo fica em branco ou vazio ou nulo?Se for acho que um simples IF dentro do seu segundo laço de repetição resolveria

[jrcardozo 4]

cabral, não estudei seu código, mas pelo que explicou no msn a logica é essa:

set rsProcesso=conexao.execute("select * from tabela where campo="&variavel&"")if not rsProcesso.eof thendo while not rsProcesso.eofresponse.write(rsProcesso("campo"))set rsDetalhes =conexao.execute("select * from tabela where id="&rsProcesso("id")&"")do while not rsDetalhes.eofresponse.write(rsDetalhes("campoDetalhe"))rsDetalhes.movenextlooprsProcesso.movenextloopend if

para verificar se o processo deve ser impresso você tem que muda o primeiro sql do recordset....faça um inner join com a tabela dos detalhes e passe o parametro que deseja verificar para ele listar apenas o que você quer.Não sei onde coloquei o banco que você enviou, acho que está no serviço, se encontrar monto o sql e te passo

[jrcardozo 4]

faz o teste ai adapta para teu layout, só não sabia qual o campo que você quer passar de parametro no primeiro sql, qualquer coisa avisa aeee

 

<%sql=	" SELECT DISTINCT PROCESSOS.PROCESSO"sql=sql&" FROM PARCELAS INNER JOIN ((PROCESSOS INNER JOIN CLIENTES ON PROCESSOS.CADASTRO_PROC=CLIENTES.CADASTRO) INNER JOIN PEDIDOS ON PROCESSOS.PROCESSO=PEDIDOS.FIN_PROCESS0) ON PARCELAS.FIN_PEDIDO=PEDIDOS.FIN_PED"sql=sql&" WHERE (CLIENTES.ACESSO = '"&codigox&"')"sql=sql&" GROUP BY PROCESSOS.PROCESSO, PARCELAS.FIN_DT_REC_CH, PARCELAS.FIN_PARCELA"sql=sql&" HAVING (PARCELAS.FIN_DT_REC_CH > #1/1/1995#) AND (PARCELAS.FIN_PARCELA Is Not Null)"sql=sql&" ORDER BY PROCESSOS.PROCESSO;"'response.write(sql)set rs1=con.execute(sql)if not rs1.eof then do while not rs1.eof  response.write ("<b>"&rs1("processo")&"</b><br>")  sql=	 " SELECT PEDIDOS.FIN_SERVICO, PEDIDOS.FIN_DT_PED, PEDIDOS.FIN_VR_PED, PEDIDOS.FIN_CONPOSICAO_SERV, PARCELAS.FIN_PARCELA, PARCELAS.FIN_VR_PARC, PARCELAS.FIN_VCTO_PARC"  sql=sql& " FROM PEDIDOS INNER JOIN PARCELAS ON PEDIDOS.FIN_PED = PARCELAS.FIN_PEDIDO"  sql=sql& " WHERE (((PEDIDOS.FIN_PROCESS0)="&rs1("processo")&"))"  sql=sql& " GROUP BY PARCELAS.FIN_DT_REC_CH, PEDIDOS.FIN_SERVICO, PEDIDOS.FIN_DT_PED, PEDIDOS.FIN_VR_PED, PEDIDOS.FIN_CONPOSICAO_SERV, PARCELAS.FIN_PARCELA, PARCELAS.FIN_VR_PARC, PARCELAS.FIN_VCTO_PARC"  sql=sql& " HAVING (((PARCELAS.FIN_DT_REC_CH)>#1/1/1995#));"  set rs2=con.execute(sql)  if not rs2.eof then   do while not rs2.eof	response.write(rs2("fin_vcto_parc")&"<br>")	rs2.movenext   loop  end if  rs1.movenext loopend if%>

[cabral51 0]

Com o inner join naum da...

Olha a logica q eu usei:

 

<% strsql="SELECT distinct clientes.acesso,processos.processo,processos.cadastro_proc,pedidos.fin_ped,parcelas.fin_dt_rec_ch,parcelas.fin_pedido"strsql= strsql & " from processos,parcelas,pedidos,clientes"strsql= strsql & " where pedidos.fin_ped= parcelas.fin_pedido"strsql= strsql & " and processos.processo in (select fin_processo from pedidos)"strsql= strsql & " and PARCELAS.FIN_DT_REC_CH > #01/01/1995#"strsql= strsql & " and clientes.acesso='"&codigox&"'"strsql= strsql & " and clientes.cadastro=processos.cadastro_proc"set tbBanco3=banco.Execute(strSQL)if not tbbanco3.eof thenWhile not tbbanco3.eof%>	 <p>Processo:<%=tbbanco3("processo")%></p>	<table width="1269" border="1" align="center">	  <tr bgcolor="#DBF0FB"> 		<td width="290" class="style53"><div align="center">Serviço</div></td>		<td width="160" class="style53"><p align="center">Data<br>			Pedido</p></td>		<td width="168" class="style53"><div align="center">Valor<br>			Pedido</div></td>				<td width="123" class="style53"><p align="center">Nº<br>			Parcelas </p></td>		<td width="151" class="style53"><div align="center">Valor<br>			Parcelas</div></td>		<td width="148" class="style53"><div align="center">Data de<br>			Vencimento da <br>			Parcela</div></td>	  </tr><% strsql="SELECT processos.processo,pedidos.*,parcelas.*"strsql= strsql & " from processos,parcelas,pedidos"strsql= strsql & " where pedidos.fin_ped= parcelas.fin_pedido"strsql= strsql & " and processos.processo=" & tbbanco3("processo")strsql= strsql & " and PARCELAS.FIN_DT_REC_CH > #01/01/1995#"set tbBanco2=banco.Execute(strSQL)if not tbbanco2.eof thenWhile not tbbanco2.eof%>  <tr bgcolor="white"> 		<td class="style54"><div align="center"><%=tbbanco2("fin_servico")%></div></td>		<td class="style54"><div align="center"><%=tbbanco2("fin_dt_ped")%></div></td>		<td class="style54"><div align="center"><%=tbbanco2("fin_vr_ped")%></div></td>	   <td class="style54"><div align="center"><%=tbbanco2("fin_parcela")%></div></td>		<td class="style54"><div align="center"><%=tbbanco2("fin_vr_parc")%></div></td>		<td class="style54"><div align="center"><%=tbbanco2("fin_vcto_parc")%></div></td>	  </tr><%		'	 analise=tbbanco3("processo")			 tbbanco2.movenext			 wend					 			end if			tbBanco2.Close 			set tbBanco2=Nothing %>	</table>	<br><%			tbbanco3.movenext			' analise=tbbanco3("processo")			wend	   		end if			tbBanco3.Close 			set tbBanco3=Nothing 			 %>

So que ele repete varias vezes o processo e os serviços deste processo!!

Isso ta me dando uma dor de cabeça!!

[jrcardozo 4]

pq não dá inner join? fz o teste com o codigo que te passei, apenas crie uma nova página e crie uma conexao chamada "con", coloque um valor para a variavel "codigox". Fiz o teste aqui(achei o banco) e rodou certinho. De repente você fez o inner join errado por isso não dava.....se fizer o teste vai ver que os dados não repetem e só mostra os processos que tenha esse campo PARCELAS.FIN_PARCELA <> nulo(usei esse campo apenas para teste, se for outro é só mudar)

[cabral51 0]

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

 

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

 

/manutencao/pendencias_pagas.asp, line 161

 

strsql=   " SELECT PEDIDOS.FIN_SERVICO, PEDIDOS.FIN_DT_PED, PEDIDOS.FIN_VR_PED, PEDIDOS.FIN_CONPOSICAO_SERV, PARCELAS.FIN_PARCELA, PARCELAS.FIN_VR_PARC, PARCELAS.FIN_VCTO_PARC"  strsql=strsql& " FROM PEDIDOS INNER JOIN PARCELAS ON PEDIDOS.FIN_PED = PARCELAS.FIN_PEDIDO"  strsql=strsql& " WHERE (((PEDIDOS.FIN_PROCESS0)="&tbbanco3("processo")&"))"  strsql=strsql& " GROUP BY PARCELAS.FIN_DT_REC_CH, PEDIDOS.FIN_SERVICO, PEDIDOS.FIN_DT_PED, PEDIDOS.FIN_VR_PED, PEDIDOS.FIN_CONPOSICAO_SERV, PARCELAS.FIN_PARCELA, PARCELAS.FIN_VR_PARC, PARCELAS.FIN_VCTO_PARC"  strsql=strsql& " HAVING (((PARCELAS.FIN_DT_REC_CH)>#1/1/1995#))"set tbBanco2=banco.Execute(strSQL)if not tbbanco2.eof thenWhile not tbbanco2.eof%>  <tr bgcolor="white"> 		<td class="style54"><div align="center"><%=tbbanco2("fin_servico")%></div></td>		<td class="style54"><div align="center"><%=tbbanco2("fin_dt_ped")%></div></td>		<td class="style54"><div align="center"><%=tbbanco2("fin_vr_ped")%></div></td>	   <td class="style54"><div align="center"><%=tbbanco2("fin_parcela")%></div></td>		<td class="style54"><div align="center"><%=tbbanco2("fin_vr_parc")%></div></td>		<td class="style54"><div align="center"><%=tbbanco2("fin_vcto_parc")%></div></td>	  </tr><%		'	 analise=tbbanco3("processo")			 tbbanco2.movenext			 wend					 			end if			%>	</table>	<br><%			tbbanco3.movenext			processo=tbbanco3("processo")			wend	   		end if			tbBanco2.Close 			set tbBanco2=Nothing 			tbBanco3.Close 			set tbBanco3=Nothing 			 %>

Naum entendi o pq dessa linha: strsql=strsql&" HAVING (PARCELAS.FIN_DT_REC_CH > #1/1/1995#) AND (PARCELAS.FIN_PARCELA Is Not Null)"

 

and parcelas.fin_parcela is not null??

Naum entendi

 

 

Tem alguns processos que naum estao na tabela pedidos e esses naum devem mostrar, mas eles naum estao nulos eles naum existem

[cabral51 0]

Galera valew a todos pela ajuda!!!

Mas ja esta finalizado o jonathan fez tudo HAUehAUE!!

valew a todos vo postar como fikou!!

Abraços!!

 

<% @Language=VbScript %><% Option Explicit %><!--#include file="bibconexaocli.asp"--><%  RESPONSE.BUFFER = TRUE  session.LCID = 1046' Banco de Dados e Tabelas  Dim i,wcor,analise,novadata2,novadata,novadata3,item,banco,tbBanco,tbBanco1,tbBanco2,msg,strsql,bancario,entid,codigox,listar,prospect,arquivo,arquivos,fso,tbbanco3,tbbanco4,tbbanco5,processo   codigox = trim(request.form("codigox"))if codigox="" then	codigox = trim(request.querystring("codigox"))end ifif codigox="" then	response.Redirect("index.asp?erro=1")end ifcall abre_banco'Set banco= server.createobject("adodb.connection")'banco.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("banco_cli.mdb") wcor="#FFEBD7"%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd"><html><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><title>Untitled Document</title><style type="text/css"><!--#master {	position:relative;	font-family:Verdana, Arial, Helvetica, sans-serif;}#overflow {height:400px;overflow:auto;}.a link{text-decoration:none;color:#000000;}.a hoover{text-decoration:none;color:#000000;}.a visited{text-decoration:none;color:#000000;}.style4 {font-family:Verdana, Arial, Helvetica, sans-serif;font-weight:800;font-size:14px;color:#FFFFFF;text-align:center;vertical-align:middle;}.style12 {	font-family:Verdana, Arial, Helvetica, sans-serif;	color: #FF6600;	font-weight: bold;}.style18 {font-family: Verdana, Arial, Helvetica, sans-serif; font-weight: bold; font-size: 14px; font-color: #000000;}.style20 {font-size: 18px; color: #FF6600; font-family:Verdana, Arial, Helvetica, sans-serif;}.style48 {color: #000000}.style49 {font-weight: bold; font-family: Verdana, Arial, Helvetica, sans-serif;}.style50 {color: #FF6600}.style51 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-color: #000000;}.style52 {color: #FFFFFF}.style53 {font-family: Verdana, Arial, Helvetica, sans-serif; font-weight: bold; font-size: 14px; font-color: #000000;}.style54 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-color: #000000;}--></style></head><body> <div id="master">  <table width="1024" height="80px" border="0">	<tr>	  <td><img src="topoproc5.gif"></td>	</tr>  </table>  <table width="1000">  <tr align="center" background="menu.gif">	  <td align="center"  background="menu.gif"><p align="center" class="style4">Alterar dados</p></td>	  <td align="center" background="menu.gif"><p align="center" class="style4">Pedido de busca</p></td>	 <td align="center"  background="menu.gif"><p align="center" class="style4">Pendências financeiras</p></td>	  <td align="center" background="menu.gif"><p align="center" class="style4">Maiores informações</p></td>	  <td align="center"  background="menu.gif"><p align="center" class="style4">Reportagens</p></td>	  <td align="center"  background="menu.gif"><p align="center" class="style4">Página principal</p></td>  </tr></table>  <br><div id="overflow"><br><br><table width="800" border="0px" cellspacing="2">  <tr>	<td><img src="pendencias.gif"></td>  </tr></table><p>	<%		strSQL=	   " SELECT DISTINCT PROCESSOS.PROCESSO, CLIENTES.EMPRESA, CLIENTES.N_CLI, CLIENTES.RESPONS_PROCESSO, CLIENTES.CNPJ, CLIENTES.CONTATO"		strSQL=strSQL&" FROM PARCELAS INNER JOIN ((PROCESSOS INNER JOIN CLIENTES ON PROCESSOS.CADASTRO_PROC=CLIENTES.CADASTRO) INNER JOIN PEDIDOS ON PROCESSOS.PROCESSO=PEDIDOS.FIN_PROCESSO) ON PARCELAS.FIN_PEDIDO=PEDIDOS.FIN_PED"		strSQL=strSQL&" WHERE (CLIENTES.ACESSO = '"&codigox&"')"		strSQL=strSQL&" GROUP BY PROCESSOS.PROCESSO, PARCELAS.FIN_DT_REC_CH, CLIENTES.EMPRESA, CLIENTES.N_CLI, CLIENTES.RESPONS_PROCESSO, CLIENTES.CNPJ, CLIENTES.CONTATO"		strSQL=strSQL&" HAVING (((PARCELAS.FIN_DT_REC_CH)>#1/1/1995#))"		strSQL=strSQL&" ORDER BY PROCESSOS.PROCESSO;"		set tbBanco1=banco.Execute(strSQL)		'response.Write(strsql)		'response.End()		if not tbbanco1.eof then 		%>	<p align="left" class="style12 style48"><span class="style50">- Empresa:</span></span>		  <span class="style18">	<% =tbbanco1("empresa")%>		  </span>	<span class="style18"><br>	<span class="style50">- Cliente:</span></span> 		  <span class="style18"><%=tbbanco1("n_cli")%><br>		  </span>		  <span class="style12">- Responsável:</span> 		  <span class="style18"><%=tbbanco1("RESPONS_PROCESSO")%></span>		  <br><span class="style12">- CNPJ:</span>	<span class="style18"><%=tbbanco1("cnpj")%>		   </span><span class="style49"><br>		  <span class="style50">- Contato:</span> </span>  <span class="style18"><%=tbbanco1("contato")%></span></p></p><form name="form3" method="post" action="envia_marca.asp">		  <p class="style20" align="center">Valores À Pagar</p>		   	  <% 		strSQL=	   " SELECT DISTINCT PROCESSOS.PROCESSO, CLIENTES.EMPRESA, CLIENTES.N_CLI, CLIENTES.RESPONS_PROCESSO, CLIENTES.CNPJ, CLIENTES.CONTATO"		strSQL=strSQL&" FROM PARCELAS INNER JOIN ((PROCESSOS INNER JOIN CLIENTES ON PROCESSOS.CADASTRO_PROC=CLIENTES.CADASTRO) INNER JOIN PEDIDOS ON PROCESSOS.PROCESSO=PEDIDOS.FIN_PROCESSO) ON PARCELAS.FIN_PEDIDO=PEDIDOS.FIN_PED"		strSQL=strSQL&" WHERE (CLIENTES.ACESSO = '"&codigox&"')"		strSQL=strSQL&" GROUP BY PROCESSOS.PROCESSO, PARCELAS.FIN_DT_REC_CH, CLIENTES.EMPRESA, CLIENTES.N_CLI, CLIENTES.RESPONS_PROCESSO, CLIENTES.CNPJ, CLIENTES.CONTATO, clientes.acesso"		strSQL=strSQL&" HAVING (((PARCELAS.FIN_DT_REC_CH)>#1/1/1995#))"		strSQL=strSQL&" ORDER BY PROCESSOS.PROCESSO;"set tbBanco3=banco.Execute(strSQL)if not tbbanco3.eof thenWhile not tbbanco3.eof%>	 <p>Processo:<%=tbbanco3("processo")%></p>	<table width="1269" border="1" align="center">	  <tr bgcolor="#DBF0FB"> 		<td width="290" class="style53"><div align="center">Serviço</div></td>		<td width="160" class="style53"><p align="center">Data<br>			Pedido</p></td>		<td width="168" class="style53"><div align="center">Valor<br>			Pedido</div></td>				<td width="123" class="style53"><p align="center">Nº<br>			Parcelas </p></td>		<td width="151" class="style53"><div align="center">Valor<br>			Parcelas</div></td>		<td width="148" class="style53"><div align="center">Data de<br>  Vencimento da <br>  Parcela</div></td>		<td width="148" class="style53"><div align="center">Data de Recebimento de cheque</div></td>	  </tr><% 		strSQL=	 " SELECT PEDIDOS.FIN_SERVICO, PEDIDOS.FIN_DT_PED, PEDIDOS.FIN_VR_PED, PEDIDOS.FIN_CONPOSICAO_SERV, PARCELAS.FIN_PARCELA, PARCELAS.FIN_VR_PARC, PARCELAS.FIN_VCTO_PARC,PARCELAS.FIN_DT_REC_CH"		strSQL=strSQL& " FROM PEDIDOS INNER JOIN PARCELAS ON PEDIDOS.FIN_PED = PARCELAS.FIN_PEDIDO"		strSQL=strSQL& " WHERE (((PEDIDOS.FIN_PROCESSO)="&tbbanco3("processo")&"))"		strSQL=strSQL& " GROUP BY PARCELAS.FIN_DT_REC_CH, PEDIDOS.FIN_SERVICO, PEDIDOS.FIN_DT_PED, PEDIDOS.FIN_VR_PED, PEDIDOS.FIN_CONPOSICAO_SERV, PARCELAS.FIN_PARCELA, PARCELAS.FIN_VR_PARC, PARCELAS.FIN_VCTO_PARC"		strSQL=strSQL& " HAVING (((PARCELAS.FIN_DT_REC_CH)>#1/1/1995#));"set tbBanco2=banco.Execute(strSQL)if not tbbanco2.eof thenWhile not tbbanco2.eof%>  <tr bgcolor="white"> 		<td class="style54"><div align="center"><%=tbbanco2("fin_servico")%></div></td>		<td class="style54"><div align="center"><%=tbbanco2("fin_dt_ped")%></div></td>		<td class="style54"><div align="center"><%=tbbanco2("fin_vr_ped")%></div></td>	   <td class="style54"><div align="center"><%=tbbanco2("fin_parcela")%></div></td>		<td class="style54"><div align="center"><%=tbbanco2("fin_vr_parc")%></div></td>		<td class="style54"><div align="center"><%=tbbanco2("fin_vcto_parc")%></div></td>		<td class="style54"><div align="center"><%=tbbanco2("FIN_DT_REC_CH")%></div></td>	  </tr><%		'	 analise=tbbanco3("processo")			 tbbanco2.movenext			 wend					 			end if			%>	</table>	<br><%			tbbanco3.movenext			'processo=tbbanco3("processo")			wend	   		end if			tbBanco2.Close 			set tbBanco2=Nothing 			tbBanco3.Close 			set tbBanco3=Nothing 			 %>		     </form></div></body><%		tbBanco1.Close		set tbBanco1=Nothing		else 		tbBanco1.Close		set tbBanco1=Nothing    		'response.write "ta errado"		'response.End()		'response.Redirect("index.asp?erro=2")		call fecha_banco		end if%></html>