Ir para conteúdo

POWERED BY:

Arquivado

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

formalivre

[Resolvido] resultados em ordem alfabética

Por , em ASP Clássico

Recommended Posts

formalivre    0

formalivre
Postado

olá tenho este escript em ASP que buca uma relação de anunciantes em um BD.

está funcionando perfeitamente.

só não estou conseguindo fazer o resultado aparecer em ordem alfabética ele está aparecendo em ordem de ID

abaixo segue o código:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Option Explicit%>
<%
	Dim txtEmpresa, txtRevista, resposta, contador, regs
	Dim strNRegistros, rsNRegistros, strClassific, rsClassific
	Dim categoriaAtual, strClassifi, rsClassifi, id, pag
	
	txtEmpresa = Request.Form("txtEmpresa")
	txtRevista = Request.Form("txtRevista")
		
	'Definindo paginação
	regs = 100 'Aqui setamos quantos registros serão listados por página
	pag = request.querystring("pagina")
	if pag = "" Then
		pag = 1
	end if
	
		
	if txtEmpresa = "" or txtEmpresa = null then
		resposta  = "É necessário que você digite o nome da empresa ou serviço que quer procurar.<br />"
		resposta  = resposta&"<a href=""java script:history.go(-1)"">Volte</a> e altere sua pesquisa."
	else
		if txtRevista = "" or txtRevista = "0" then
			resposta = "É necessário que você escolha uma das revistas para que a procura seja efetuada.<br />"
			resposta  = resposta&"<a href=""java script:history.go(-1)"">Volte</a> e altere sua pesquisa."
		else
%>
<!--#include file="inc/conexao.asp"-->
<%
			rs.cursortype = 3 'Definimos o cursor a ser utilizado
			rs.pagesize = regs


			Dim sql
			if txtRevista = "all" then
				sql = "SELECT * FROM noticias WHERE data LIKE '%"&txtEmpresa&"%'"
			else
				sql = "SELECT * FROM noticias WHERE "&txtRevista&"=True AND data LIKE '%"&txtEmpresa&"%'"
			End If
			
			'set rs = database.Execute(sql)			
			rs.open sql
			
			resposta = "<b>Resultado da busca pela Categoria:</b> <font color=#FF0000>"&txtEmpresa&"</font><br><br>"
			
			
			
			if rs.EOF then
				resposta = "Não foi encontrado nenhum resultado"
			else
		
				if not rs.EOF then
					Dim chave 'Código do anúncio
					Dim titulo 'Nome do anunciante
					
					resposta = resposta&"<table width=""736"" cellspacing=""0"" cellpadding=""0"">"
					
					'indicando item de paginação
					rs.absolutepage = pag
					contador = 0

					rs.MoveFirst
					do while not rs.EOF
						chave  = rs("chave").value
						titulo = rs("titulo").value
						
						resposta = resposta&"</td><td width=""736""><img src=""imagens/lupa.jpg"" width=""22"" height=""22"" border=""0"" />  <a href=""java script:abrir('tela_3.asp?chave="&chave&"','760','600');"">"&titulo
						resposta = resposta&"</a>"
						resposta = resposta&"</td></tr>"
						
						resposta = resposta&"<tr><td colspan=""4"" height=""1"" bgcolor=""#CCCCCC""><img src=""imagens/pixel.gif"" width=""1"" height=""1"" /></td></tr>"
						
						contador = contador +1
						
						rs.MoveNext
					loop
					resposta = resposta&"</table>"
					
					'Fechando conexao
					Call FechaConexao
					
				End If
			End If
		End If
	End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml"><head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title></title>
<link href="estilos_emcondominios.css" rel="stylesheet" type="text/css" />
<script>
 function abrir(pagina, largura, altura) {
   // Definindo meio da tela
   var esquerda = (screen.width - largura)/2;
   var topo = (screen.height - altura)/2;

   // Abre a nova janela 
   window.open(pagina,'','height=' + altura + ', width=' + largura + ', top=' + topo + ', left=' + esquerda + ', scrollbars=yes'); 
 }
</script>
</head>

<body>
  <table border="0" align="center" cellpadding="0" cellspacing="0">
	<!--DWLayoutTable-->
	
	<tr>
	  <td class="texto"><%=resposta%></td>
	</tr>
  </table>
</body>
</html>
aguardo a ajuda de alguém.

obrigado desde já.

Juliano.

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