Ir para conteúdo

POWERED BY:

Arquivado

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

Boris

Agrupamento com DISTINCT

Por , em ASP Clássico

Recommended Posts

Boris    0

Boris
Postado

Salve Galera, estou com o seguinte problema...

 

Eu estou com um codigo que eu gostaria de está agrupando os registro por pais mas não estou conseguindo atualmente o resultado é o seguinte:

 

Afeganistão

Data Cidade Nome Site Categoria

01 - 02 nome da cidade nome do evento site do evento Feiras

de Janeiro

 

Afeganistão

Data Cidade Nome Site Categoria

30 - 31 nome da cidade nome do evento site do evento Reunião

de Maio

 

Afeganistão

Data Cidade Nome Site Categoria

27 - 30 nome da cidade nome do evento site do evento Reunião

de Junho

 

E o Resultado que estou tentando obter é o seguinte:

 

==========================================================

Afeganistão

==========================================================

Data Cidade Nome Site Categoria

01 - 02 nome da cidade nome do evento site do evento Feiras

de Janeiro

==========================================================

Data Cidade Nome Site Categoria

30 - 31 nome da cidade nome do evento site do evento Reunião

de Maio

==========================================================

Data Cidade Nome Site Categoria

27 - 30 nome da cidade nome do evento site do evento Reunião

de Junho

==========================================================

 

Eu tentei mas não estou conseguindo, o meu codigo é o seguinte

 

<!--#include file="cn.asp"-->

<%

Response.Expires = 0

%>

<html>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">

<br>

<br>

<table width="600" border="0" cellspacing="0" cellpadding="0">

<tr>

<td height="42" valign="top"><span class="texto8bold">

<%

'ativo,categoria,pais,cidade,dia,mes_inicio,mes_fim,ano,evento,site,desc_adic

ional,id_evento

intConta = 1

 

Sql="Select distinct(pais), bandeiras From tbCalendario_Evento where ativo='1'"

Set rs=cn.Execute(Sql)

 

vCalendario = "select * from tbCalendario_Evento where ativo='1' and idioma='p' ORDER BY pais ASC"

set rs_calendario = cn.Execute(vCalendario)

if rs_calendario.BOF AND rs_calendario.EOF then

response.write ""

else

while NOT rs_calendario.EOF AND intConta <=500

intConta = intConta + 1

%>

</span><br>

<table width="600" border="0" cellspacing="0" cellpadding="0">

<tr>

<td bgcolor="#FFFFFF">

<%

response.Write(rs("bandeiras"))

%>

<%

response.Write(rs("pais"))

%>

</b></a></font></td>

</tr>

<tr>

<td><table width="600" border="0" cellspacing="0" cellpadding="0">

<tr>

<td height="20" bgcolor="#CCCCCC"><div align="center" class="style9">Data</div></td>

<td bgcolor="#CCCCCC"><div align="center" class="style9 style11 style10">Cidade</div></td>

<td bgcolor="#CCCCCC"><div align="center" class="style9">

<div align="left">Nome</div>

</div></td>

<td bgcolor="#CCCCCC"><div align="center" class="style9">

<div align="left">Site</div>

</div></td>

<td bgcolor="#CCCCCC"><div align="center" class="style9">Categoria</div></td>

</tr>

<tr>

<td width="15%"><font face="verdana">

<%

response.Write(rs_calendario("id_evento"))

%>

</font>

<div align="center"><span class="style10"><font face="verdana">

<%

response.Write(rs_calendario("dia"))

%>

<br>

<%

response.Write(rs_calendario("mes_inicio"))

%>

-

<%

response.Write(rs_calendario("mes_fim"))

%>

</b></a></font></span></div></td>

<td width="22%">

<div align="center"><span class="style12">

<%

response.Write(rs_calendario("cidade"))

%>

</b></a></font></span></span></div></td>

<td width="23%">

<span class="style12">

<%

response.Write(rs_calendario("evento"))

%>

</b></a></font></span></span></td>

<td width="23%">

<span class="style12">

<%

response.Write(rs_calendario("site"))

%>

</b></a></font></span></span></td>

<td width="17%">

<span class="style12">

<%

response.Write(rs_calendario("categoria"))

%>

</b></a></font></span></span></td>

</tr>

</table></td>

</tr>

 

</table></td></tr>

</table>

<%

rs_calendario.MoveNext

Wend

end if

rs_calendario.Close

set rs_calendario = nothing

%>

</body>

</html>

Valew galera http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

voce pode provocar esta situação com um simples if dentro de seu loop

 

 

voce cria uma variavel de controle

 

o Afeganistão é o nome do pais?

 

Voce cria fora do laço a vatiavel de controle, tipo

 

Pais = ""

Pronto agora dentro do laço

 

Voce testa se o que tem em pais é diferente do que vem do DB, se for voce imprime o nome do pais e ja troca o valor da variavel para so imprimir no proximo pais assim nao repetirá

 

IF Pais <> rs("pais") THEN
Pais = rs("pais")
Response.Write(Pais)
END IF

Veja se é isso

Compartilhar este post

Link para o post
Compartilhar em outros sites

Boris    0

Boris
Postado

Eu fiz conforme você disse Mario porem não sei se fiz algo de errado mas não deu certo

 

Porem não deu certo esta aparecendo apenas uma de cada pais porem no caso do Afeganistão eu tenho outros registros com o esse mesmo pais não está aprecendo em baixo.

 

Eu fiz algo de errado ?

 

 

Afeganistão

 

Data Cidade Nome Site Categoria

30

01 - 02

1 - 2 teste cidade afeganistão nome do evento site do evento Feiras

Deveria aparecer outros registros do pais de Afeganistão conforme o exemplo que dei no post

 

 

Brasil

 

Data Cidade Nome Site Categoria

14

30 31 e 1

Março - Abril São Paulo asdf fsad fsad Feiras

 

 

 

<!--#include file="cn.asp"-->

<%

Response.Expires = 0

%>

<html>

<head>

<title></title>

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

<style type="text/css">

<!--

.texto8 { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: normal; color: #333333; text-decoration: none}

.texto8bold { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: bold; color: #3F68AD; text-decoration: none}

.texto7 { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 7pt; font-weight: normal; color: #000000; text-decoration: none}

.texto8boldred { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: bold; color: #FF0000; text-decoration: none }

.sombra { filter:progid:DXImageTransform.Microsoft.dropshadow(OffX=3, OffY=5, Color='#999999', Positive='true')

}

.style9 {font-family: verdana; font-size: 10px; font-weight: bold; }

.style10 {font-size: 10px}

.style11 {font-family: verdana}

.style12 {font-family: verdana; font-size: 10px; }

-->

</style>

</head>

 

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">

<strong><font face="verdana" size="1"><br />

CALENDARIO DE EVENTOS ANFACER<br />

</font></strong>

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

<tbody>

<tr>

<td background="/imagens/conteudo/Image/Imagens_ico/line_ponto.gif"><img height="3" alt="" src="/imagens/conteudo/Image/Imagens_ico/line_ponto.gif" width="60" /></td>

</tr>

</tbody>

</table>

<br>

<table cellspacing="0" cellpadding="1" width="600" border="0">

<tbody>

<tr>

<td height="25"><div align="center"><font size="1"><strong><font face="verdana"><img height="87" alt="" src="http://www.anfacer.org.br/imagens/conteudo/Image/Banners/468%20PX/Revestir_2009_Portugues_468(4).jpg" width="470" usemap="#Map2" border="0" /></font></strong></font></div></td>

</tr>

</tbody>

</table>

<br>

<table width="600" border="0" cellspacing="0" cellpadding="0">

<tr>

<td height="42" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr>

<td height="25" bgcolor="#000000"><div align="center"><strong><font face="VERDANA" color="#ffffff" size="1">EVENTOS 2009</font></strong></div></td>

</tr>

</table>

<span class="texto8bold">

 

 

 

<%

'ativo,categoria,pais,cidade,dia,mes_inicio,mes_fim,ano,evento,site,desc_adic

ional,id_evento

intConta = 1

 

Sql="Select distinct(pais), bandeiras From tbCalendario_Evento where ativo='1'"

Set rs=cn.Execute(Sql)

 

vCalendario = "select * from tbCalendario_Evento where ativo='1' and idioma='p' ORDER BY pais ASC"

set rs_calendario = cn.Execute(vCalendario)

if rs_calendario.BOF AND rs_calendario.EOF then

response.write ""

else

while NOT rs_calendario.EOF AND intConta <=500

'intConta = intConta + 1

%>

<br>

<%

IF Pais <> rs_calendario("pais") THEN

Pais = rs_calendario("pais")

Response.Write(Pais)

 

%>

</span><br>

<table width="600" border="0" cellspacing="0" cellpadding="0">

<tr>

<td bgcolor="#FFFFFF">

<%

response.Write(rs("bandeiras"))

%>

<%

'response.Write(rs(""))

%>

</b></a></font></td>

</tr>

<tr>

<td><table width="600" border="0" cellspacing="0" cellpadding="0">

<tr>

<td height="20" bgcolor="#CCCCCC"><div align="center" class="style9">Data</div></td>

<td bgcolor="#CCCCCC"><div align="center" class="style9 style11 style10">Cidade</div></td>

<td bgcolor="#CCCCCC"><div align="center" class="style9">

<div align="left">Nome</div>

</div></td>

<td bgcolor="#CCCCCC"><div align="center" class="style9">

<div align="left">Site</div>

</div></td>

<td bgcolor="#CCCCCC"><div align="center" class="style9">Categoria</div></td>

</tr>

<tr>

<td width="15%"><font face="verdana">

<%

response.Write(rs_calendario("id_evento"))

%>

</font>

<div align="center"><span class="style10"><font face="verdana">

<%

response.Write(rs_calendario("dia"))

%>

<br>

<%

response.Write(rs_calendario("mes_inicio"))

%>

-

<%

response.Write(rs_calendario("mes_fim"))

%>

</b></a></font></span></div></td>

<td width="22%">

<div align="center"><span class="style12">

<%

response.Write(rs_calendario("cidade"))

%>

</b></a></font></span></span></div></td>

<td width="23%">

<span class="style12">

<%

response.Write(rs_calendario("evento"))

%>

</b></a></font></span></span></td>

<td width="23%">

<span class="style12">

<%

response.Write(rs_calendario("site"))

%>

</b></a></font></span></span></td>

<td width="17%">

<span class="style12">

<%

response.Write(rs_calendario("categoria"))

%>

</b></a></font></span></span></td>

</tr>

</table></td>

</tr>

<tr>

<td height="10"></td>

</tr>

</table></td>

</tr>

</table>

<%

END IF

rs_calendario.MoveNext

Wend

end if

rs_calendario.Close

set rs_calendario = nothing

%>

</body>

</html>

 

Obrigado http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Poe o end if junto ali

 

logo abaixo

Compartilhar este post

Link para o post
Compartilhar em outros sites

Boris    0

Boris
Postado

Boa Noite Mario, eu coloquei mais pra baixo mas não rolo.....

 

o id 14 é do Pais Brasil e está aparecendo em afeganistão

 

 

Afeganistão

 

Data Cidade Nome Site Categoria

id 30

01 - 02

1 - 2 teste cidade afeganistão nome do evento site do evento Feiras

 

Data Cidade Nome Site Categoria

id 29

01 - 02

1 - 2 teste cidade afeganistão nome do evento site do evento Feiras

 

Data Cidade Nome Site Categoria

id 28

01-01

1 - 2 sssss evento teste site do evento Feiras

 

Data Cidade Nome Site Categoria

id 14

30 31 e 1

Março - Abril São Paulo asdf fsad fsad Feiras

 

=========================================

 

Certo Seria

 

Afeganistão

 

Data Cidade Nome Site Categoria

id 30

01 - 02

1 - 2 teste cidade afeganistão nome do evento site do evento Feiras

 

Data Cidade Nome Site Categoria

id 29

01 - 02

1 - 2 teste cidade afeganistão nome do evento site do evento Feiras

 

Data Cidade Nome Site Categoria

id 28

01-01

1 - 2 sssss evento teste site do evento Feiras

 

Brasil

 

Data Cidade Nome Site Categoria

id 14

30 31 e 1

Março - Abril São Paulo asdf fsad fsad Feiras

 

 

<!--#include file="cn.asp"-->

<%

Response.Expires = 0

%>

<html>

<head>

<title></title>

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

<style type="text/css">

<!--

.texto8 { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: normal; color: #333333; text-decoration: none}

.texto8bold { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: bold; color: #3F68AD; text-decoration: none}

.texto7 { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 7pt; font-weight: normal; color: #000000; text-decoration: none}

.texto8boldred { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: bold; color: #FF0000; text-decoration: none }

.sombra { filter:progid:DXImageTransform.Microsoft.dropshadow(OffX=3, OffY=5, Color='#999999', Positive='true')

}

.style9 {font-family: verdana; font-size: 10px; font-weight: bold; }

.style10 {font-size: 10px}

.style11 {font-family: verdana}

.style12 {font-family: verdana; font-size: 10px; }

-->

</style>

</head>

 

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">

<strong><font face="verdana" size="1"><br />

CALENDARIO DE EVENTOS ANFACER<br />

</font></strong>

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

<tbody>

<tr>

<td background="/imagens/conteudo/Image/Imagens_ico/line_ponto.gif"><img height="3" alt="" src="/imagens/conteudo/Image/Imagens_ico/line_ponto.gif" width="60" /></td>

</tr>

</tbody>

</table>

<br>

<table cellspacing="0" cellpadding="1" width="600" border="0">

<tbody>

<tr>

<td height="25"><div align="center"><font size="1"><strong><font face="verdana"><img height="87" alt="" src="http://www.anfacer.org.br/imagens/conteudo/Image/Banners/468%20PX/Revestir_2009_Portugues_468(4).jpg" width="470" usemap="#Map2" border="0" /></font></strong></font></div></td>

</tr>

</tbody>

</table>

<br>

<table width="600" border="0" cellspacing="0" cellpadding="0">

<tr>

<td height="42" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr>

<td height="25" bgcolor="#000000"><div align="center"><strong><font face="VERDANA" color="#ffffff" size="1">EVENTOS 2009</font></strong></div></td>

</tr>

</table>

<span class="texto8bold">

 

 

 

<%

'ativo,categoria,pais,cidade,dia,mes_inicio,mes_fim,ano,evento,site,desc_adic

ional,id_evento

intConta = 1

 

Sql="Select distinct(pais), bandeiras From tbCalendario_Evento where ativo='1'"

Set rs=cn.Execute(Sql)

 

vCalendario = "select * from tbCalendario_Evento where ativo='1' and idioma='p' ORDER BY pais ASC"

set rs_calendario = cn.Execute(vCalendario)

if rs_calendario.BOF AND rs_calendario.EOF then

response.write ""

else

 

IF Pais <> rs_calendario("pais") THEN

Pais = rs_calendario("pais")

Response.Write(Pais)

 

while NOT rs_calendario.EOF AND intConta <=500

intConta = intConta + 1

%>

<br>

 

</span><br>

<table width="600" border="0" cellspacing="0" cellpadding="0">

<tr>

<td bgcolor="#FFFFFF">

<%

response.Write(rs("bandeiras"))

%>

<%

'response.Write(rs(""))

%>

</b></a></font></td>

</tr>

<tr>

<td><table width="600" border="0" cellspacing="0" cellpadding="0">

<tr>

<td height="20" bgcolor="#CCCCCC"><div align="center" class="style9">Data</div></td>

<td bgcolor="#CCCCCC"><div align="center" class="style9 style11 style10">Cidade</div></td>

<td bgcolor="#CCCCCC"><div align="center" class="style9">

<div align="left">Nome</div>

</div></td>

<td bgcolor="#CCCCCC"><div align="center" class="style9">

<div align="left">Site</div>

</div></td>

<td bgcolor="#CCCCCC"><div align="center" class="style9">Categoria</div></td>

</tr>

<tr>

<td width="15%"><font face="verdana">

<%

response.Write(rs_calendario("id_evento"))

%>

</font>

<div align="center"><span class="style10"><font face="verdana">

<%

response.Write(rs_calendario("dia"))

%>

<br>

<%

response.Write(rs_calendario("mes_inicio"))

%>

-

<%

response.Write(rs_calendario("mes_fim"))

%>

</b></a></font></span></div></td>

<td width="22%">

<div align="center"><span class="style12">

<%

response.Write(rs_calendario("cidade"))

%>

</b></a></font></span></span></div></td>

<td width="23%">

<span class="style12">

<%

response.Write(rs_calendario("evento"))

%>

</b></a></font></span></span></td>

<td width="23%">

<span class="style12">

<%

response.Write(rs_calendario("site"))

%>

</b></a></font></span></span></td>

<td width="17%">

<span class="style12">

<%

response.Write(rs_calendario("categoria"))

%>

</b></a></font></span></span></td>

</tr>

</table></td>

</tr>

<tr>

<td height="10"></td>

</tr>

</table></td>

</tr>

</table>

<%

 

rs_calendario.MoveNext

 

Wend

END IF

end if

 

rs_calendario.Close

set rs_calendario = nothing

%>

</body>

</html>

Agradeço desde já a atenção de todos, se poderem continuar me ajudando eu fico agradecido.

 

 

Valew

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

nao mestre nao é mais pra baixo

 

é logo abaixo

 

Assim

 

IF Pais <> rs_calendario("pais") THEN
Pais = rs_calendario("pais")
Response.Write(Pais)
End IF

Compartilhar este post

Link para o post
Compartilhar em outros sites

Boris    0

Boris
Postado

Eu fiz o que me foi orientado mas agora aparece da seguinte forma

 

Afeganistão

 

Data Cidade Nome Site Categoria

30

01 - 02

1 - 2 teste cidade afeganistão nome do evento site do evento Feiras

 

Data Cidade Nome Site Categoria

28

01-01

1 - 2 sssss evento teste site do evento Feiras

 

Brasil

 

Data Cidade Nome Site Categoria

29

01 - 02

1 - 2 teste cidade afeganistão nome do evento site do evento Feiras

 

Brasil

 

Data Cidade Nome Site Categoria

14

30 31 e 1

Março - Abril São Paulo asdf fsad fsad Feiras

 

 

Ou seja no caso de afeganistão deu certo, mas no caso dos registros cujo o país é Brasil se houver mais de um registro ele repete o mais conforme acima

 

 

<%

 

while NOT rs_calendario.EOF AND intConta <=500

intConta = intConta + 1

 

IF Pais <> rs_calendario("pais")THEN

Pais = rs_calendario("pais")

Response.Write(Pais)

end if

 

%>

 

como eu faria neste caso..........

 

Valew http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Nao entendi pois nao deveria ter acontecido

 

 

tem este arquivo online?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Mas assim nao rola boris

 

Continue por aqui mesmo

Compartilhar este post

Link para o post
Compartilhar em outros sites

Boris    0

Boris
Postado

foi mal Mario é que eu não tenho ele online pensei que te mandando depois você poderia postar aqui me mostrando onde eu errei.

 

eu procurei limpar o codigo e deixar o mais limpo possivel para melhor entendimento

 

<!--#include file="cn.asp"-->

 

<%

Sql="Select distinct(pais), bandeiras From tbCalendario_Evento where ativo='1'"

Set rs=cn.Execute(Sql)

 

vCalendario = "select * from tbCalendario_Evento where ativo='1' and idioma='p' ORDER BY pais ASC"

set rs_calendario = cn.Execute(vCalendario)

if rs_calendario.BOF AND rs_calendario.EOF then

response.write ""

else

 

IF Pais <> rs_calendario("pais") THEN

Pais = rs_calendario("pais")

Response.Write(Pais)

 

while NOT rs_calendario.EOF AND intConta <=500

intConta = intConta + 1

%>

<b><br>

<%

IF Pais <> rs_calendario("pais") THEN

Pais = rs_calendario("pais")

Response.Write(Pais)

End IF

%>

</b>

<br>

<br>

<font face="verdana" size="1">

<b>Evento :</b>

<% response.Write(rs_calendario("evento"))%>

<br>

<b>Cidade :</b>

<% response.Write(rs_calendario("cidade"))

rs_calendario.MoveNext

 

Wend

END IF

end if

 

rs_calendario.Close

set rs_calendario = nothing

%>

</font><br>

Valew Mario

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

tira o if de fora do while

 

IF Pais <> rs_calendario("pais") THEN
Pais = rs_calendario("pais")
Response.Write(Pais)

e nao esquece de tirar o end if la de baixo correspondente

 

e posta como ficou

Compartilhar este post

Link para o post
Compartilhar em outros sites

Boris    0

Boris
Postado

Então ficou da mesma forma...

 

 

Afeganistão

 

Evento : nome do evento

Cidade : teste cidade afeganistão

 

Evento : nome do evento

Cidade : teste cidade afeganistão

 

Evento : evento teste

Cidade : sssss

Brasil

 

Evento : nome do evento

Cidade : teste cidade afeganistão

Brasil

 

Evento : asdf

Cidade : São Paulo

 

 

<!--#include file="cn.asp"-->

 

<%

Sql="Select distinct(pais), bandeiras From tbCalendario_Evento where ativo='1'"

Set rs=cn.Execute(Sql)

 

vCalendario = "select * from tbCalendario_Evento where ativo='1' and idioma='p' ORDER BY pais ASC"

set rs_calendario = cn.Execute(vCalendario)

if rs_calendario.BOF AND rs_calendario.EOF then

response.write ""

else

 

while NOT rs_calendario.EOF AND intConta <=500

intConta = intConta + 1

%>

<b><br>

<%

IF Pais <> rs_calendario("pais") THEN

Pais = rs_calendario("pais")

Response.Write(Pais)

End IF

%>

</b>

<br>

<br>

<font face="verdana" size="1">

<b>Evento :</b>

<% response.Write(rs_calendario("evento"))%>

<br>

<b>Cidade :</b>

<% response.Write(rs_calendario("cidade"))

rs_calendario.MoveNext

 

Wend

 

end if

 

rs_calendario.Close

set rs_calendario = nothing

%>

</font><br>

Estou tentando colocar ele online

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

o codigo mé so isso mesmo?

 

porque eu vi que voce seleciona os paises antes e nao vejo necessiade nisso

Compartilhar este post

Link para o post
Compartilhar em outros sites

Boris    0

Boris
Postado

Sim o codigo é só isso, eu procurei limpar o HTML pra ficar melhor pra visualizar o codigo.

 

Já alterei o codigo abaixo e atualizei online

 

Sql="Select distinct(pais), bandeiras From tbCalendario_Evento where ativo='1'"

Set rs=cn.Execute(Sql)

 

 

<%

Sql="Select * From tbCalendario_Evento where ativo='1'"

Set rs=cn.Execute(Sql)

 

vCalendario = "select * from tbCalendario_Evento where ativo='1' and idioma='p' ORDER BY pais ASC"

set rs_calendario = cn.Execute(vCalendario)

if rs_calendario.BOF AND rs_calendario.EOF then

response.write ""

else

 

while NOT rs_calendario.EOF AND intConta <=500

intConta = intConta + 1

%>quote]

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Acho que voce cortou coisa importante pra analise

 

Sei que irei me arrepender mas poe o codigo todo ai?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Boris    0

Boris
Postado

Esse é o codigo completo

 

<!--#include file="cn.asp"-->

<%

Response.Expires = 0

%>

<html>

<head>

<style type="text/css">

<!--

.texto8 { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: normal; color: #333333; text-decoration: none}

.texto8bold { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: bold; color: #3F68AD; text-decoration: none}

.texto7 { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 7pt; font-weight: normal; color: #000000; text-decoration: none}

.texto8boldred { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-weight: bold; color: #FF0000; text-decoration: none }

.sombra { filter:progid:DXImageTransform.Microsoft.dropshadow(OffX=3, OffY=5, Color='#999999', Positive='true')

}

.style9 {font-family: verdana; font-size: 10px; font-weight: bold; }

.style10 {font-size: 10px}

.style11 {font-family: verdana}

.style12 {font-family: verdana; font-size: 10px; }

-->

</style>

</head>

 

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">

<strong><font face="verdana" size="1"><br />

CALENDARIO DE EVENTOS ANFACER<br />

</font></strong>

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

<tbody>

<tr>

<td background="/imagens/conteudo/Image/Imagens_ico/line_ponto.gif"><img height="3" alt="" src="/imagens/conteudo/Image/Imagens_ico/line_ponto.gif" width="60" /></td>

</tr>

</tbody>

</table>

<br>

<table cellspacing="0" cellpadding="1" width="600" border="0">

<tbody>

<tr>

<td height="25"><div align="center"><font size="1"><strong><font face="verdana"><img height="87" alt="" src="http://www.anfacer.org.br/imagens/conteudo/Image/Banners/468%20PX/Revestir_2009_Portugues_468(4).jpg" width="470" usemap="#Map2" border="0" /></font></strong></font></div></td>

</tr>

</tbody>

</table>

<br>

<table width="600" border="0" cellspacing="0" cellpadding="0">

<tr>

<td height="42" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr>

<td height="25" bgcolor="#000000"><div align="center"><strong><font face="VERDANA" color="#ffffff" size="1">EVENTOS 2009</font></strong></div></td>

</tr>

</table>

<span class="texto8bold">

 

 

 

<%

 

intConta = 1

 

vCalendario = "select * from tbCalendario_Evento where ativo='1' and idioma='p' ORDER BY pais ASC"

set rs_calendario = cn.Execute(vCalendario)

if rs_calendario.BOF AND rs_calendario.EOF then

response.write ""

else

 

 

while NOT rs_calendario.EOF AND intConta <=500

intConta = intConta + 1

 

IF Pais <> rs_calendario("pais") THEN

Pais = rs_calendario("pais")

Response.Write(Pais)

end if

%>

<br>

 

</span><br>

<table width="600" border="0" cellspacing="0" cellpadding="0">

<tr>

<td bgcolor="#FFFFFF">

 

 

</b></a></font></td>

</tr>

<tr>

<td><table width="600" border="0" cellspacing="0" cellpadding="0">

<tr>

<td height="20" bgcolor="#CCCCCC"><div align="center" class="style9">Data</div></td>

<td bgcolor="#CCCCCC"><div align="center" class="style9 style11 style10">Cidade</div></td>

<td bgcolor="#CCCCCC"><div align="center" class="style9">

<div align="left">Nome</div>

</div></td>

<td bgcolor="#CCCCCC"><div align="center" class="style9">

<div align="left">Site</div>

</div></td>

<td bgcolor="#CCCCCC"><div align="center" class="style9">Categoria</div></td>

</tr>

<tr>

<td width="15%"><font face="verdana">

<%

response.Write(rs_calendario("id_evento"))

%>

</font>

<div align="center"><span class="style10"><font face="verdana">

<%

response.Write(rs_calendario("dia"))

%>

<br>

<%

response.Write(rs_calendario("mes_inicio"))

%>

-

<%

response.Write(rs_calendario("mes_fim"))

%>

</b></a></font></span></div></td>

<td width="22%">

<div align="center"><span class="style12">

<%

response.Write(rs_calendario("cidade"))

%>

</b></a></font></span></span></div></td>

<td width="23%">

<span class="style12">

<%

response.Write(rs_calendario("evento"))

%>

</b></a></font></span></span></td>

<td width="23%">

<span class="style12">

<%

response.Write(rs_calendario("site"))

%>

</b></a></font></span></span></td>

<td width="17%">

<span class="style12">

<%

response.Write(rs_calendario("categoria"))

%>

</b></a></font></span></span></td>

</tr>

</table></td>

</tr>

<tr>

<td height="10"></td>

</tr>

</table></td>

</tr>

</table>

<%

 

rs_calendario.MoveNext

 

Wend

 

end if

 

rs_calendario.Close

set rs_calendario = nothing

%>

</body>

</html>

tks

Compartilhar este post

Link para o post
Compartilhar em outros sites

davisvasconcellos    0

davisvasconcellos
Postado

eu ja peguei um lance parecido com esse seu. no meu caso eram escritórios e projetos deste escritório.

eu fiz 2 selects. um dentro do outro

 

o primeiro faz um distinct pra pegar os países no teu caso.

manda percorrer o RS jogando o nome do rs atual para uma var pais_temp

ai faz um select novo com o critério da busca o conteudo da var e manda listar o rs deste segundo select.

 

select distinct pais from tabela X

wile not rsPais.eof

pais_temp = rsPais("pais")

response.write pais_temp

select * from tabela X where pais = pais_temp

while not rsDesc.eof

response.write rsDesc("blablabla")

rsDesc.movenext

rsPais.movenext

 

vai ficar alguma coisa + - assim

 

PAIS XXXX

=================

desc 01 blablabla

desc 02 blablabla

desc N bla bla bla

 

PAIS YYYYY

=================

desc 01 blablabla

desc 02 blablabla

desc N bla bla bla

 

PAIS ZZZZZ

=================

desc 01 blablabla

desc 02 blablabla

desc N bla bla bla

 

tendeu a lógica da parada?

tomara que ajude.

Abs

Compartilhar este post

Link para o post
Compartilhar em outros sites

Boris    0

Boris
Postado

Eu fiz conforme você me orientou mas não deu certo deu o seguinte erro

 

Erro de compilação do Microsoft VBScript erro '800a03fa'

 

'Wend' esperado

 

/web/calendario/calendario.asp, line 28

 

 

meu codigo ficou assim

 

<!--#include file="cn.asp"-->

 

<%

a="select distinct pais from tbCalendario_Evento"

 

while not rsPais.EOF

 

pais_temp = rsPais("pais")

%>

<br />

<br />

<% Response.Write pais_temp %>

<br />

<br />

<%

b="select * from tbCalendario_Evento where pais = pais_temp"

 

while not rsDesc.eof

%>

<br />

<br />

<% Response.Write rsDesc("evento") %>

<br />

<br />

<%

rsDesc.MoveNext

 

rsPais.MoveNext

%>

Procurei limpar todo o codigo pra ficar melhor o meu entendimento mas não consegui.

 

a onde estou pecando ???

 

Valew

 

===============================================

 

Galera eu consegui meio caminho no qual esta aparecendo o País mas não os registros referente a cada um deles

 

 

Afeganistão

 

 

 

Brasil

 

 

o codigo foi o seguinte:

<!--#include file="cn.asp"-->

 

<%

 

vPais = "select distinct(pais) from tbCalendario_Evento where ativo='1' and idioma='p' ORDER BY pais ASC"

set rsPais = cn.Execute(vPais)

 

while not rsPais.EOF

 

pais_temp = rsPais("pais")

%>

<br />

<br />

<% Response.Write pais_temp %>

<br />

<br />

<%

 

vDesc = "select * from tbCalendario_Evento where pais='pais_temp'"

set rsDesc = cn.Execute(vDesc)

 

while not rsDesc.EOF

%>

<br />

<br />

<% Response.Write rsDesc("evento") %>

<br />

<br />

<%

rsDesc.MoveNext

wend

 

rsPais.MoveNext

wend

%>

a onde eu estou errando desta vez davisvasconcellos ?

 

Valew

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