Varioas requisições....

[cabral51 0]

Galera eh o seguinte tenhu um site onde eu diversas vezes faço consultas numa mesma página ao banco de dados!!!

Eu gostaria de saber se tem como eu fazer de oura forma vo mostra pra vcs o código!

aki eh o arquivo de conexão com o banco

<%  sub abre_banco	Set banco = Server.CreateObject("ADODB.Connection") 	banco.Open "DBQ=e:\home\mercosulweb\dados\banco_cli.mdb;Driver={Microsoft Access Driver (*.mdb)}"  end sub  sub fecha_banco	banco.close	Set banco=nothing  end sub%>

aki varias consultas!!

<%		StrSql="Select * from clientes,processos where clientes.acesso='"&codigox&"'"		StrSql= StrSql & " and clientes.cadastro=processos.cadastro_proc"		set tbBanco1=banco.Execute(strSQL)		'response.Write(strsql)		'response.End()		if not tbbanco1.eof then While not tbbanco1.eof 		novadata=RIGHT("0" & DAY(tbbanco1("dt_ult_desp")),2) & "/" & RIGHT("0" & MONTH(tbbanco1("dt_ult_desp")),2) & "/" & RIGHT("0" & YEAR(tbbanco1("dt_ult_desp")),2)		novadata2=RIGHT("0" & DAY(tbbanco1("depo_exec")),2) & "/" & RIGHT("0" & MONTH(tbbanco1("depo_exec")),2) & "/" & RIGHT("0" & YEAR(tbbanco1("depo_exec")),2)		novadata3=RIGHT("0" & DAY(tbbanco1("DT_PROVIDENCIA")),2) & "/" & RIGHT("0" & MONTH(tbbanco1("DT_PROVIDENCIA")),2) & "/" & RIGHT("0" & YEAR(tbbanco1("DT_PROVIDENCIA")),2)				'response.Write(novadata)		'response.End()%>	  <tr bgcolor="#ECF5FF" class="style8">		<td class="style9"><p><%=tbbanco1("processo")%></p></td>		<%if tbbanco1("depo_exec")<>"" then%>		<td class="style9"><%=novadata2%></td>		<%else%>		<td class="style9"><%=tbbanco1("depo_exec")%></td>		<%end if%>		<td class="style9"><%=tbbanco1("marca")%></td>		<td class="style9"><a href="listadeclasses.htm" target="_blank" style="text-decoration:none "><%=tbbanco1("classe")%></a></td>	   <%if tbbanco1("dt_ult_desp")<>"" then%>		<td class="style9"><%=novadata%></td>		<%else%>	   		<td class="style9"><%=tbbanco1("dt_ult_desp")%></td>			<%end if%>		<td class="style9"><%=tbbanco1("ult_desp")%></a></td>		<td class="style9"><%=tbbanco1("providencia")%></td>		<%if tbbanco1("dt_providencia")<>"" then%>			<td class="style9"><%=novadata3%></td>		<%else%>	   		<td class="style9"><%=tbbanco1("dt_providencia")%></td>				<%end if%>		<%		tbbanco1.movenext		wend  <%		StrSql="Select * from clientes,processos where clientes.acesso='"&codigox&"'"		StrSql= StrSql & " and clientes.cadastro=processos.cadastro_proc"		StrSql= StrSql & " and processos.obs_import is not null"		'StrSql= StrSql & " and processos.descricao_classe is not null"		StrSql= StrSql & " order by processo"		set tbBanco2=banco.Execute(strSQL)		   if not tbbanco2.eof then%>			<p align="left" class="style12" style="text-decoration:underline"><img src="seta.gif"><span class="style27">Obs:</span></p>			<span class="style27">			<%while not tbbanco2.eof%>			</p>			</span>		  <p class="style18"><%=tbbanco2("processo")%> - <%=tbbanco2("obs_import")%></p>		  <p class="style18">			<%		tbbanco2.movenext		wend		end if		tbbanco2.close		set tbbanco2=nothing%>%>	 <%		StrSql="Select * from clientes,processos where clientes.acesso='"&codigox&"'"		StrSql= StrSql & " and clientes.cadastro=processos.cadastro_proc"		StrSql= StrSql & " and processos.descricao_classe is not null"		'StrSql= StrSql & " and processos.descricao_classe is not null"		StrSql= StrSql & " order by processo"		set tbBanco3=banco.Execute(strSQL)%>			  <%if not tbbanco3.eof then%>		  <p align="left" class="style12" style="text-decoration:underline"><img src="seta.gif">Descrição de Classe:</p>		</blockquote>		<div align="left">		  <blockquote>			<p class="style30">				<%while not tbbanco3.eof%>			</p>			<p class="style30"><%=tbbanco3("descricao_classe")%> </p>			<p align="left" class="style30">			  <%		tbbanco3.movenext		wend		end if		tbbanco3.close		set tbbanco3=nothing%>	%>

Como vcs podem ver tem varias consultas com varios loops, ão diferentes partes do codigo...

eu rpecisaria otimizar isto pois ta muito lerdo...alguem consegue ajudar??

E ja começando a otimizar preciso trokar o banco de accees pra sql, alguem tem tutoriais de onde baixar o sql e como transferir do acces pro sql???

Brigado!

[sr.silva 1]

Dois passos a serem seguidos..1º - Existe no fórum um tópico com várias conexões de DB.2º - Qual a necessidade de tanta SQL assim, o que acha de analisar isso?? Podemos fazer!! Nem sempre a primeira idéia que vem a mente e a melhor!![]´s

[cabral51 0]

O bruno obrigado por ver meu post, acho q naum entendeu muito bem!!Nessa página essitem variass sql e eu acho sem necessidade, pois dava pra fazer uma lógica q atendesse tudo que preciso com apenas 1 ou 2 sqls, o problema eh q naums ei afzer isso por isso pedi ajuda, bom hj utilizo access como meu banco, muita gente ja me disse para ao inves do acces utilizar o sql, entaum eu rpecisaria baixa-lo primeiro depois importar tudo do access e pedi essa ajuda tb!entaum gostaria de pedir primeiro apra me ajudar a simplificar o codigo sem tantas consultas sql, e tb me ajudar a implementar sql ao inves de access

[jrcardozo 4]

cara...to sem tempo pra te dar essa força agora, mas pra ir adiantando...você quer fazer um relatorio mestre/detalhe/sub detalhe..é isso?creio que tenha como diminuir a quantidade de sqls, isso dependerá de como estão estruturados os dados. Se quiser me passar as tabelas que usa nessa consulta iria facilitar, se puder coloca link pra dwnload.Assim que tiver um tempo dou uma olhada, espero que alguem consiga te ajudar antes

[cabral51 0]

Ah cara na verdade você quer ver o bd eh isso

[sr.silva 1]

Antes de mais nada, quais são as informções que contem nessa página.Vamos "enxugar" as SQL para tornar mais fácil a visualização!!Que informação vem nesse página, tabelas , campos e etc...??

[cabral51 0]

Blza vo colar o codigo intereiro!!

<% @Language=VbScript %><% Option Explicit %><!--#include file="bibconexaocli.asp"--><%  RESPONSE.BUFFER = TRUE  session.LCID = 1046' Banco de Dados e Tabelas  Dim analise,novadata2,novadata,novadata3,item,banco,tbBanco,tbBanco1,tbBanco2,msg,strsql,bancario,entid,codigox,listar,prospect,arquivo,arquivos,fso,tbbanco3,tbbanco4,tbbanco5   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%><!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{text-decoration:none;color:#ffffff;}.a hoover{text-decoration:none;color:#ffffff;}.a visited{text-decoration:none;color:#ffffff;}.style4 {font-family:Verdana, Arial, Helvetica, sans-serif;font-weight:800;font-size:14px;color:#FFFFFF;text-align:center;vertical-align:middle;}.style8 {font-family:Verdana, Arial, Helvetica, sans-serif;font-size:10px;text-align:center;vertical-align:middle;}.style9 {font-family: Verdana, Arial, Helvetica, sans-serif;}.style10 {font-family: Verdana, Arial, Helvetica, sans-serif; font-weight: bold; }.style12 {	font-family:Verdana, Arial, Helvetica, sans-serif;	color: #FF6600;	font-weight: bold;}.style14 {font-size: 24px; color: #FF6600;font-family:Verdana, Arial, Helvetica, sans-serif;}.style18 {font-family: Verdana, Arial, Helvetica, sans-serif; font-weight: bold; font-size: 14px; font-family:Verdana, Arial, Helvetica, sans-serif;}.style20 {font-size: 18px; color: #FF6600; font-family:Verdana, Arial, Helvetica, sans-serif;}.style21 {color: #FF0000}.style23 {font-family: Verdana, Arial, Helvetica, sans-serif; font-weight: bold; color: #000000; }.style26 {color: #FF6600}.style27 {font-size: 14px}.style28 {font-family: Verdana, Arial, Helvetica, sans-serif; font-weight: bold; font-size: 14px; }.style29 {font-size: 12pt}.style30 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 14px; }--></style></head><body> <div id="master">  <table width="1024" height="80px" border="0">	<tr>	  <td><img src="topoproc.gif"></td>	</tr>  </table>  <table width="1000">  <tr align="center" background="menu.gif">	  <td align="center"  background="menu.gif"><p align="center" class="style4"><a href="alterardados.asp?codigox=<% =codigox%>" class="a">Alterar dados</a></p></td>	  <td align="center" background="menu.gif"><p align="center" class="style4"><a href="pedidobusca.asp?codigox=<%=codigox%>" class="a">Pedido de busca</a></p></td>	 <td align="center"  background="menu.gif"><p align="center" class="style4"><a href="pendencias.asp?codigox=<%=codigox%>" class="a">Pendências financeiras</a></p></td>	  <td align="center" background="menu.gif"><p align="center" class="style4"><a href="maioresinfo.asp?codigox=<%=codigox%>" class="a">Maiores informações</a></p></td>	  <td align="center"  background="menu.gif"><p align="center" class="style4"><a href="noticias.asp?codigox=<%=codigox%>" class="a">Reportagens</a></p></td>	  <td align="center"  background="menu.gif"><p align="center" class="style4"><a href="http://www.grupomercosul.com.br" target="_blank" class="a">Página principal</a></p></td>  </tr></table>  <br>  <div id="overflow">  <p align="right" class="style28 style21">Publicação Oficial nº 1865, dados atualizados até o dia 09/10/2006.<br>Próxima atualização: 10/10/2006.</p>  <br>  <p align="center" class="style9"> <span class="style14">	<%		StrSql="Select * from clientes,processos where clientes.acesso='"&codigox&"'"		StrSql= StrSql & " and clientes.cadastro=processos.cadastro_proc"		set tbBanco1=banco.Execute(strSQL)		'response.Write(strsql)		'response.End()		if not tbbanco1.eof then 		%>	</span>  <blockquote>	<p align="left" class="style10 style27"><span class="style12">-Empresa:</span>		<% =tbbanco1("empresa") %>		<br>			  <span class="style26">-Cliente:</span> <%=tbbanco1("n_cli")%><br>		<span class="style12">-Responsável:</span> <%=tbbanco1("RESPONS_PROCESSO")%><br>	  <span class="style12">-CNPJ:</span> <%=tbbanco1("cnpj")%></p></blockquote>  <div align="left"><span class="style9"> </span> </div>  <p align="center" class="style9"><span class="MsoNormal style29">Apresentamos abaixo, o posicionamento de seu processo de marca junto ao INPI. </span></p>  <div align="center">	<table width="800" border="0" cellspacing="1.5">	  <tr bgcolor="#336699" class="style4">		<td width="75" background="menu.gif" class="style9"><p>Processo</p></td>		<td width="75" background="menu.gif" bgcolor="#336699" class="style9"><p>Prioridade</p></td>		<td width="150" background="menu.gif" bgcolor="#336699" class="style9"><p>Marca</p></td>		<td width="150" background="menu.gif" bgcolor="#336699" class="style9"><p>Classe</p></td>		<td width="150" background="menu.gif" bgcolor="#336699" class="style9"><p>Data Situação</p></td>		<td width="130" align="center" valign="middle" background="menu.gif" bgcolor="#336699" class="style9">Situação</p></td>		<td background="menu.gif" bgcolor="#336699" class="style9"><p>Providência</p></td>		<td background="menu.gif" bgcolor="#336699" class="style9"><p>Prazo da Providência</p></td>	  </tr>	  <%		'StrSql="Select * from clientes,processos where clientes.acesso='"&codigox&"'"		'StrSql= StrSql & "and clientes.cadastro=processos.cadastro_proc"		'StrSql= StrSql & "order by processo"		'set tbBanco1=banco.Execute(strSQL)		'response.Write(strsql)		'response.End()		While not tbbanco1.eof 		novadata=RIGHT("0" & DAY(tbbanco1("dt_ult_desp")),2) & "/" & RIGHT("0" & MONTH(tbbanco1("dt_ult_desp")),2) & "/" & RIGHT("0" & YEAR(tbbanco1("dt_ult_desp")),2)		novadata2=RIGHT("0" & DAY(tbbanco1("depo_exec")),2) & "/" & RIGHT("0" & MONTH(tbbanco1("depo_exec")),2) & "/" & RIGHT("0" & YEAR(tbbanco1("depo_exec")),2)		novadata3=RIGHT("0" & DAY(tbbanco1("DT_PROVIDENCIA")),2) & "/" & RIGHT("0" & MONTH(tbbanco1("DT_PROVIDENCIA")),2) & "/" & RIGHT("0" & YEAR(tbbanco1("DT_PROVIDENCIA")),2)				'response.Write(novadata)		'response.End()%>	  <tr bgcolor="#ECF5FF" class="style8">		<td class="style9"><p><%=tbbanco1("processo")%></p></td>		<%if tbbanco1("depo_exec")<>"" then%>		<td class="style9"><%=novadata2%></td>		<%else%>		<td class="style9"><%=tbbanco1("depo_exec")%></td>		<%end if%>		<td class="style9"><%=tbbanco1("marca")%></td>		<td class="style9"><a href="listadeclasses.htm" target="_blank" style="text-decoration:none "><%=tbbanco1("classe")%></a></td>	   <%if tbbanco1("dt_ult_desp")<>"" then%>		<td class="style9"><%=novadata%></td>		<%else%>	   		<td class="style9"><%=tbbanco1("dt_ult_desp")%></td>			<%end if%>		<td class="style9"><%=tbbanco1("ult_desp")%></a></td>		<td class="style9"><%=tbbanco1("providencia")%></td>		<%if tbbanco1("dt_providencia")<>"" then%>			<td class="style9"><%=novadata3%></td>		<%else%>	   		<td class="style9"><%=tbbanco1("dt_providencia")%></td>				<%end if%>		<%		tbbanco1.movenext		wend %>	  </tr></table>	<div align="center">	  <blockquote>	   <%		StrSql="Select * from clientes,processos where clientes.acesso='"&codigox&"'"		StrSql= StrSql & " and clientes.cadastro=processos.cadastro_proc"		StrSql= StrSql & " and processos.obs_import is not null"		'StrSql= StrSql & " and processos.descricao_classe is not null"		StrSql= StrSql & " order by processo"		set tbBanco2=banco.Execute(strSQL)		   if not tbbanco2.eof then%>			<p align="left" class="style12" style="text-decoration:underline"><img src="seta.gif"><span class="style27">Obs:</span></p>			<span class="style27">			<%while not tbbanco2.eof%>			</p>			</span>		  <p class="style18"><%=tbbanco2("processo")%> - <%=tbbanco2("obs_import")%></p>		  <p class="style18">			<%		tbbanco2.movenext		wend		end if		tbbanco2.close		set tbbanco2=nothing%>		 </p>			  </blockquote>	  <div align="left">		<blockquote class="style27">		  <p class="style10">					  			  <%		StrSql="Select * from clientes,processos where clientes.acesso='"&codigox&"'"		StrSql= StrSql & " and clientes.cadastro=processos.cadastro_proc"		StrSql= StrSql & " and processos.descricao_classe is not null"		'StrSql= StrSql & " and processos.descricao_classe is not null"		StrSql= StrSql & " order by processo"		set tbBanco3=banco.Execute(strSQL)%>			  <%if not tbbanco3.eof then%>		  <p align="left" class="style12" style="text-decoration:underline"><img src="seta.gif">Descrição de Classe:</p>		</blockquote>		<div align="left">		  <blockquote>			<p class="style30">				<%while not tbbanco3.eof%>			</p>			<p class="style30"><%=tbbanco3("descricao_classe")%> </p>			<p align="left" class="style30">			  <%		tbbanco3.movenext		wend		end if		tbbanco3.close		set tbbanco3=nothing%>				<%		   StrSql="Select * from clientes,concorrentes where clientes.acesso='"&codigox&"'"	   	 StrSql= Strsql & "and clientes.cadastro=concorrentes.cadastro"		'StrSql= StrSql & " and processos.descricao_classe is not null"		'StrSql= StrSql & " and processos.descricao_classe is not null"		StrSql= StrSql & " order by N_CONCORRENTE"		set tbBanco4=banco.Execute(strSQL)%>			<%if not tbbanco4.eof then%>			</span>						<p align="center" class="style20" style="text-decoration:underline">EMPRESAS CONCORRENTES</p>			  <p class="style9">Comunicamos que, através de nosso departamento de vigilância tivemos o conhecimento de que a(s) empresa(s) abaixo estão divulgando marca semelhante a sua ao público consumidor.</p>			  <table width="800" border="0" cellspacing="1.5" align="center">				<tr bgcolor="#336699" class="style4">				  <td width="244" background="menu.gif" class="style9 style9"><p>Nome Comercial</p></td>				  <td width="257" background="menu.gif" bgcolor="#336699" class="style9 style9"><p>Concorrente</p></td>				  <td width="289" background="menu.gif" bgcolor="#336699" class="style9 style9"><p>Cidade</p></td>			   </tr>				<%				While not tbbanco4.eof 		%>				<tr bgcolor="#ECF5FF" class="style8">				  <td class="style9 style9"><p><%=tbbanco4("NOME_COML")%></p></td>				  <td class="style9 style9"><%=tbbanco4("empresa")%></td>				  <td class="style9 style9"><%=tbbanco4("cidade")%></td>				  <%		tbbanco4.movenext		wend		 %>				</tr>			  </table>			  		  </blockquote>		</div>		<blockquote>		  <blockquote>			<p align="left" class="style9"><br>			  <img src="seta.gif"> Tendo em vista que V.Sas, possui processo(s) de marca perante o INPI - INSTITUTO NACIONAL DA PROPRIEDADE INDUSTRIAL, PORTANTO POSSUINDO ANTERIORIDADE, conforme previsto em Lei, está referida semelhança poderá acarretar confusão ao público em geral, ois pensarão tratar-se da empresa de V.Sas.<br>			</p>			<p align="left" class="style9"> <img src="seta.gif"> Diante do exposto, sugerimos imediata <strong class="style12">NOTIFICAÇÃO EXTRAJUDICIAL </strong>para abstenção de uso de marca indevida.<br>			  Colocamos, portando, nosso departamento jurídico a disposição de V.Sas, para a execução do serviço acima, bem, como para presta-lhe toda acessoria necessária quanto ao exposto. <br>			</p>		  </blockquote>		  <p class="style9">		  <%tbbanco4.close		set tbbanco4=nothing		end if%>		  </p>		  <blockquote>			<p align="left" class="style9"> <img src="seta.gif"> De acordo com o classificador  as marcas deverão 			  ser solicitadas abrangendo todo o objetivo social da Empresa , permitindo 			  assim a cobertura total dos serviços por ela prestados.</p>					  <br>			<p align="center" class="style18">NECESSITAMOS DO CONTRATO SOCIAL ATUALIZADO, PARA FAZERMOS ANÁLISE E VERIFICARMOS ABRANGÊNCIA, SE FOR O CASO. PORTANTO SOLICITAMOS CÓPIA DO MESMO, VIA FAX.</p> 					  </blockquote>		  <p class="style9" align="center">		  <div align="center"><br>				<%		StrSql="Select * from clientes where clientes.acesso='"&codigox&"'"		StrSql=Strsql & " and dados_em_desacordo is not null"		StrSql=Strsql & " and dados_em_desacordo<>'OK'"		'StrSql= StrSql & " and processos.descricao_classe is not null"		'StrSql= StrSql & " and processos.descricao_classe is not null"		'StrSql= StrSql & " order by N_CONCORRENTE"		set tbBanco5=banco.Execute(strSQL)		if not tbbanco5.eof then		'analise=tbbanco5("dados_em_desacordo")		'response.Write(analise)		'response.End()		%>		  </div>			  <p align="center" class="style20" style="text-decoration:underline">SITUAÇÃO CADASTRAL</p> 		  			   <p align="left" class="style9">Cruzando as diversas fontes de informações cadastrais (Junta Comercial - Receita Federal, etc.), com o objetivo de manter atualizado junto ao INPI os seus dados cadastrais frente aos processos de registro de marca de sua titularidade.			   Identificamos alteração frente aos seus dados cadastrais junto à Receita Federal que esta em desacordo com seu processo de marca frente ao INPI - Instituto Nacional da Propriedade Induistrial, a saber: </p>		<%if tbbanco5("dados_em_desacordo")="RAZ" then%>			  <p align="left" class="style12" style="text-decoration:underline">Razão social constante na Receita Federal(CNPJ)		  </p>			<p class="style9"><%=tbbanco5("RAZ_RECEITA")%></p>			<p align="left" class="style12" style="text-decoration:underline">Razão social constante no INPI			   			</p>			<p style="text-decoration:none"><%=tbbanco5("RAZ_INPI")%> <br>			<br>		  <span class="style21"><span class="style9"><img src="seta.gif"></span></span><span class="style10">Providências:</span> <span class="style12">ALTERAR DADOS JUNTO AO(s) PROCESSO(s) NO INPI.</span></p>			<%			elseif tbbanco5("dados_em_desacordo")="RAZ/END" then%>			<p align="left">			<p class="style12" style="text-decoration:underline">Dados constantes na Receita Federal(CNPJ)		  </p>			<p class="style9">Razão Social: <%=tbbanco5("RAZ_RECEITA")%>  </p>			   <p class="style9">Endereço: <%=tbbanco5("end_receita")%></p>			<p align="left"><span class="style12" style="text-decoration:underline">Dados constantes no INPI</span>			</p>			 <p class="style9">Razão Social: <%=tbbanco5("RAZ_INPI")%></p>		  <p class="style9">Endereço: <%=tbbanco5("end_inpi")%><br>			   			<br>			   <span class="style21"><span class="style9"><img src="seta.gif"></span></span><span class="style23"> Providências:</span> <span class="style12">ALTERAR DADOS JUNTO AO(s) PROCESSO(s) NO INPI.			 </span>		  </p>		  </p>		  <%elseif tbbanco5("dados_em_desacordo")="END" then%>			<p align="left"><span class="style12" style="text-decoration:underline">Endereço constante na Receita Federal(CNPJ)</span>			</p>			  <p class="style9"><%=tbbanco5("end_receita")%></p>			<p align="left" class="style12" style="text-decoration:underline">Endereço constante no INPI			</p>		  <p class="style9"><%=tbbanco5("end_inpi")%><br>			   <br>			<span class="style21"><span class="style9"><img src="seta.gif"></span></span> <strong>Providências:</strong> <span class="style12">ALTERAR DADOS JUNTO AO(s) PROCESSO(s) NO INPI.	</span> </p>									 <span class="style9">			 <%elseif ((tbbanco5("dados_em_desacordo")="INAPTA") OR (tbbanco5("dados_em_desacordo")="CANC") OR (tbbanco5("dados_em_desacordo")="BAIXADA") OR (tbbanco5("dados_em_desacordo")="SUSPENSA")) then%>			 </span>				 				 <p align="left"><p class="style12" style="text-decoration:underline">Dados constantes na Receita Federal(CNPJ)</p>			   <p class="style9">Razão Social: <%=tbbanco5("RAZ_RECEITA")%>  </p>			   <p class="style9">Endereço: <%=tbbanco5("end_receita")%></p>			<p align="left"><span class="style12" style="text-decoration:underline">Dados constantes no INPI</span>			</p>			 <p class="style9">Razão Social: <%=tbbanco5("RAZ_INPI")%></p>		  <p class="style9">Endereço: <%=tbbanco5("end_inpi")%>			   <br>		  </p>		  <p align="left" class="style9"><img src="seta.gif"> <strong>O seu CNPJ está constando na receita como:</strong>		  <p align="center" class="style20"><strong><%=tbbanco5("dados_em_desacordo")%></strong></p>				 <br>				 <img src="seta.gif"> <span class="style10">Providências: </span><span class="style12"><strong>TRANSFERIR PARA CNPJ ATIVO. </strong></span><span class="style9"><strong>				 </p>					</strong>   <br>				 <%end if			end if			tbbanco5.close			set tbbanco5=nothing			%>										 </span>			<p align="center" class="style20" style="text-decoration:underline">ALTERAÇÕES NO USO DA MARCA</p>			<br>			<p class="style10" align="center">De acordo, com a Lei da Propriedade Industrial a marca não poderá sofrer alterações em sua EXPRESSÃO ou LOGOTIPO.</p>						<p align="center" class="style10"><em>Art. 143 – Caducará o registro se a marca estiver sendo usada com modificações que implique alteração de seu caráter distintivo original.</em></p>			<p class="style9" style="font-size:13pt">Verifique se houve alteração. Apresentamos abaixo as maneiras que foram depositadas no INPI :</p><br>			<div align="center">			  <p>				<%	Set fso = Server.CreateObject("Scripting.FileSystemObject")	If fso.FolderExists(Server.MapPath("imagens/"&codigox&"/")) then	Set arquivo=Fso.GetFolder(Server.MapPath("imagens/"&codigox&"/"))	Set arquivos=arquivo.files	For each item in arquivos 'response.Write item.name & "<br>"	if (Right(item,3) ="jpg") or (Right(item,4) ="jpeg") then%>				<img src="imagens/<%=codigox%>/<%=item.name%>">				<%end if				Next				else 			response.Redirect("index.asp")		end if			Set arquivos=nothing	Set arquivo=nothing	Set fso=nothing%>			  </p>			</div>			<p align="center"><br>					<br>		  <p align="center" class="style20">SUA MARCA É COISA SÉRIA ! DÊ A ATENÇÃO QUE ELA NECESSITA !</p><br>					<p align="center" class="style10">Para as devidas providências, e ou esclarecimentos, nos ligue no fone:</p>					<br>			  <br>			  <p align="center" class="style10">(11) 3214-1190 ou 0800 770 72 90 </p></strong> 		</blockquote>	 	<p align="center" class='style10' style='margin-left:35.45pt;'></p>	<p align="left" class='style10' style='margin-left:35.45pt;'>Ane Pessoa / Sandra Santos</p>	<p align="left" class='style10' style='margin-left:35.45pt;'>Central de Relacionamento com o Cliente</p>	<blockquote>	  <p align="left" h="h"><a href="processo.asp?<%=codigox%>" target="_blank"><img src="icc_14.gif" border="0"></a><span class="style18"><a href="processo.asp?codigox=<%=codigox%>" target="_blank">Opção para impressão</a>		  <input name="hiddenField" type="hidden" value="codigox=<%=codigox%>">	  </span></p>	</blockquote>	<div align="right"><p class="style10">© Copyright - Grupo Mercosul - Marcas e patentes <img src="Logo%20Mercosul%203D2.gif" width="76" height="75"> </div>  </div></div></div></body><%	  tbBanco1.Close		set tbBanco1=Nothing		else 		tbBanco1.Close		set tbBanco1=Nothing    		'response.write "ta errado"		'response.End()				call fecha_banco		response.Redirect("index.asp?erro=3")		end if%></html>

[cabral51 0]

Ngm pode me ajudar??

[jrcardozo 4]

cara...não é por nada, mas não tava rodando né? O parametro deve ser do tipo numero e você está concatenando com aspas simples: abaixo as modificações apenas no sql, continua com três instruções, porém agora selecionando da maneira correta(você tem que usar inner join e selecionar apenas os campos que vai usar pra não sobrecarrecar o recorset):

 

primeira string sql:

 

strSql="SELECT CLIENTES.CADASTRO, PROCESSOS.CADASTRO_PROC, PROCESSOS.DT_ULT_DESP, PROCESSOS.DT_PROVIDENCIA, PROCESSOS.PROCESSO, PROCESSOS.MARCA, PROCESSOS.CLASSE, PROCESSOS.ULT_DESP, PROCESSOS.PROVIDENCIA, PROCESSOS.DEPO_EXEC FROM PROCESSOS INNER JOIN CLIENTES ON PROCESSOS.CADASTRO_PROC = CLIENTES.CADASTRO WHERE (((CLIENTES.CADASTRO)="&codigox&"));"

segunda string sql:

 

strsql="SELECT CLIENTES.CADASTRO, PROCESSOS.CADASTRO_PROC, PROCESSOS.OBS_IMPORT, PROCESSOS.PROCESSO FROM PROCESSOS INNER JOIN CLIENTES ON PROCESSOS.CADASTRO_PROC = CLIENTES.CADASTRO WHERE (((CLIENTES.CADASTRO)="&codigox&") AND ((PROCESSOS.OBS_IMPORT)is not null)) ORDER BY PROCESSOS.PROCESSO;"

terceira instrução sql:

 

strSql="SELECT CLIENTES.CADASTRO, PROCESSOS.CADASTRO_PROC, PROCESSOS.PROCESSO, PROCESSOS.DESCRICAO_CLASSE FROM PROCESSOS INNER JOIN CLIENTES ON PROCESSOS.CADASTRO_PROC = CLIENTES.CADASTRO WHERE (((CLIENTES.CADASTRO)='"&codigox&"') AND ((PROCESSOS.DESCRICAO_CLASSE)is not null)) ORDER BY PROCESSOS.PROCESSO;"

Acho que é isso, pela maneira que você quer exibir somente com essa lógica.Para aprimorar só sabendo exatamente como o sistema funiona.Espero que te ajude

[cabral51 0]

bom jonahthan brigadão por fazer tudo isso vo testar agora e volto pra dar a resposta, mas ja adiantando quanto ao uso de aspas simples no numero que você disse, isto esta incorreto pq o codigox q eh passado como paramentro naum eh um numero, e sim uma string pq ele vem assim:1058-3456789Num entendi o pq do inner join???

[jrcardozo 4]

inner join pq você tem tabelas relacionadas, da maneira que você fez não é a melhor solução.Quanto ao parametro....você pega da tabela clientes o campo cadastro(numérico) e não o campo acesso(string).veja se é pra buscar pelo cadastro ou acesso pois o sql foi feito pelo cadastro(pois é o campo que está relacionado a outra tabela)se for o caso faça no dreamweaver um html mostrando o resultado do relatorio que pretende e depois coloca um link aqui pra visualizar o resultado pra facilitar no entendimento e se for o caso dá pra fazer o sql mais simples

[cabral51 0]

cara logico q estou pegando pelo acesso olha a instruçao:StrSql="Select * from clientes,processos where clientes.acesso='"&codigox&"'"clientes.acesso

[jrcardozo 4]

vixe meu camarada, foi malvou dar uma olhada novamente e tentar fazer pra ti tudo num só

[cabral51 0]

jonathan relaxa...Eu ja fiz tudo como você falou valew msmo pra ajuda!!!