onde errei???

[shumi 0]

Galera o que estou errando????

tenho uma pagina de consulta e nela dependendo do login que você entrar aparece as campanhas tipo meu login é shumi aparece somente as campanha que eu cadastrei até ai beleza tava funcionando normal!

Ai no lado da campanha quero inserir o cliente de quem pertence essa campanha(Essa informação esta na mesma tabela do Banco de Dados)

 

Ai fiz assim:

 

<%dim Conexcao,sql,sql2,sql3,sql4,sql5,sql6,rs,rs2,rs3,rs4,rs5,rs6,varcodSet Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbsistema.mdb"))If NOT (Session("logado")) ThenResponse.Redirect "index.asp"Response.EndEnd If'varcod = request.querystring("varcod")'sql= "select * from promotor where codpromotor='"&varcod&"'" Sql= "select * from campanha WHERE dono = '"& Session("login") &"'" Sql1= "select * from campanha" Set rs=Conexcao.Execute(sql)Set rs2=Conexcao.Execute(sql1)%><!-- #include file="include/topo.asp"--><p>  <style type="text/css"><!--body {	background-color: #FFFFFF;	}	.texto10 {	font-family: Arial, Helvetica, sans-serif;	font-size: 10px;	color: #464646;}	.texto11 {	font-family:Arial, Helvetica, sans-serif;	font-size:13px;	color:#464646;	}--></style></p><p align="center"><span class="texto11">Relação de Campanhas</span><br></p><center>  <p> </p>  <table width="200" border="1">	<tr>	  <td><table width="165" border="1" bordercolor="#00CCFF">		<tr>		  <td><span class="texto10">Nome do Cliente</span></td>		</tr>		<tr>		  <td> <span class="texto10">			 <%   While not rs2.EOF   rs2=("cliente")   %>	  		  </span></td>		</tr>		<tr>		  <td><span class="texto10"><%=rs2("cliente")%></span> </td>		</tr>		<tr>		  <td>			<%	 rs.MoveNext	 wend set rs=nothing%></td>		</tr>	  </table></td>	  <td><table width="165" border="1" bordercolor="#00CCFF">		<tr>		  <td><span class="texto10">Nome da Campanha</span></td>		</tr>		<tr>		  <td> <span class="texto10">		   <%   While not rs.EOF  rs=("campanha")   %>		  </span></td>		</tr>		<tr>		  <td><span class="texto10"><%="<a href= http://www.newstyle1.com/sistema/relatorio_campanha_f.asp?id=" & rs("codcampanha") & ">" & rs("campanha") & "</a>"%></span> </td>		</tr>		<tr>		  <td>			<%	 rs.MoveNext	 wend set rs=nothing%></td>		</tr>	  </table></td>	  <td> </td>	</tr>  </table>  <p> </p></center><center>   <p>	 <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="50" height="50">		<param name="movie" value="voltar.swf">		<param name="quality" value="high">		<embed src="voltar.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="50" height="50"></embed>	 </object>  </p></center> <p><img src="imagens/rodape.gif" width="779" height="44"></p>	  </body></html>

Mas ta dando erro!!!!

 

 

Erro de tempo de execução do Microsoft VBScript erro '800a000d'

 

Tipos incompatíveis

 

/sistema/relatorio_campanha.asp, line 63

 

o que fiz de errado???

 

abraços e Valeu!!!

o que está errado???

[ultra 0]

Eu acho q o erro está aqui:57. rs2=("cliente")remove isso e tenta denovo

[shumi 0]

Eu acho q o erro está aqui:57. rs2=("cliente")remove isso e tenta denovo

agora o erro éADODB.Recordset erro '800a0bcd' Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. /sistema/relatorio_campanha.asp, line 67 abraços e valeu

[ultra 0]

Seu Select não achou registros com a sua condiçãoAliás, você está mandando o rs.movenext, quando você executou o while pelo rs2...... basta mudar e tente novamente

[shumi 0]

Seu Select não achou registros com a sua condiçãoAliás, você está mandando o rs.movenext, quando você executou o while pelo rs2...... basta mudar e tente novamente

Cara deu certo!Falta de atenção minha!mas agora to com um problema que é o seguinte, a campanha(como falei acima) cada usuario tem as suas e o cliente não então quando entro pra consultar esta aparecendo todos os clientes que existe no banco de dados em uma coluna e na outra coluna está aparecendo só as camapnhas do usuario!eu teria que fazer uma relação entre os dois.como faço isso????abraços!

[ultra 0]

Na verdade você está fazendo 2 consultas no seu site: 1 pra listar todos os dados da tabela campanha, onde o usuário é quem loga, e outra pra listar TODAS campanhas da mesma tabelaColoca no segundo select a mesma condição do primeiro. Aliás, copia idêntico.Depois q você fazer funcionar, refaça seu código. Dá pra ter o resultado q você quer através de apenas 1 select (mas dexa isso pra depois q você conseguir fazer funcionar o site)

[shumi 0]

Na verdade você está fazendo 2 consultas no seu site: 1 pra listar todos os dados da tabela campanha, onde o usuário é quem loga, e outra pra listar TODAS campanhas da mesma tabelaColoca no segundo select a mesma condição do primeiro. Aliás, copia idêntico.Depois q você fazer funcionar, refaça seu código. Dá pra ter o resultado q você quer através de apenas 1 select (mas dexa isso pra depois q você conseguir fazer funcionar o site)

HA NAUM ACREDITO!!!!Foi a unica coisa que naum tinha tentado!todas as besteiras que se podia fazer eu testei!!!!hehehheValeu!Mas como eu faço só com uma instrução SQL?você me deixou curioso agora!Abraços!

[ultra 0]

É pq as duas SQL suas são idênticas !ao invés de abrir 2 conexao, você poe usar apenas 1, e se quiser fazer outro loop basta apagar a linha set rs=nothing, e fazer outro while (mas coloque um rs.movefirst)

[shumi 0]

É pq as duas SQL suas são idênticas !ao invés de abrir 2 conexao, você poe usar apenas 1, e se quiser fazer outro loop basta apagar a linha set rs=nothing, e fazer outro while (mas coloque um rs.movefirst)

Cara coloquei desse jeito pra dar uma organizada no codigo, mas quando coloco o rs.movefirstfica mais lento parece!coloquei assim agora:

<%dim Conexcao,sql,sql2,sql3,sql4,sql5,sql6,rs,rs2,rs3,rs4,rs5,rs6,varcodSet Conexcao = Server.CreateObject("ADODB.Connection")Conexcao.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbsistema.mdb"))If NOT (Session("logado")) ThenResponse.Redirect "index.asp"Response.EndEnd If'varcod = request.querystring("varcod")'sql= "select * from promotor where codpromotor='"&varcod&"'" Sql= "select * from campanha WHERE dono = '"& Session("login") &"'"Set rs=Conexcao.Execute(sql)%><!-- #include file="include/topo.asp"--><p>  <style type="text/css"><!--body {	background-color: #FFFFFF;	}	.texto10 {	font-family: Arial, Helvetica, sans-serif;	font-size: 10px;	color: #464646;}	.texto11 {	font-family:Arial, Helvetica, sans-serif;	font-size:13px;	color:#464646;	}--></style></p><p align="center"><span class="texto11">Relação de Campanhas</span><br>  <br></p><center><table width="437" border="1" bordercolor="#00CCFF">  <tr>  <td><span class="texto10">Clientes</span></td>  <td><span class="texto10">Campanhas</span></td>  </tr>  <tr>	<td width="92"><span class="texto10">	 </span></td>	<td width="210"><span class="texto10">	  <%   While not rs.EOF   %>	</span></td>  </tr>  <tr>	<td><span class="texto10"><%=rs("cliente")%></span></td>	<td><span class="texto10"><%="<a href= http://www.newstyle1.com/sistema/relatorio_campanha_f.asp?id=" & rs("codcampanha") & ">" & rs("campanha") & "</a>"%></span></td>  </tr>  <tr>	<td></td>	<td><%	 rs.MoveNext	 wend	 set rs=nothing%></td>  </tr></table></center><center>  <p> </p>  <p> </p></center><center>   <p>	 <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="50" height="50">		<param name="movie" value="voltar.swf">		<param name="quality" value="high">		<embed src="voltar.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="50" height="50"></embed>	 </object>  </p></center><p><img src="imagens/rodape.gif" width="779" height="44"></p>	  </body></html>

Valeu pela ajuda!!!Ta certinho agora! :natalbiggrin: