Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

cabral51

Po, onde eu to errando

Por , em ASP Clássico

Recommended Posts

cabral51    0

cabral51
Postado

pessoal naum consigo fazer aparecer o campo observaçao no html, que vem do banco da uma olhadinha 

<%		StrSql="Select * from clientes,processos where clientes.acesso='"&codigox&"'"		StrSql= StrSql & "and clientes.cadastro=processos.cadastro_proc" 		  while not tbbanco1.eof 			 if tbbanco1("obs_import")<>"" then%>		   		<span style='font-size:13.0pt'>Obs: <%=tbbanco1("obs_import")%></span>			<br>			<%  				else				tbbanco1.movenext				end if				wend		  %>
alguem tem uma ideia??

Se o campo for em branco no banco ele naum vai aparecer caso contrario aparece

Compartilhar este post

Link para o post
Compartilhar em outros sites

Felipe Bellé    0

Felipe Bellé
Postado

onde você esta abrindo o tbbanco1???

tenta colocar

tbbanco1.open strSQL, conexao
outra coisa que pode estar acontecendo, é do

tbbanco1("obs_import")

estar sempre vazio...

da uma olhada

Compartilhar este post

Link para o post
Compartilhar em outros sites

cabral51    0

cabral51
Postado

olha como esta

<body><div align="center"><div id="master"><p align="center" class="style7">Consulta de Processos </p><p align="center" class="style9">	<%		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 		%><p align="left" class="style10">Empresa:<% =tbbanco1("empresa") %> - Cliente: <%=tbbanco1("n_cli")%></p>  <p align="left" class="style10">Responsavel: <%=tbbanco1("respons_empresa")%> </p>  <p align="left" class="style10">CNPJ: <%=tbbanco1("cnpj")%></p>  <div align="left"><span class="style9">		</span>  </div>  <p align="center" class="style9"><span class="MsoNormal"><span style='font-size:13.0pt'>Apresentamos abaixo, o posicionamento de seu processo de marca junto ao INPI. </span></span></p><div align="center" class="style9">  <div align="center">	  <%	Set fso = Server.CreateObject("Scripting.FileSystemObject")	Set arquivo=Fso.GetFolder(Server.MapPath("imagens/"&codigox&"/"))	Set arquivos=arquivo.files	 For each item in arquivos 'response.Write item.name & "<br>"%>		<img src="imagens/<%=codigox%>/<%=item.name%>">	  <%	Next		Set arquivos=nothing	Set arquivo=nothing	Set fso=nothing%>	  </div></div><div align="center">  <table width="800" border="0" cellspacing="1.5">	  <tr bgcolor="#336699" class="style4">		<td width="75" class="style9"><p>Número</p></td>		<td width="75" class="style9"><p>N° Revista</p></td>		<td width="90" class="style9"><p>Prioridade</p></td>		<td width="120" class="style9"><p>Marca</p></td>		<td width="100" class="style9"><p>Situação</p></td>		<td width="50" class="style9"><p>Classe</p></td>		<td class="style9"><p>Providência</p></td>	  </tr> 	  <%		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()		While not tbbanco1.eof 		%>

O campo obs naum esta todo vazio, tipo o primeiro esta, o segundo naum, o terceiro esta, ele so vai mostra os que estao com informaçoes mas naum mo9stra

Compartilhar este post

Link para o post
Compartilhar em outros sites

cabral51    0

cabral51
Postado

Colokei olha como ta a o codigo:

<body><div align="center"><div id="master"><p align="center" class="style7">Consulta de Processos </p><p align="center" class="style9">	<%		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 		%><p align="left" class="style10">Empresa:<% =tbbanco1("empresa") %> - Cliente: <%=tbbanco1("n_cli")%></p>  <p align="left" class="style10">Responsavel: <%=tbbanco1("respons_empresa")%> </p>  <p align="left" class="style10">CNPJ: <%=tbbanco1("cnpj")%></p>  <div align="left"><span class="style9">		</span>  </div>  <p align="center" class="style9"><span class="MsoNormal"><span style='font-size:13.0pt'>Apresentamos abaixo, o posicionamento de seu processo de marca junto ao INPI. </span></span></p><div align="center" class="style9">  <div align="center">	  <%	Set fso = Server.CreateObject("Scripting.FileSystemObject")	Set arquivo=Fso.GetFolder(Server.MapPath("imagens/"&codigox&"/"))	Set arquivos=arquivo.files	 For each item in arquivos 'response.Write item.name & "<br>"%>		<img src="imagens/<%=codigox%>/<%=item.name%>">	  <%	Next		Set arquivos=nothing	Set arquivo=nothing	Set fso=nothing%>	  </div></div><div align="center">  <table width="800" border="0" cellspacing="1.5">	  <tr bgcolor="#336699" class="style4">		<td width="75" class="style9"><p>Número</p></td>		<td width="75" class="style9"><p>N° Revista</p></td>		<td width="90" class="style9"><p>Prioridade</p></td>		<td width="120" class="style9"><p>Marca</p></td>		<td width="100" class="style9"><p>Situação</p></td>		<td width="50" class="style9"><p>Classe</p></td>		<td class="style9"><p>Providência</p></td>	  </tr> 	  <%	   ' 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()		While not tbbanco1.eof 		%>	  <tr bgcolor="#CCCCCC" class="style8">		<td class="style9"><p><%=tbbanco1("processo")%></p></td>		<td class="style9"><%=tbbanco1("revista")%></td>		<td class="style9"><%=tbbanco1("depo_exec")%></td>		<td class="style9" style="font-weight:800"><%=tbbanco1("marca")%></td>		<td class="style9"><%=tbbanco1("ult_desp")%></td>		<td class="style9"><a href="http://www.inpi.gov.br" target="_blank"><%=tbbanco1("classe")%></td>		<td class="style9"><%=tbbanco1("providencia")%></td> <%		tbbanco1.movenext		wend %> 	  </tr>	</table> 		<%		StrSql="Select processos.obs_import 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()		While not tbbanco1.eof 		%>		 		 	<br><p>Obs: <%=tbbanco1("obs_import")%></p> 					<%tbbanco1.movenext					wend	  %>

pq essa mer.... naum vai???

Compartilhar este post

Link para o post
Compartilhar em outros sites

Carlos_Seiji    0

Carlos_Seiji
Postado

nesta linha

StrSql="Select * from clientes,processos where clientes.acesso='"&codigox&"'"
mude p/

 

StrSql="Select campo1, campo2 from clientes,processos where clientes.acesso='"&codigox&"'"
entendeu? campo 1, campo2 sao os campos que você vai puxar nesta consulta.

Compartilhar este post

Link para o post
Compartilhar em outros sites

cabral51    0

cabral51
Postado

Bom, naum deuc erto naum aparece simplesmente nada, eu tenhu duas consultas antes desta q eu to tentando:

-primeira:

<%		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 		%>
Segunda

<%		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()		While not tbbanco1.eof 		%>	  <tr bgcolor="#CCCCCC" class="style8">		<td class="style9"><p><%=tbbanco1("processo")%></p></td>		<td class="style9"><%=tbbanco1("revista")%></td>		<td class="style9"><%=tbbanco1("depo_exec")%></td>		<td class="style9" style="font-weight:800"><%=tbbanco1("marca")%></td>		<td class="style9"><%=tbbanco1("ult_desp")%></td>		<td class="style9"><a href="http://www.inpi.gov.br" target="_blank"><%=tbbanco1("classe")%></td>		<td class="style9"><%=tbbanco1("providencia")%></td> <%		tbbanco1.movenext		  wend %>
TErceira

<% StrSql="Select processos.obs_import 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()		While not tbbanco1.eof 		%>		 			 <br><p>Obs: <%=tbbanco1("obs_import")%></p> 					<%tbbanco1.movenext					wend	  %>
eh nessa que da problemas....

naum consigo resolver

Compartilhar este post

Link para o post
Compartilhar em outros sites

cabral51    0

cabral51
Postado

Vo por o codigo inteiro:

<% @Language=VbScript %><% Option Explicit %><!--#include file="bibconexaocli.asp"--><%  RESPONSE.BUFFER = TRUE  session.LCID = 1046' Banco de Dados e Tabelas  Dim item,banco,tbBanco,tbBanco1,tbBanco2,msg,strsql,bancario,entid,codigox,listar,prospect,arquivo,arquivos,fso   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 {font-family:Verdana, Arial, Helvetica, sans-serif;position:relative;}.a link{text-decoration:none;color:#000000;}.a hoover{text-decoration:none;color:#000000;}.a visited{text-decoration:none;color:#000000;}.style4 {font-weight:800;font-size:14px;color:#FFFFFF;text-align:center;vertical-align:middle;font-family:Tahoma, sans-serif;}.style8 {font-family:Tahoma, sans-serif;font-size:10px;text-align:center;vertical-align:middle;}.style7 {	color: #FF0000;	font-family: Verdana, Arial, Helvetica, sans-serif;	font-weight: bold;}.style9 {font-family: Verdana, Arial, Helvetica, sans-serif}.style10 {font-family: Verdana, Arial, Helvetica, sans-serif; font-weight: bold; }--></style></head><body><div align="center"><div id="master"><p align="center" class="style7">Consulta de Processos </p><p align="center" class="style9">	<%		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 		%><p align="left" class="style10">Empresa:<% =tbbanco1("empresa") %> - Cliente: <%=tbbanco1("n_cli")%></p>  <p align="left" class="style10">Responsavel: <%=tbbanco1("respons_empresa")%> </p>  <p align="left" class="style10">CNPJ: <%=tbbanco1("cnpj")%></p>  <div align="left"><span class="style9">		</span>  </div>  <p align="center" class="style9"><span class="MsoNormal"><span style='font-size:13.0pt'>Apresentamos abaixo, o posicionamento de seu processo de marca junto ao INPI. </span></span></p><div align="center" class="style9">  <div align="center">	  <%	Set fso = Server.CreateObject("Scripting.FileSystemObject")	Set arquivo=Fso.GetFolder(Server.MapPath("imagens/"&codigox&"/"))	Set arquivos=arquivo.files	 For each item in arquivos 'response.Write item.name & "<br>"%>		<img src="imagens/<%=codigox%>/<%=item.name%>">	  <%	Next		Set arquivos=nothing	Set arquivo=nothing	Set fso=nothing%>	  </div></div><div align="center">  <table width="800" border="0" cellspacing="1.5">	  <tr bgcolor="#336699" class="style4">		<td width="75" class="style9"><p>Número</p></td>		<td width="75" class="style9"><p>N° Revista</p></td>		<td width="90" class="style9"><p>Prioridade</p></td>		<td width="120" class="style9"><p>Marca</p></td>		<td width="100" class="style9"><p>Situação</p></td>		<td width="50" class="style9"><p>Classe</p></td>		<td class="style9"><p>Providência</p></td>	  </tr> 	  <%		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()		While not tbbanco1.eof 		%>	  <tr bgcolor="#CCCCCC" class="style8">		<td class="style9"><p><%=tbbanco1("processo")%></p></td>		<td class="style9"><%=tbbanco1("revista")%></td>		<td class="style9"><%=tbbanco1("depo_exec")%></td>		<td class="style9" style="font-weight:800"><%=tbbanco1("marca")%></td>		<td class="style9"><%=tbbanco1("ult_desp")%></td>		<td class="style9"><a href="http://www.inpi.gov.br" target="_blank"><%=tbbanco1("classe")%></td>		<td class="style9"><%=tbbanco1("providencia")%></td> <%		tbbanco1.movenext		  wend %> 	  </tr>	</table>  <div align="center">			   <%	   	StrSql="Select processos.obs_import 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()		While not tbbanco1.eof 		%>		 		   <span style='font-size:11.0pt'> Obs: <%=tbbanco1("obs_import")%></span>					<%tbbanco1.movenext					wend	  %>	  		De	  acordo com o classificador  as marcas deverão ser solicitadas abrangendo todo o	  objetivo social da Empresa , permitindo assim</span> <spanstyle='font-size:13.0pt'>a cobertura total dos serviços por ela prestados.</span>	  	<b><span style='font-size:11.0pt'><br>	  <br>	  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.</span></b>	  	<b><span style='font-size:11.0pt'> </span></b>	  	<b><u><span style='font-size:13.0pt;line-height:120%;text-align:center'><br>	  <br>	  ALTERAÇÕES	  NO USO DA MARCA</span></u></b>	  	<b><spanstyle='font-size:13.0pt;line-height:120%;color:red'> </span></b>	  	<span style='font-size:13.0pt'>   <br>	  <br>	  De acordo, com a Lei da Propriedade Industrial a marca não poderá sofrer	  alterações em sua EXPRESSÃO ou LOGOTIPO.</span>	  	<b><i><span style='font-size:13.0pt'>    <br>	<br>	Art. 143 – Caducará o registro se a marca estiver sendo usada com	  modificações que implique alteração de seu caráter distintivo  original.</span></i></b>	   	  <b><span style='font-size:13.0pt;line-height:120%;color:red;text-align:center'><br>	  <br>	  SUA	  MARCA É COISA SÉRIA ! DÊ A ATENÇÃO QUE ELA NECESSITA !</span></b>	  	<b><span style='font-size:13.0pt;line-height:120%;color:red'> </span></b>	  	<spanstyle='font-size:13.0pt;line-height:120%;color:red'>     	  </span><span style='font-size:13.0pt;line-height:120%;text-align:center'><br>	  <br>	  Para	  as devidas providencias, e ou esclarecimentos, nos ligue no fone:</span>	  <strong><span style='text-align:center;font-size:13.0pt;line-height:120%'>	  	<br>	  <br>	  11 – 3214-1190 ou 0800 770 72 90 </span></strong>  </div></div><p align="center" class=MsoNormal style='margin-left:35.45pt;line-height:120%' style9><spanstyle='font-size:13.0pt;line-height:120%'> </span></p><p align="left" class=MsoNormal style='margin-left:35.45pt;line-height:120%' style9><span style='font-size:13.0pt;color:black'>Ane Pessoa / Sandra Santos</span></p><p align="left" class=MsoNormal style='margin-left:35.45pt;line-height:120%' style9><span style='font-size:13.0pt;color:black'>Sac – Serviço de Atendimento ao Cliente </span> </p><div align="right"><span class="style10">© Copyright - Grupo Mercosul - Marcas e patentes</span> <img src="Logo%20Mercosul%203D2.jpg" width="76" height="75">		</div></div> </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>

Compartilhar este post

Link para o post
Compartilhar em outros sites

cabral51    0

cabral51
Postado

O galera ajuda eu acho q descobri onde ta o erro, na segunda consulta eh while not tbbanco1.eof, depois vem o wend dele, quando vai afzer a terceira ele naum faz pq???Pq o banco ja chegou ao final dos arquivos....alguem tem uma solucão???

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito