Ir para conteúdo

POWERED BY:

Arquivado

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

fabiosc80

Problemaço

Recommended Posts

falo o mesmo q o Juca...

 

simplifique ao inves de complicar.

teu SQL nem você mesmo ta entendendo... você montou de cabeca ou usou algum assistente de criacao?!

 

qual a estrutura do banco?!

e oq você quer trazer no sql?! de exemplos...

assim fica mais facil de todo mundo entender oq você nao ta entendendo.

 

flw!!

Pessoal, reativei esse post.

 

Seguinte,

Conversei aqui com os patroes e acho que mantenho o emprego porem preciso acabar esse menu de qualquer jeito.

 

Eu tentei fazer naquele código, while encadeado, segundo dicas da minha namorada mas nao ta dando certo tambem. Vou colocar o código todo aqui pra vcs verem. Olhem o While no meio do JavaScript.

 

Ele continua nao trazendo os dados corretamente. Ta do mesmo jeito olhem só. Pior que não sei mais o que fazer.

 

Abaixo o código.

 

ASP [/tr][tr]<!--#include file="conexao.asp"-->

<%

dim Sql,Sql2,Sql3,TB,TB1,TB2,TB3,BC

 

'string para exibir os dados

 

Sql= "Select CodigoEmpresa, Nome from Empresa"

 

%>

<html>

<head>

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

<title>:: NO MUNDO DA LUA ::</title>

 

<meta NAME="description" CONTENT="Insert Description Here">

<meta NAME="keywords" CONTENT="Insert Keywords Here">

 

<script language="Javascript" type="text/javascript">

function openWin()

{

var value = "main.html";

 

var nav = navigator.appVersion.charAt(0);

var nap = navigator.appName;

var xx = screen.width / 2 - 500;

var yy = screen.height / 2 - 400;

window.open(value,'DCFWin','resizable=no,screenX='+xx+',screenY='+yy+',width=500,height=400,status=no,location=no,toolbar=no,menubar=no,scrollbars=no');

}

</script>

 

<style type="text/css">

<!--

BODY {

background-image: URL(images/bg_sp.jpg);

background-repeat: repeat-x}

-->

</style>

 

<link rel="stylesheet" href="style1.css" type="text/css" media="screen">

 

</head>

 

<body marginwidth="0" marginheight="0" leftmargin="0" topmargin="0" scroll="no">

 

<table border="0" width="100%" cellspacing="0" cellpadding="0">

<tr>

<td width="50%" valign="top">

<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"

codebase="http://active.macromedia.com/flash4/cabs/swflash.cab#version=4,0,0,0"

id="Movie1" width="433" height="219">

<param name="_cx" value="11456">

<param name="_cy" value="5794">

<param name="FlashVars" value="-1">

<param name="Movie" value="movie1.swf">

<param name="Src" value="movie1.swf">

<param name="WMode" value="Window">

<param name="Play" value="-1">

<param name="Loop" value="-1">

<param name="Quality" value="High">

<param name="SAlign" value>

<param name="Menu" value="-1">

<param name="Base" value>

<param name="AllowScriptAccess" value="always">

<param name="Scale" value="ShowAll">

<param name="DeviceFont" value="0">

<param name="EmbedMovie" value="0">

<param name="BGColor" value>

<param name="SWRemote" value><embed name="movie1" src="movie1.swf" quality="high" bgcolor="#FFFFFF" width="433" height="219" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash">

</object>

 

</td>

<td width="50%">

<p align="center"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"

codebase="http://active.macromedia.com/flash4/cabs/swflash.cab#version=4,0,0,0"

id="anima1" width="225" height="190" align="right">

<param name="movie" value="anima1.swf">

<param name="quality" value="high">

<param name="bgcolor" value="#FFFFFF">

<embed name="anima1" src="anima1.swf" quality="high" bgcolor="#FFFFFF"

width="225" height="190"

type="application/x-shockwave-flash"

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash">

</embed>

</object>

</td>

</tr>

</table>

<table border="0" width="100%" cellspacing="0" cellpadding="0">

<tr>

<td width="100%" background="images/top3.jpg" height="25">

<table border="0" width="100%" cellspacing="0" cellpadding="0">

<tr>

<td width="84%">

<p align="center"><applet Code=apPopupMenu Archive=apPopupMenu.jar Width=602 Height=20 MAYSCRIPT>

<param name="Copyright" value="Apycom Software - www.apycom.com">

<param name="font" value="Arial,12,0">

<param name="fontColor" value="000000">

<param name="fontHighColor" value="ff0000">

<param name="isHorizontal" value="true">

<param name="overSound" value="pix/put.au">

<param name="solidArrows" value="true">

<param name="clickSound" value="pix/empty.au">

<param name="systemSubFont" value="false">

<param name="buttonType" value="1">

<param name="status" value="link">

<param name="alignText" value="left">

<param name="backColor" value="d6d6d6">

<param name="backHighColor" value="d6d6d6">

<param name="menuItems" value="

<%AbreBanco

Set TB = BC.Execute(sql)%>

{ ,index.html,_self,pix/new1-05.gif}

 

{-}

 

{A Empresa,java script:open('aempresa.html','_blank','scrollbars=no,width=500,height=400,status=no,location=no,toolbar=no,menubar=no,'),_blank,pix/new4-038.gif}

 

{-}

 

{Produtos,pix/setup.gif}

 

<%

'select 1 listando as empresas

 

Do While not TB.EOF

%>

 

 

{|<%=TB("

Nome")%>}

 

<%sql2 = "

select * from categoria where CodigoEmpresa =" & TB("CodigoEmpresa")%>

 

<%Set TB2 = BC.Execute(sql2)%>

 

<%do while not Tb2.EOF%>

{||<%=TB2("

NomeCategoria")%>,java script:open('produtos/allure/allure.html','_blank','scrollbars=no,width=500,height=400,status=no,location=no,toolbar=no,menubar=no,'),_blank}

 

 

<%sql3 = "

select * from Subcategoria where CodigoCategoria =" & TB2("CodigoCategoria")%>

<%Set TB3 = BC.Execute(sql3)%>

 

<%do while not tb3.EOF %>

{|||<%=TB3("

NomeSubCategoria")%>,java script:open('produtos/feiticoo/casaldoamor.html','_blank','scrollbars=no,width=500,height=400,status=no,location=no,toolbar=no,menubar=no,'),_blank}

<%

TB3.Movenext

loop

 

 

Tb2.Movenext

loop

%>

<%

TB.MoveNext ' select 1

Loop ' select 1

%>

 

 

{-}

 

{Cadastro,pix/new4-0034.gif}

 

{|Cadastre-se para Acessar nossa Loja Virtual.,java script:open('cadastrosenha.html','_blank','scrollbars=no,width=500,height=400,status=no,location=no,toolbar=no,menubar=no,'),_blank}

{-}

{Loja Virtual,http://www.nomundodalua.com.br/inloja,_blank,pix/new4-0035.gif}

{-}

{Fale Conosco,java script:open('faleconosco.html','_blank','scrollbars=no,width=500,height=400,status=no,location=no,toolbar=no,menubar=no,'),_blank,pix/mail.gif}

{-}

"

>

</applet></td>

<td width="16%" valign="middle">

<p align="right"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"

codebase="http://active.macromedia.com/flash4/cabs/swflash.cab#version=4,0,0,0"

id="som" width="95" height="13">

<param name="movie" value="som.swf">

<param name="quality" value="high">

<param name="bgcolor" value="#D6D6D6">

<embed name="som" src="som.swf" quality="high" bgcolor="#D6D6D6"

width="95" height="13"

type="application/x-shockwave-flash"

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash">

</embed>

</object> </td>

</tr>

</table>

</td>

</tr>

</table>

 

<script language="Javascript">

function my_js_function()

{

alert('Click to continue...');

if (confirm('Do you want to open two small windows?'))

{

open('javascript.html','_blank','width=150,height=150');

open('javascript.html','_blank','width=100,height=100');

}

else

{

alert('Canceled...');

}

}

</script>

 

 

<table border="0" width="100%" cellspacing="0" cellpadding="0">

<tr>

<td width="100%">

<p align="center"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"

codebase="http://active.macromedia.com/flash4/cabs/swflash.cab#version=4,0,0,0"

id="banner_baixo" width="773" height="150">

<param name="movie" value="banner_baixo.swf">

<param name="quality" value="high">

<param name="bgcolor" value="#FFFFFF">

<embed name="banner_baixo" src="banner_baixo.swf" quality="high" bgcolor="#FFFFFF"

width="773" height="150"

type="application/x-shockwave-flash"

pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash">

</embed>

</object></p>

</td>

</tr>

</table>

 

 

<table border="0" width="100%" cellspacing="0" cellpadding="0">

<tr>

<td width="100%">

<p align="center"></p>

</td>

</tr>

</table>

 

 

<p align="center"><font face="Verdana" size="1">© Copyright 2003 - No Mundo da

Lua - Todos os direitos reservados - Design by <a href="http://www.nomevirtual.com.br" target="_blank">Nome

Virtual</a>   </font></p>

 

 

</body>

</html>

[/tr]

 

No aguardo de uma ajuda Urgente,

 

Fábio Sanches Carmona

Desenvolvedor Web

Compartilhar este post


Link para o post
Compartilhar em outros sites

Fabio,Mostre a estrutura das suas tabelas (só os campos que você quer usar) e diga o que você quer selecionar.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Fabio,

 

Mostre a estrutura das suas tabelas (só os campos que você quer usar) e diga o que você quer selecionar.

Kdu eu postei tudopois eu estava postando só umpedaço e acho que nao estavam entendendo.

 

Manda la vai..

 

Tabela Campo

Empresa>>>Nome

 

Tabela Campo

Categoria>>>NomeCategoria

 

Tabela Campo

Subcategoria>>>NomeSubCategoria

 

Os dados tem que ser exibidos nesta ordem:

Ao ter tudo:

Nome - NomeCategoria - NomeSubCateria

 

ou caso nao tenha subcategoria

Nome - NomeCategoria

 

Ou Caso não tenha Categoria

Nome

 

Importante que tem que mostrar sempre todas ao empresas ao menos.

E Se tiver categoria Mostrar todas as Categorias de cada empresa e assim tb na subcategoria.

 

Espero que tenham entendido.

Sobre o código tem que listar aqui...

Vejam como eu tava fazendo...

 

 

 

ASP [/tr][tr]<%

'select 1 listando as empresas

 

Do While not TB.EOF

%>

 

 

{|<%=TB("Nome")%>}

 

<%sql2 = "select * from categoria where CodigoEmpresa =" & TB("CodigoEmpresa")%>

 

<%Set TB2 = BC.Execute(sql2)%>

 

<%do while not Tb2.EOF%>

{||<%=TB2("NomeCategoria")%>,java script:open('produtos/allure/allure.html','_blank','scrollbars=no,width=500,height=400,status=no,location=no,toolbar=no,menubar=no,'),_blank}

 

 

<%sql3 = "select * from Subcategoria where CodigoCategoria =" & TB2("CodigoCategoria")%>

<%Set TB3 = BC.Execute(sql3)%>

 

<%do while not tb3.EOF %>

{|||<%=TB3("NomeSubCategoria")%>,java script:open('produtos/feiticoo/casaldoamor.html','_blank','scrollbars=no,width=500,height=400,status=no,location=no,toolbar=no,menubar=no,'),_blank}

<%

TB3.Movenext

loop

 

 

Tb2.Movenext

loop

%>

[/tr]

Compartilhar este post


Link para o post
Compartilhar em outros sites

Acho que só faltou fechar o primeiro Loop:

 

<%...códigoTB.MoveNextLoop%>

Testa aí

Compartilhar este post


Link para o post
Compartilhar em outros sites

Acho que só faltou fechar o primeiro Loop:

 

<%...códigoTB.MoveNextLoop%>
Testa aí
falta nao manga eu que colei errado o código aqui pra vcs lerem mesmo..veja só

 

 

ASP [/tr][tr]<%

'select 1 listando as empresas

 

Do While not TB.EOF

%>

 

 

{|<%=TB("Nome")%>}

 

<%sql2 = "select * from categoria where CodigoEmpresa =" & TB("CodigoEmpresa")%>

 

<%Set TB2 = BC.Execute(sql2)%>

 

<%do while not Tb2.EOF%>

{||<%=TB2("NomeCategoria")%>,java script:open('produtos/allure/allure.html','_blank','scrollbars=no,width=500,height=400,status=no,location=no,toolbar=no,menubar=no,'),_blank}

 

 

<%sql3 = "select * from Subcategoria where CodigoCategoria =" & TB2("CodigoCategoria")%>

<%Set TB3 = BC.Execute(sql3)%>

 

<%do while not tb3.EOF %>

{|||<%=TB3("NomeSubCategoria")%>,java script:open('produtos/feiticoo/casaldoamor.html','_blank','scrollbars=no,width=500,height=400,status=no,location=no,toolbar=no,menubar=no,'),_blank}

<%

TB3.Movenext

loop

 

 

Tb2.Movenext

loop

%>

<%

TB.MoveNext ' select 1

Loop ' select 1

%>

[/tr]

Compartilhar este post


Link para o post
Compartilhar em outros sites

Véio, o código ASP parece estar em ordem. Qual o problema que você está tendo?

Tipo as empresas que nao tem Categoria ele nao ta mostrando essas empresas no menu e as categorias que nao tem subcateria ele nao mostra as categorias no menu.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Teu problema parece estar no java. Para confirmar, teste usando o mesmo loop para escrever os valores dos TBs, ou seja tire a parte do java:

 

ASP [/tr][tr]<%

'select 1 listando as empresas

 

Do While not TB.EOF

%>

 

 

<%=TB("Nome")%><br>

 

..etc

[/tr]

 

Veja se ele escreve tudo certo

Compartilhar este post


Link para o post
Compartilhar em outros sites

Teu problema parece estar no java. Para confirmar, teste usando o mesmo loop para escrever os valores dos TBs, ou seja tire a parte do java:

 

ASP [/tr][tr]<%

'select 1 listando as empresas

 

Do While not TB.EOF

%>

 

 

<%=TB("Nome")%><br>

 

..etc

[/tr]

 

Veja se ele escreve tudo certo

A mesma coisa nao exibiu quase nada.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Se os dados nas tabelas existem mesmo e não estão sendo mostrados tente mudar de "Do While not TB.EOF" para "Do Until TB.EOF"

Compartilhar este post


Link para o post
Compartilhar em outros sites

Se os dados nas tabelas existem mesmo e não estão sendo mostrados tente mudar de "Do While not TB.EOF" para "Do Until TB.EOF"

Continua do mesmo jeito pior que ja nao sei mais oque fazer.

Compartilhar este post


Link para o post
Compartilhar em outros sites

este db é deste site??? se for só poe o endereço que o manga baixa...

Compartilhar este post


Link para o post
Compartilhar em outros sites

É, sem o BD fica difícil...Pelos relacionamentos vi que você não coloca a categoria na tabela Empresa e sim na tabela Categoria. Isso é estranho, pois vai haver repetição das categorias e consequentemente você tem que usar o mesmo CodigoCategoria para as categorias repetidas, se não dá pau.Não seria melhor colocar um campo CodigoCategoria na tabela Empresa?

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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