visualizar registros paginados na categoria escolhida

Dr. admin · Abril 8, 2008

olha a página está funcionando, mas o problema é na hora de mostrar a paginação, ela não mostra a paginação quando selecionado uma categoria de busca................

se tem 50 regsitro em uma categoria e ele mostra 3 e fala que tem mais x páginas quando você vai para segunda página aonde deveria mostrar mais 3 registros diferentes daquela categoria que estava sendo filtrada, ele mostra mais 3 registros mas de todas as categorias.

por favor me ajudem...........................................

código que fica no browser quando é aberto normal..........

http://localhost/mmgp/site/agenda.asp

código que fica no browser quando é filtrado a pesquisa por categoria..........

http://localhost/mmgp/site/agenda.asp?mes=12

código que fica no browser quando é selecionado a 2 página da paginação fica assim..........

http://localhost/mmgp/site/agenda.asp?PagAtual=2 aqui está o problema

para mostrar os arquivos paginados da categoria que o usuário mandou filtrar eu preciso que fique assim................

http://localhost/mmgp/site/agenda.asp?PagAtual=2&mes=12

como é que eu faço?????? por favor me ajudem.....................

vou postar o código da página

"agenda.asp"

<%
Option Explicit
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "[url="http://www.w3.org/TR/html4/strict.dtd"]http://www.w3.org/TR/html4/strict.dtd[/url]">
<!--#Include file="conexao/conexao_sql.asp"-->
<%
DIM conexao 'variavel sa conexao
DIM rsMenu, rsMenuloja, rsMenuUtilidades, rsMenuCampanhas, rsNoticias, rsAgenda 'Recordsets
DIM sql_menu, sql_loja, sql_Utilidades, sql_Campanhas, sql_Noticias, strSQL 'instruções sql
DIM PagAtual, TotalPages, Count, i, cor, max_n_mostrados, intervalo, inicio, final 'variáveis de paginação
DIM Mes, dezembro, fevereiro
PagAtual = Request.QueryString("PagAtual") 'página atual

mes = request.querystring("busca")

Call AbreConexao
sql_menu = "select * from menu where categoria='menu' order by orden asc "
sql_loja = "select * from menu where categoria='loja virtual' order by nome asc "
sql_Utilidades = "select * from menu where categoria='Utilidades' order by nome asc "
sql_Campanhas = "select * from menu where categoria='Campanhas' order by nome asc "
sql_Noticias = "select top 5 * from noticias order by noticia_id desc "

select case request.QueryString("mes")

case 01
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/01/2008' and '31/01/2008' ORDER BY data DESC, hora DESC "

case 02
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/02/2008' and '29/02/2008' ORDER BY data DESC, hora DESC "

case 03
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/03/2008' and '31/03/2008' ORDER BY data DESC, hora DESC "

case 04
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/04/2008' and '30/04/2008' ORDER BY data DESC, hora DESC "

case 05
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/05/2008' and '31/05/2008' ORDER BY data DESC, hora DESC "

case 06
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/06/2008' and '30/06/2008' ORDER BY data DESC, hora DESC "

case 07
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/07/2008' and '31/07/2008' ORDER BY data DESC, hora DESC "

case 08
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/08/2008' and '31/08/2008' ORDER BY data DESC, hora DESC "

case 09
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/09/2008' and '30/09/2008' ORDER BY data DESC, hora DESC "

case 10
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/10/2008' and '31/10/2008' ORDER BY data DESC, hora DESC "

case 11
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/11/2008' and '30/11/2008' ORDER BY data DESC, hora DESC "

case 12
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/12/2008' and '31/12/2008' ORDER BY data DESC, hora DESC "

case else
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda ORDER BY data DESC, hora DESC "
end select

SET rsMenu = conexao.execute(sql_menu)
SET rsMenuloja = conexao.execute(sql_loja)
SET rsMenuUtilidades = conexao.execute(sql_Utilidades)
SET rsMenuCampanhas = conexao.execute(sql_Campanhas)
SET rsNoticias = conexao.execute(sql_Noticias)
SET rsAgenda = conexao.execute(strSQL)
Const NumPorPage = 3 'Registros por página**********************************************************************
'****************************************************************************
*
'************************************
'******************
'*************
'********
IF Request.QueryString("PagAtual") = "" Then
PagAtual = 1 'Primeira página
Else
PagAtual = Request.QueryString("PagAtual")
End If
rsAgenda.CacheSize = NumPorPage
rsAgenda.MoveFirst 'Move o RecorSet para o início 
rsAgenda.PageSize = NumPorPage 'Coloca a quantidade de páginas
TotalPages = rsAgenda.PageCount
rsAgenda.AbsolutePage = PagAtual  'Configura a página atual
Count = 0 'Zera o contador
i = 0
%>
<html>
<head>
<% 
Response.Charset="utf-8"
%>
<title>:: Missão Mundial Graça e Paz :: Igreja que Ama Você!</title>
<link href="css/pg_index.css" rel="stylesheet" type="text/css" />
<script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>

<style type="text/css">
<!--
.style16 {color: #FFFFFF}
.style18 {color: #5D7294}
a {
 font-family: Verdana, Arial, Helvetica, sans-serif;
 font-size: 9px;
 color: #000000;
}
a:visited {
 color: #000000;
}
a:hover {
 color: #000000;
 font-weight: bold;
}
a:active {
 color: #000000;
}
.style20 {color: #000000; font-weight: bold; }
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></head>
<body>
<div id="divgeral">
<!--#Include file="inc/topo.asp"-->
<!--#Include file="inc/botoes.asp"-->
<div id="divmeio_um">
<table width="468" border="0" align="center" cellpadding="5" cellspacing="0">
<tr>
<td><div align="center" class="style9 style10">
<script type="text/javascript">
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0','width','450','height','30','src','swf/texto_bemvindo','quality','high','pluginspage','http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash','wmode','transparent','movie','swf/texto_bemvindo' ); //end AC code
</script>
<noscript>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="[url="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0"]http://download.macromedia.com/pub/shockwa...ersion=9,0,28,0[/url]" width="450" height="30">
<param name="movie" value="swf/texto_bemvindo.swf" />
<param name="quality" value="high" />
<param name="wmode" value="transparent" />
<embed src="swf/texto_bemvindo.swf" width="450" height="30" quality="high" pluginspage="[url="http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash"]http://www.adobe.com/shockwave/download/do...=ShockwaveFlash[/url]" type="application/x-shockwave-flash" wmode="transparent"></embed>
</object>
</noscript>
</div></td>
</tr>
</table>
<br />
<br />
<form action="agenda.asp" method="get" name="form" id="form">
<table width="480" border="0" align="center" cellpadding="3" cellspacing="0" class="tabelas">
<tr>
<td width="285" bgcolor="#5D7294"><div align="left"><span class="style16"><img src="imagens/botu.jpg" alt="" width="17" height="17" align="absmiddle" /> Agenda!</span></div></td>
<td width="183" bgcolor="#5D7294"><div align="left" class="style16"><strong>Buscar:
</strong>
<select name="mes" class="titulos-boto" id="mes">
<option selected>Mês...</option>
<option value="01">Janeiro</option>
<option value="02">Fevereiro</option>
<option value="03">Março</option>
<option value="04">Abril</option>
<option value="05">Maio</option>
<option value="06">Junho</option>
<option value="07">Julho</option>
<option value="08">Agosto</option>
<option value="09">Setembro</option>
<option value="10">Outubro</option>
<option value="11">Novembro</option>
<option value="12">Dezembro</option>
</select>
<input type="submit" class="bts" value="Filtrar">
</div></td>
</tr>
</table>
</form>
<br>
<table width="480px" border="0" align="center" cellpadding="3" cellspacing="0" bordercolor="#D3DBE7" class="tabelas">
<tr>
<%
DO WHILE NOT rsAgenda.EOF And Count < rsAgenda.PageSize 'paginacao And Count < RS.PageSize 
if i mod 2<>0 then
cor = "#F4F4F4"
else
cor = "#e1e1e1"
end if 
%>
<td colspan="2" bgcolor="#D6DBE7"><span class="style18">Data: 
<% = rsAgenda("data") %>
 - Hora: 
<% = rsAgenda("hora") %>
</span></td>
</tr>
<tr>
<td width="17%" bordercolor="#FFFFFF" bgcolor="#D6DBE7"><span class="style20">Igreja:</span></td>
<td width="83%" bordercolor="#D3DBE7" bgcolor="#D6DBE7"><div align="left">
<input type="text"  readonly="true"  class="cxmostratxt" value="<% = rsAgenda("igreja") %>" size="45" maxlength="255">
</div></td>
</tr>
<tr>
<td bordercolor="#FFFFFF" bgcolor="#D6DBE7"><span class="style20">Evento:</span></td>
<td bordercolor="#D3DBE7" bgcolor="#D6DBE7"><div align="left">

<input type="text" class="cxmostratxt" readonly="true" value="<% = rsAgenda("evento") %>" size="45" maxlength="255">
</div></td>
</tr>
<tr>
<td bordercolor="#FFFFFF" bgcolor="#D6DBE7"><span class="style20">Pastor:</span></td>
<td bordercolor="#D3DBE7" bgcolor="#D6DBE7"><div align="left">

<input type="text" class="cxmostratxt"  readonly="true" value="<% = rsAgenda("pastor") %>" size="45" maxlength="255">
</div></td>
</tr>
<tr>
<td bordercolor="#FFFFFF" bgcolor="#D6DBE7"><span class="style20">Endereço:</span></td>
<td bordercolor="#D3DBE7" bgcolor="#D6DBE7"><div align="left">

<input type="text" readonly="true" class="cxmostratxt" value="<% = rsAgenda("endereco") %>" size="45" maxlength="255">
</div></td>
</tr>
<tr>
<td bordercolor="#FFFFFF" bgcolor="#D6DBE7"><span class="style20">Cidade:</span></td>
<td bordercolor="#D3DBE7" bgcolor="#D6DBE7"><div align="left">

<input type="text" readonly="true" class="cxmostratxt" value="<% = rsAgenda("cidade") %>" size="45" maxlength="255">
</div></td>
</tr>
<tr>
<td bordercolor="#FFFFFF" bgcolor="#D6DBE7"><span class="style20">Estado:</span></td>
<td bordercolor="#D3DBE7" bgcolor="#D6DBE7"><div align="left">
<input  readonly="true" type="text" class="cxmostratxt" value="<% = rsAgenda("estado") %>" size="45" maxlength="255">
</div></td>
</tr>
<tr bordercolor="#FFFFFF">
<td bgcolor="#D6DBE7"><span class="style20">País:</span></td>
<td bordercolor="#D3DBE7"><div align="left">
<input  readonly="true" type="text" class="cxmostratxt" value="<% = rsAgenda("pais") %>" size="45" maxlength="255">
</div></td>
</tr>
<%
i = i+1
Count = Count + 1 'paginacao
rsAgenda.MoveNext
LOOP 'tb paginacao
%>
<tr>
<td bordercolor="#D3DBE7"> </td>
</tr>
</table>
<table class="tabelas">
<tr>
<td colspan="2">
<%
'################## paginacao 01 #####################

 'Coloca o Nº página atual / Nº Total de páginas

 Response.Write("<strong>Página</strong> " & PagAtual & " <strong>de</strong> " & TotalPages & " - ")   

'Mostra os botões: Anterior e Próxima, utilizando da opção de IF 

IF PagAtual > 1 THEN 

'Se for a primeira página, Mostra apenas o botão Próximo e Ultima
	  Response.Write("<B><font color=""#000000"">") 
	  Response.Write("<a href='agenda.asp?PagAtual=" &  1 & "'>")
	  Response.Write("Primeira") 
	  Response.Write("</a></font></B>  ")
	  
	  Response.Write("<B><font color=""#000000"">") 
	  Response.Write("<a href='agenda.asp?PagAtual=" & PagAtual - 1 & "'>")
	  Response.Write("Anterior") 
	  Response.Write("</a></font></B>  ")
  Else

	  Response.Write("<B><font color=""#D6DBE7"" size=""1"" face=""Arial"">") 
	  Response.Write("") 
	  Response.Write("</font></B>  ")

	  Response.Write("<B><font color=""#D6DBE7"" size=""2"" face=""Arial"">") 
	  Response.Write("") 
	  Response.Write("</font></B>  ")


End If

'------------------- numero -------------------------
'---------- Numero de numeros para ser mostrados ----
   max_n_mostrados = 9

intervalo = Int(max_n_mostrados /2)
inicio = PagAtual - intervalo
final = PagAtual + intervalo

If CInt(inicio) <1 Then 
 inicio = 1
 final = 10
END IF
If CInt(final) > CInt(TotalPages) Then final = TotalPages

For i = inicio To final
	 If CInt(i)=CInt(PagAtual) Then
		 Response.Write "<font color=""#660066"" size=""1"" face=""Arial"">[ <B>" & i & "</B> <font color=""#660066"">]</font>  "
	 END IF
	 If CInt(i) < CInt(PagAtual) Then
	  Response.Write "<a href='agenda.asp?PagAtual=" & i & "'>" & i & "</a>  "
	 END IF
	 If CInt(i) > CInt(PagAtual) Then
		 Response.Write "<a href='agenda.asp?PagAtual=" & i & "'>" & i & "</a>  "
  END IF
Next

'------------------------------------------------------

IF CInt(PagAtual) <> CInt(TotalPages) THEN 

'Se estiver na última página, mostra apenas o botão Anterior e Primeira

	  Response.Write("<B><font color=""#D6DBE7"" size=""2"" face=""Arial"">")
	  Response.Write("<a href='agenda.asp?PagAtual=" & PagAtual + 1 & "'>")
	  Response.Write("Próxima")
	  Response.Write("</a></font></B>  ") 

	  Response.Write("<B><font color=""#D6DBE7"" size=""1"" face=""Arial"">")
	  Response.Write("<a href='agenda.asp?PagAtual=" & TotalPages & "'>")
	  Response.Write("Ultima")
	  Response.Write("</a></font></B>  ")		

 Else
	  Response.Write("<B><font color=""#D6DBE7"" size=""2"" face=""Arial"">")
	  Response.Write("Próxima") 
	  Response.Write("</font></B>  ")

	  Response.Write("<B><font color=""#D6DBE7"" size=""1"" face=""Arial"">")
	  Response.Write("Ultima") 
	  Response.Write("</font></B>  ")
End If 
'################## fim paginacao 01 ########################
%></td>
</tr>
</table>
<br />
<br />
<br />
<br />
<!--#Include file="inc/ultimas_noticias.asp"-->
<p><br />
</p>
</div>
<!--#Include file="inc/div_lat_direita.asp"-->
<!--#Include file="inc/barra.asp"-->
</div>
</body>
</html>
<%
rsMenuloja.close
rsMenu.close
rsMenuUtilidades.close
rsMenuCampanhas.close
rsNoticias.close
rsAgenda.close
Call FechaConexao
Set rsMenuloja = nothing
Set rsMenu = nothing
Set rsMenuUtilidades = nothing
Set rsMenuCampanhas = nothing
Set rsNoticias = nothing
Set rsAgenda = nothing
%>

Dr. admin · Abril 8, 2008

Galera ali no código da primeira linha eu tirei de propósito o código que declara o tipo da página................

pois não estava dando para postar, e para os donos ou organizadores do fórum tentei colocar dentro do códigobox..........

mas está dando erro então não deu ok..............

mas porfavor galçera me dem uma força ai...............

Salgado · Abril 8, 2008

É só você alterar no ponto onde é montado o link para as páginas. Olhe em seu código que irá encontrar isso de forma até fácil.

Dr. admin · Abril 8, 2008

por favor não entedi muito bem me mostra por favor.........

posta o código ai ja alterado por favor..........

Salgado · Abril 8, 2008

Postar o código alterado? Eu não, pelo menos tente fazer!

Leia o seu código, procure nele o local onde é montado o link para as páginas, veja como ele é montado e faça a alteração para que fique daquela forma que você já mostrou lá em cima.

Dr. admin · Abril 9, 2008

calma amigo........

eu vou tentar fazer, se eu soubesse eu ão estaria aqui, ah e se não esta disposto a ajudar não ajude..............

se eu fosse especialista não estaria pedindo ajuda, estou pedindo ajuda pois estou começando, e de quem está disposto a ajudar...............

Salgado · Abril 9, 2008

calma amigo........
eu vou tentar fazer, se eu soubesse eu ão estaria aqui, ah e se não esta disposto a ajudar não ajude..............

se eu fosse especialista não estaria pedindo ajuda, estou pedindo ajuda pois estou começando, e de quem está disposto a ajudar...............

Disposto a ajudar mais do que ninguém eu estou, só não estou disposto a fazer por você. :rolleyes:

Se perceber já disse o que deve ser feito e o que deve procurar em seu código, vai mais uma dica:

'################## paginacao 01 #####################

desse ponto em diante está o trecho que monta os links "anterior" "próximo" e os numeros de página. Nele você deve acrescentar a variável e seu valor na QueryString que está no link que é montado nesse trecho.

Espero que agora tenha conseguido visualizar o que deve ser feito.

Calmo eu estou, e muito, graças à Deus.

Dr. admin · Abril 9, 2008

Problema resolvido, nos links da paginação eu acrescentei um operador "&" seguido da variável "mes"que pega a variavel pela request.querystring............

mas para abrir a página, sem nada estár sendo filtrado eu tive que acrescentar mais uma condição

case 13

strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda ORDER BY data DESC, hora DESC "

no menu eu coloquei no link da agenda assim:

agenda.asp?mes=13

ai abre a página mostrando todos os resultados como mostra ai ensima no select do case 13

vou postar a página inteira aqui....................

aprimeira linha ai da página ela fala que a página é vbscrip e etc, tirei pois está dando erro na hora de postar aqui no fórum........

link da página: agenda.asp?mes=13

CODE

<%
Option Explicit
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
 
<%
DIM conexao 'variavel sa conexao
DIM rsMenu, rsMenuloja, rsMenuUtilidades, rsMenuCampanhas, rsNoticias, rsAgenda 'Recordsets
DIM sql_menu, sql_loja, sql_Utilidades, sql_Campanhas, sql_Noticias, strSQL 'instruções sql
DIM PagAtual, TotalPages, Count, i, cor, max_n_mostrados, intervalo, inicio, final 'variáveis de paginação
DIM Mes, dezembro, fevereiro
PagAtual = Request.QueryString("PagAtual") 'página atual
 
mes = request.querystring("busca")
 
Call AbreConexao
sql_menu = "select * from menu where categoria='menu' order by orden asc "
sql_loja = "select * from menu where categoria='loja virtual' order by nome asc "
sql_Utilidades = "select * from menu where categoria='Utilidades' order by nome asc "
sql_Campanhas = "select * from menu where categoria='Campanhas' order by nome asc "
sql_Noticias = "select top 5 * from noticias order by noticia_id desc "
 
select case request.QueryString("mes")
 
case 01
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/01/2008' and '31/01/2008' ORDER BY data DESC, hora DESC "
 
case 02
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/02/2008' and '29/02/2008' ORDER BY data DESC, hora DESC "
 
case 03
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/03/2008' and '31/03/2008' ORDER BY data DESC, hora DESC "
 
case 04
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/04/2008' and '30/04/2008' ORDER BY data DESC, hora DESC "
 
case 05
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/05/2008' and '31/05/2008' ORDER BY data DESC, hora DESC "
 
case 06
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/06/2008' and '30/06/2008' ORDER BY data DESC, hora DESC "
 
case 07
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/07/2008' and '31/07/2008' ORDER BY data DESC, hora DESC "
 
case 08
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/08/2008' and '31/08/2008' ORDER BY data DESC, hora DESC "
 
case 09
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/09/2008' and '30/09/2008' ORDER BY data DESC, hora DESC "
 
case 10
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/10/2008' and '31/10/2008' ORDER BY data DESC, hora DESC "
 
case 11
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/11/2008' and '30/11/2008' ORDER BY data DESC, hora DESC "
 
case 12
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/12/2008' and '31/12/2008' ORDER BY data DESC, hora DESC "
 
case 13
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda ORDER BY data DESC, hora DESC "
end select
 
SET rsMenu = conexao.execute(sql_menu)
SET rsMenuloja = conexao.execute(sql_loja)
SET rsMenuUtilidades = conexao.execute(sql_Utilidades)
SET rsMenuCampanhas = conexao.execute(sql_Campanhas)
SET rsNoticias = conexao.execute(sql_Noticias)
SET rsAgenda = conexao.execute(strSQL)
Const NumPorPage = 3 'Registros por página**********************************************************************
'****************************************************************************
*
'************************************
'******************
'*************
'********
IF Request.QueryString("PagAtual") = "" Then
PagAtual = 1 'Primeira página
Else
PagAtual = Request.QueryString("PagAtual")
End If
rsAgenda.CacheSize = NumPorPage
rsAgenda.MoveFirst 'Move o RecorSet para o início 
rsAgenda.PageSize = NumPorPage 'Coloca a quantidade de páginas
TotalPages = rsAgenda.PageCount
rsAgenda.AbsolutePage = PagAtual 'Configura a página atual
Count = 0 'Zera o contador
i = 0
%>
<html>
<head>
<% 
Response.Charset="utf-8"
%>
<title>:: Missão Mundial Graça e Paz :: Igreja que Ama Você!</title>
<link href="css/pg_index.css" rel="stylesheet" type="text/css" />
<script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
 
<style type="text/css">
 
</style>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></head>
<body>
<div id="divgeral">
 
 
<div id="divmeio_um">
<table width="468" border="0" align="center" cellpadding="5" cellspacing="0">
<tr>
<td><div align="center" class="style9 style10">
<script type="text/javascript">
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0,width,450,height,30,src,swf/texto_bemvindo,quality,high,pluginspage,http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash,wmode,transparent,movie,swf/texto_bemvindo' ); //end AC code
</script>
<noscript>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwa...ersion=9,0,28,0" width="450" height="30">
<param name="movie" value="swf/texto_bemvindo.swf" />
<param name="quality" value="high" />
<param name="wmode" value="transparent" />
<embed src="swf/texto_bemvindo.swf" width="450" height="30" quality="high" pluginspage="http://www.adobe.com/shockwave/download/do...=ShockwaveFlash" type="application/x-shockwave-flash" wmode="transparent"></embed>
</object>
</noscript>
</div></td>
</tr>
</table>
<br />
<br />
<form action="agenda.asp" method="get" name="form" id="form">
<table width="480" border="0" align="center" cellpadding="3" cellspacing="0" class="tabelas">
<tr>
<td width="256" bgcolor="#5D7294"><div align="left"><span class="style16"><img src="imagens/botu.jpg" alt="" width="17" height="17" align="absmiddle" /> Agenda!</span></div></td>
<td width="212" bgcolor="#5D7294"><div align="left" class="style16"><strong>Filtrar Mês:
</strong>
<select name="mes" class="titulos-boto" id="mes">
<option value="13" selected>Mês...</option>
<option value="01">Janeiro</option>
<option value="02">Fevereiro</option>
<option value="03">Março</option>
<option value="04">Abril</option>
<option value="05">Maio</option>
<option value="06">Junho</option>
<option value="07">Julho</option>
<option value="08">Agosto</option>
<option value="09">Setembro</option>
<option value="10">Outubro</option>
<option value="11">Novembro</option>
<option value="12">Dezembro</option>
<option value="13">Todos</option>
</select>
<input type="submit" class="bts" value="Filtrar">
</div></td>
</tr>
</table>
</form>
<br>
<table width="480px" border="0" align="center" cellpadding="3" cellspacing="0" bordercolor="#D3DBE7" class="tabelas">
<tr>
<%
DO WHILE NOT rsAgenda.EOF And Count < rsAgenda.PageSize 'paginacao And Count < RS.PageSize 
if i mod 2<>0 then
cor = "#F4F4F4"
else
cor = "#e1e1e1"
end if 
%>
<td colspan="2" bgcolor="#D6DBE7"><span class="style18">Data: 
<% = rsAgenda("data") %>
 - Hora: 
<% = rsAgenda("hora") %>
</span></td>
</tr>
<tr>
<td width="17%" bordercolor="#FFFFFF" bgcolor="#D6DBE7"><span class="style20">Igreja:</span></td>
<td width="83%" bordercolor="#D3DBE7" bgcolor="#D6DBE7"><div align="left">
<input type="text" readonly="true" class="cxmostratxt" value="<% = rsAgenda("igreja") %>" size="45" maxlength="255">
</div></td>
</tr>
<tr>
<td bordercolor="#FFFFFF" bgcolor="#D6DBE7"><span class="style20">Evento:</span></td>
<td bordercolor="#D3DBE7" bgcolor="#D6DBE7"><div align="left">
 
<input type="text" class="cxmostratxt" readonly="true" value="<% = rsAgenda("evento") %>" size="45" maxlength="255">
</div></td>
</tr>
<tr>
<td bordercolor="#FFFFFF" bgcolor="#D6DBE7"><span class="style20">Pastor:</span></td>
<td bordercolor="#D3DBE7" bgcolor="#D6DBE7"><div align="left">
 
<input type="text" class="cxmostratxt" readonly="true" value="<% = rsAgenda("pastor") %>" size="45" maxlength="255">
</div></td>
</tr>
<tr>
<td bordercolor="#FFFFFF" bgcolor="#D6DBE7"><span class="style20">Endereço:</span></td>
<td bordercolor="#D3DBE7" bgcolor="#D6DBE7"><div align="left">
 
<input type="text" readonly="true" class="cxmostratxt" value="<% = rsAgenda("endereco") %>" size="45" maxlength="255">
</div></td>
</tr>
<tr>
<td bordercolor="#FFFFFF" bgcolor="#D6DBE7"><span class="style20">Cidade:</span></td>
<td bordercolor="#D3DBE7" bgcolor="#D6DBE7"><div align="left">
 
<input type="text" readonly="true" class="cxmostratxt" value="<% = rsAgenda("cidade") %>" size="45" maxlength="255">
</div></td>
</tr>
<tr>
<td bordercolor="#FFFFFF" bgcolor="#D6DBE7"><span class="style20">Estado:</span></td>
<td bordercolor="#D3DBE7" bgcolor="#D6DBE7"><div align="left">
<input readonly="true" type="text" class="cxmostratxt" value="<% = rsAgenda("estado") %>" size="45" maxlength="255">
</div></td>
</tr>
<tr bordercolor="#FFFFFF">
<td bgcolor="#D6DBE7"><span class="style20">País:</span></td>
<td bordercolor="#D3DBE7"><div align="left">
<input readonly="true" type="text" class="cxmostratxt" value="<% = rsAgenda("pais") %>" size="45" maxlength="255">
</div></td>
</tr>
<%
i = i+1
Count = Count + 1 'paginacao
rsAgenda.MoveNext
LOOP 'tb paginacao
%>
<tr>
<td bordercolor="#D3DBE7"> </td>
</tr>
</table>
<table width="480" align="center" class="tabelas">
<tr>
<td colspan="2" align="left">
<%
'################## paginacao 01 #####################
 
'Coloca o Nº página atual / Nº Total de páginas
 
Response.Write("<strong>Página</strong> " & PagAtual & " <strong>de</strong> " & TotalPages & " - ") 
 
'Mostra os botões: Anterior e Próxima, utilizando da opção de IF 
 
IF PagAtual > 1 THEN 
 
'Se for a primeira página, Mostra apenas o botão Próximo e Ultima
Response.Write("<B><font color=""#000000"">") 
Response.Write("<a href='agenda.asp?PagAtual=" & 1 & "&mes=" & request.QueryString("mes") & "'>")
Response.Write("Primeira") 
Response.Write("</a></font></B> ")
 
Response.Write("<B><font color=""#000000"">") 
Response.Write("<a href='agenda.asp?PagAtual=" & PagAtual - 1 & "&mes=" & request.QueryString("mes") & "'>")
Response.Write("Anterior") 
Response.Write("</a></font></B> ")
Else
 
Response.Write("<B><font color=""#D6DBE7"" size=""1"" face=""Arial"">") 
Response.Write("") 
Response.Write("</font></B> ")
 
Response.Write("<B><font color=""#D6DBE7"" size=""2"" face=""Arial"">") 
Response.Write("") 
Response.Write("</font></B> ")
 
 
End If
 
'------------------- numero -------------------------
'---------- Numero de numeros para ser mostrados ----
max_n_mostrados = 9
 
intervalo = Int(max_n_mostrados /2)
inicio = PagAtual - intervalo
final = PagAtual + intervalo
 
If CInt(inicio) <1 Then 
inicio = 1
final = 10
END IF
If CInt(final) > CInt(TotalPages) Then final = TotalPages
 
For i = inicio To final
If CInt(i)=CInt(PagAtual) Then
Response.Write "<font color=""#660066"" size=""1"" face=""Arial"">[ <B>" & i & "</B> <font color=""#660066"">]</font> "
END IF
If CInt(i) < CInt(PagAtual) Then
Response.Write "<a href='agenda.asp?PagAtual=" & i & "&mes=" & request.QueryString("mes") & "'>" & i & "</a> "
END IF
If CInt(i) > CInt(PagAtual) Then
Response.Write "<a href='agenda.asp?PagAtual=" & i & "&mes=" & request.QueryString("mes") & "'>" & i & "</a> "
END IF
Next
 
'------------------------------------------------------
 
IF CInt(PagAtual) <> CInt(TotalPages) THEN 
 
'Se estiver na última página, mostra apenas o botão Anterior e Primeira
 
Response.Write("<B><font color=""#D6DBE7"" size=""2"" face=""Arial"">")
Response.Write("<a href='agenda.asp?PagAtual=" & PagAtual + 1 & "&mes=" & request.QueryString("mes") & "'>")
Response.Write("Próxima")
Response.Write("</a></font></B> ") 
 
Response.Write("<B><font color=""#D6DBE7"" size=""1"" face=""Arial"">")
Response.Write("<a href='agenda.asp?PagAtual=" & TotalPages & "&mes=" & request.QueryString("mes") & "'>")
Response.Write("Ultima")
Response.Write("</a></font></B> ") 
 
Else
Response.Write("<B><font color=""#D6DBE7"" size=""2"" face=""Arial"">")
Response.Write("Próxima") 
Response.Write("</font></B> ")
 
Response.Write("<B><font color=""#D6DBE7"" size=""1"" face=""Arial"">")
Response.Write("Ultima") 
Response.Write("</font></B> ")
End If 
'################## fim paginacao 01 ########################
%></td>
</tr>
</table>
<br />
<br />
<br />
<br />
 
<p><br />
</p>
</div>
 
 
</div>
</body>
</html>
<%
rsMenuloja.close
rsMenu.close
rsMenuUtilidades.close
rsMenuCampanhas.close
rsNoticias.close
rsAgenda.close
Call FechaConexao
Set rsMenuloja = nothing
Set rsMenu = nothing
Set rsMenuUtilidades = nothing
Set rsMenuCampanhas = nothing
Set rsNoticias = nothing
Set rsAgenda = nothing
%>

Dr. admin · Abril 9, 2008

Muito Obrigado Amigo pela sua ajuda, vai me quebrar um galho imenso..............

a e outra coisa nessa mesma página ai qaundo a pessoa filtra um mês por exemplo o mês de setembro, no banco não tem nenhum registro do dia 1 ao dia 30, e se a pessoa filtra esse mes, sem ter registro, a pagina mostra esse erro...........

Tipo de erro:

ADODB.Recordset (0x800A0BCD)

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

/mmgp/site/agenda.asp, line 84

como faço para resolver, ao invés do erro, mostrar uma resposta falando que não foi encontrado nenhum registro................

como eu faço????

Salgado · Abril 9, 2008

Que bom que conseguiu fazer apenas usando as dicas!

Onde está DO WHILE troque para WHILE e mais abaixo, onde está LOOP troque para WEND, com isso não será apresentado erro nenhum. Mas também não terá nenhuma informação se foi encontrado dados, isso você faz com um IF antes do laço de repetição, algo +/- assim:

If Not SeuRS.EOF Then
'Aqui vai o laço para exibir
Else
'Aqui vai a mensagem de que nada foi encontrado
End If

Dr. admin · Abril 9, 2008

olha eu troquei o do while, só por while, e o loop só por wend.............

mas só fazendo isso quando filtro um mes que não ha registro ele mostra esse erro

Tipo de erro:

ADODB.Recordset (0x800A0BCD)

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

/mmgp/site/agenda.asp, line 86

e quanto ao if........

eu coloquei mas na hora do laço eu não estou entendendo o que devo fazer, pode me explicar............?

vou postar a página aqui alterada...........

CODE

<%
Option Explicit
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<!--#Include file="conexao/conexao_sql.asp"-->
<%
DIM conexao 'variavel sa conexao
DIM rsMenu, rsMenuloja, rsMenuUtilidades, rsMenuCampanhas, rsNoticias, rsAgenda 'Recordsets
DIM sql_menu, sql_loja, sql_Utilidades, sql_Campanhas, sql_Noticias, strSQL 'instruções sql
DIM PagAtual, TotalPages, Count, i, cor, max_n_mostrados, intervalo, inicio, final 'variáveis de paginação
DIM Mes, dezembro, fevereiro
PagAtual = Request.QueryString("PagAtual") 'página atual
 
mes = request.querystring("busca")
 
Call AbreConexao
sql_menu = "select * from menu where categoria='menu' order by orden asc "
sql_loja = "select * from menu where categoria='loja virtual' order by nome asc "
sql_Utilidades = "select * from menu where categoria='Utilidades' order by nome asc "
sql_Campanhas = "select * from menu where categoria='Campanhas' order by nome asc "
sql_Noticias = "select top 5 * from noticias order by noticia_id desc "
 
select case request.QueryString("mes")
 
case 01
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/01/2008' and '31/01/2008' ORDER BY data DESC, hora DESC "
 
case 02
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/02/2008' and '29/02/2008' ORDER BY data DESC, hora DESC "
 
case 03
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/03/2008' and '31/03/2008' ORDER BY data DESC, hora DESC "
 
case 04
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/04/2008' and '30/04/2008' ORDER BY data DESC, hora DESC "
 
case 05
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/05/2008' and '31/05/2008' ORDER BY data DESC, hora DESC "
 
case 06
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/06/2008' and '30/06/2008' ORDER BY data DESC, hora DESC "
 
case 07
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/07/2008' and '31/07/2008' ORDER BY data DESC, hora DESC "
 
case 08
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/08/2008' and '31/08/2008' ORDER BY data DESC, hora DESC "
 
case 09
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/09/2008' and '30/09/2008' ORDER BY data DESC, hora DESC "
 
case 10
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/10/2008' and '31/10/2008' ORDER BY data DESC, hora DESC "
 
case 11
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/11/2008' and '30/11/2008' ORDER BY data DESC, hora DESC "
 
case 12
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/12/2008' and '31/12/2008' ORDER BY data DESC, hora DESC "
 
case 13
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda ORDER BY data DESC, hora DESC "
 
End Select
 
SET rsMenu = conexao.execute(sql_menu)
SET rsMenuloja = conexao.execute(sql_loja)
SET rsMenuUtilidades = conexao.execute(sql_Utilidades)
SET rsMenuCampanhas = conexao.execute(sql_Campanhas)
SET rsNoticias = conexao.execute(sql_Noticias)
SET rsAgenda = conexao.execute(strSQL)
 
Const NumPorPage = 3 'Registros por página**********************************************************************
'****************************************************************************
*
'************************************
'******************
'*************
'********
IF Request.QueryString("PagAtual") = "" Then
PagAtual = 1 'Primeira página
Else
PagAtual = Request.QueryString("PagAtual")
End If
rsAgenda.CacheSize = NumPorPage
rsAgenda.MoveFirst 'Move o RecorSet para o início 
rsAgenda.PageSize = NumPorPage 'Coloca a quantidade de páginas
TotalPages = rsAgenda.PageCount
rsAgenda.AbsolutePage = PagAtual  'Configura a página atual
Count = 0 'Zera o contador
i = 0
%>
<html>
<head>
<% 
Response.Charset="utf-8"
%>
<title>:: Missão Mundial Graça e Paz :: Igreja que Ama Você!</title>
<link href="css/pg_index.css" rel="stylesheet" type="text/css" />
<script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
 
<style type="text/css">
<!--
.style16 {color: #FFFFFF}
.style18 {color: #5D7294}
a {
 font-family: Verdana, Arial, Helvetica, sans-serif;
 font-size: 9px;
 color: #000000;
}
a:visited {
 color: #000000;
}
a:hover {
 color: #000000;
 font-weight: bold;
}
a:active {
 color: #000000;
}
.style20 {color: #000000; font-weight: bold; }
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></head>
<body>
<div id="divgeral">
<!--#Include file="inc/topo.asp"-->
<!--#Include file="inc/botoes.asp"-->
<div id="divmeio_um">
<table width="468" border="0" align="center" cellpadding="5" cellspacing="0">
<tr>
<td><div align="center" class="style9 style10">
<script type="text/javascript">
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0,width,450,height,30,src,swf/texto_bemvindo,quality,high,pluginspage,http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash,wmode,transparent,movie,swf/texto_bemvindo' ); //end AC code
</script>
<noscript>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwa...ersion=9,0,28,0" width="450" height="30">
<param name="movie" value="swf/texto_bemvindo.swf" />
<param name="quality" value="high" />
<param name="wmode" value="transparent" />
<embed src="swf/texto_bemvindo.swf" width="450" height="30" quality="high" pluginspage="http://www.adobe.com/shockwave/download/do...=ShockwaveFlash" type="application/x-shockwave-flash" wmode="transparent"></embed>
</object>
</noscript>
</div></td>
</tr>
</table>
<br />
<br />
<form action="agenda.asp" method="get" name="form" id="form">
<table width="480" border="0" align="center" cellpadding="3" cellspacing="0" class="tabelas">
<tr>
<td width="256" bgcolor="#5D7294"><div align="left"><span class="style16"><img src="imagens/botu.jpg" alt="" width="17" height="17" align="absmiddle" /> Agenda!</span></div></td>
<td width="212" bgcolor="#5D7294"><div align="left" class="style16"><strong>Filtrar Mês:
</strong>
<select name="mes" class="titulos-boto" id="mes">
<option value="13" selected>Todos</option>
<option value="01">Janeiro</option>
<option value="02">Fevereiro</option>
<option value="03">Março</option>
<option value="04">Abril</option>
<option value="05">Maio</option>
<option value="06">Junho</option>
<option value="07">Julho</option>
<option value="08">Agosto</option>
<option value="09">Setembro</option>
<option value="10">Outubro</option>
<option value="11">Novembro</option>
<option value="12">Dezembro</option>
</select>
<input type="submit" class="bts" value="Filtrar">
</div></td>
</tr>
</table>
</form>
<br>
<table width="480px" border="0" align="center" cellpadding="3" cellspacing="0" bordercolor="#D3DBE7" class="tabelas">
<tr>
<%
WHILE NOT rsAgenda.EOF And Count < rsAgenda.PageSize 'paginacao And Count < RS.PageSize 
if i mod 2<>0 then
cor = "#F4F4F4"
else
cor = "#e1e1e1"
end if 
%>
<td colspan="2" bgcolor="#D6DBE7"><span class="style18">Data: 
<% = rsAgenda("data") %>
 - Hora: 
<% = rsAgenda("hora") %>
</span></td>
</tr>
<tr>
<td width="17%" bordercolor="#FFFFFF" bgcolor="#D6DBE7"><span class="style20">Igreja:</span></td>
<td width="83%" bordercolor="#D3DBE7" bgcolor="#D6DBE7"><div align="left">
<input type="text"  readonly="true"  class="cxmostratxt" value="<% = rsAgenda("igreja") %>" size="45" maxlength="255">
</div></td>
</tr>
<tr>
<td bordercolor="#FFFFFF" bgcolor="#D6DBE7"><span class="style20">Evento:</span></td>
<td bordercolor="#D3DBE7" bgcolor="#D6DBE7"><div align="left">
 
<input type="text" class="cxmostratxt" readonly="true" value="<% = rsAgenda("evento") %>" size="45" maxlength="255">
</div></td>
</tr>
<tr>
<td bordercolor="#FFFFFF" bgcolor="#D6DBE7"><span class="style20">Pastor:</span></td>
<td bordercolor="#D3DBE7" bgcolor="#D6DBE7"><div align="left">
 
<input type="text" class="cxmostratxt"  readonly="true" value="<% = rsAgenda("pastor") %>" size="45" maxlength="255">
</div></td>
</tr>
<tr>
<td bordercolor="#FFFFFF" bgcolor="#D6DBE7"><span class="style20">Endereço:</span></td>
<td bordercolor="#D3DBE7" bgcolor="#D6DBE7"><div align="left">
 
<input type="text" readonly="true" class="cxmostratxt" value="<% = rsAgenda("endereco") %>" size="45" maxlength="255">
</div></td>
</tr>
<tr>
<td bordercolor="#FFFFFF" bgcolor="#D6DBE7"><span class="style20">Cidade:</span></td>
<td bordercolor="#D3DBE7" bgcolor="#D6DBE7"><div align="left">
 
<input type="text" readonly="true" class="cxmostratxt" value="<% = rsAgenda("cidade") %>" size="45" maxlength="255">
</div></td>
</tr>
<tr>
<td bordercolor="#FFFFFF" bgcolor="#D6DBE7"><span class="style20">Estado:</span></td>
<td bordercolor="#D3DBE7" bgcolor="#D6DBE7"><div align="left">
<input  readonly="true" type="text" class="cxmostratxt" value="<% = rsAgenda("estado") %>" size="45" maxlength="255">
</div></td>
</tr>
<tr bordercolor="#FFFFFF">
<td bgcolor="#D6DBE7"><span class="style20">País:</span></td>
<td bordercolor="#D3DBE7"><div align="left">
<input  readonly="true" type="text" class="cxmostratxt" value="<% = rsAgenda("pais") %>" size="45" maxlength="255">
</div></td>
</tr>
<%
i = i+1
Count = Count + 1 'paginacao
rsAgenda.MoveNext
If Not rsAgenda.EOF Then
    'Aqui vai o laço para exibir   ------ não entendi o que eu coloco aqui
Else
    response.Write("Não foi encontrado nenhum registro")
End If
WEND 'tb paginacao
%>
<tr>
<td bordercolor="#D3DBE7"> </td>
</tr>
</table>
<table width="480" align="center" class="tabelas">
<tr>
<td colspan="2" align="left">
<%
'################## paginacao 01 #####################
 
 'Coloca o Nº página atual / Nº Total de páginas
 
 Response.Write("<strong>Página</strong> " & PagAtual & " <strong>de</strong> " & TotalPages & " - ")   
 
'Mostra os botões: Anterior e Próxima, utilizando da opção de IF 
 
IF PagAtual > 1 THEN 
 
'Se for a primeira página, Mostra apenas o botão Próximo e Ultima
      Response.Write("<B><font color=""#000000"">") 
      Response.Write("<a href='agenda.asp?PagAtual=" &  1 & "&mes=" & request.QueryString("mes") & "'>")
      Response.Write("Primeira") 
      Response.Write("</a></font></B>  ")
 
      Response.Write("<B><font color=""#000000"">") 
      Response.Write("<a href='agenda.asp?PagAtual=" & PagAtual - 1 & "&mes=" & request.QueryString("mes") & "'>")
      Response.Write("Anterior") 
      Response.Write("</a></font></B>  ")
  Else
 
      Response.Write("<B><font color=""#D6DBE7"" size=""1"" face=""Arial"">") 
      Response.Write("") 
      Response.Write("</font></B>  ")
 
      Response.Write("<B><font color=""#D6DBE7"" size=""2"" face=""Arial"">") 
      Response.Write("") 
      Response.Write("</font></B>  ")
 
 
End If
 
'------------------- numero -------------------------
'---------- Numero de numeros para ser mostrados ----
   max_n_mostrados = 9
 
intervalo = Int(max_n_mostrados /2)
inicio = PagAtual - intervalo
final = PagAtual + intervalo
 
If CInt(inicio) <1 Then 
 inicio = 1
 final = 10
END IF
If CInt(final) > CInt(TotalPages) Then final = TotalPages
 
For i = inicio To final
     If CInt(i)=CInt(PagAtual) Then
         Response.Write "<font color=""#660066"" size=""1"" face=""Arial"">[ <B>" & i & "</B> <font color=""#660066"">]</font>  "
     END IF
     If CInt(i) < CInt(PagAtual) Then
      Response.Write "<a href='agenda.asp?PagAtual=" & i & "&mes=" & request.QueryString("mes") & "'>" & i & "</a>  "
     END IF
     If CInt(i) > CInt(PagAtual) Then
         Response.Write "<a href='agenda.asp?PagAtual=" & i & "&mes=" & request.QueryString("mes") & "'>" & i & "</a>  "
  END IF
Next
 
'------------------------------------------------------
 
IF CInt(PagAtual) <> CInt(TotalPages) THEN 
 
'Se estiver na última página, mostra apenas o botão Anterior e Primeira
 
      Response.Write("<B><font color=""#D6DBE7"" size=""2"" face=""Arial"">")
      Response.Write("<a href='agenda.asp?PagAtual=" & PagAtual + 1 & "&mes=" & request.QueryString("mes") & "'>")
      Response.Write("Próxima")
      Response.Write("</a></font></B>  ") 
 
      Response.Write("<B><font color=""#D6DBE7"" size=""1"" face=""Arial"">")
      Response.Write("<a href='agenda.asp?PagAtual=" & TotalPages & "&mes=" & request.QueryString("mes") & "'>")
      Response.Write("Ultima")
      Response.Write("</a></font></B>  ")        
 
 Else
      Response.Write("<B><font color=""#D6DBE7"" size=""2"" face=""Arial"">")
      Response.Write("Próxima") 
      Response.Write("</font></B>  ")
 
      Response.Write("<B><font color=""#D6DBE7"" size=""1"" face=""Arial"">")
      Response.Write("Ultima") 
      Response.Write("</font></B>  ")
End If 
'################## fim paginacao 01 ########################
%></td>
</tr>
</table>
<br />
<br />
<br />
<br />
<!--#Include file="inc/ultimas_noticias.asp"-->
<p><br />
</p>
</div>
<!--#Include file="inc/div_lat_direita.asp"-->
<!--#Include file="inc/barra.asp"-->
</div>
</body>
</html>
<%
rsMenuloja.close
rsMenu.close
rsMenuUtilidades.close
rsMenuCampanhas.close
rsNoticias.close
rsAgenda.close
Call FechaConexao
Set rsMenuloja = nothing
Set rsMenu = nothing
Set rsMenuUtilidades = nothing
Set rsMenuCampanhas = nothing
Set rsNoticias = nothing
Set rsAgenda = nothing
%>

Salgado · Abril 9, 2008

Antes do WHILE coloque:

IF NOT rsAgenda.EOF THEN

E depois do WEND:

ELSE
<td>Nenhum dado encontrado!</td>
END IF

Poste também qual é a linha 86 de seu código.

Dr. admin · Abril 9, 2008

amigo eu fiz como você falou.............

mas quando eu acesso a página por um filtro que há registro agora está dando esse erro:

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0400)

Instrução esperada

/mmgp/site/agenda.asp, line 245

<td>Nenhum dado encontrado!</td>

a linha 245 é essa: <td>Nenhum dado encontrado!</td>

e se eu acesso por um filtro que não há resgistro da o mesmo erro., na mesma linha

código da página ja alterada............

CODE

<%
Option Explicit
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<!--#Include file="conexao/conexao_sql.asp"-->
<%
DIM conexao 'variavel sa conexao
DIM rsMenu, rsMenuloja, rsMenuUtilidades, rsMenuCampanhas, rsNoticias, rsAgenda 'Recordsets
DIM sql_menu, sql_loja, sql_Utilidades, sql_Campanhas, sql_Noticias, strSQL 'instruções sql
DIM PagAtual, TotalPages, Count, i, cor, max_n_mostrados, intervalo, inicio, final 'variáveis de paginação
DIM Mes, dezembro, fevereiro
PagAtual = Request.QueryString("PagAtual") 'página atual
 
mes = request.querystring("busca")
 
Call AbreConexao
sql_menu = "select * from menu where categoria='menu' order by orden asc "
sql_loja = "select * from menu where categoria='loja virtual' order by nome asc "
sql_Utilidades = "select * from menu where categoria='Utilidades' order by nome asc "
sql_Campanhas = "select * from menu where categoria='Campanhas' order by nome asc "
sql_Noticias = "select top 5 * from noticias order by noticia_id desc "
 
select case request.QueryString("mes")
 
case 01
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/01/2008' and '31/01/2008' ORDER BY data DESC, hora DESC "
 
case 02
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/02/2008' and '29/02/2008' ORDER BY data DESC, hora DESC "
 
case 03
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/03/2008' and '31/03/2008' ORDER BY data DESC, hora DESC "
 
case 04
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/04/2008' and '30/04/2008' ORDER BY data DESC, hora DESC "
 
case 05
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/05/2008' and '31/05/2008' ORDER BY data DESC, hora DESC "
 
case 06
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/06/2008' and '30/06/2008' ORDER BY data DESC, hora DESC "
 
case 07
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/07/2008' and '31/07/2008' ORDER BY data DESC, hora DESC "
 
case 08
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/08/2008' and '31/08/2008' ORDER BY data DESC, hora DESC "
 
case 09
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/09/2008' and '30/09/2008' ORDER BY data DESC, hora DESC "
 
case 10
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/10/2008' and '31/10/2008' ORDER BY data DESC, hora DESC "
 
case 11
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/11/2008' and '30/11/2008' ORDER BY data DESC, hora DESC "
 
case 12
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda WHERE data BETWEEN '01/12/2008' and '31/12/2008' ORDER BY data DESC, hora DESC "
 
case 13
strSQL = "select data,hora,igreja,cidade,estado,pais,evento,pastor,endereco FROM agenda ORDER BY data DESC, hora DESC "
 
End Select
 
SET rsMenu = conexao.execute(sql_menu)
SET rsMenuloja = conexao.execute(sql_loja)
SET rsMenuUtilidades = conexao.execute(sql_Utilidades)
SET rsMenuCampanhas = conexao.execute(sql_Campanhas)
SET rsNoticias = conexao.execute(sql_Noticias)
SET rsAgenda = conexao.execute(strSQL)
 
Const NumPorPage = 3 'Registros por página**********************************************************************
'****************************************************************************
*
'************************************
'******************
'*************
'********
IF Request.QueryString("PagAtual") = "" Then
PagAtual = 1 'Primeira página
Else
PagAtual = Request.QueryString("PagAtual")
End If
rsAgenda.CacheSize = NumPorPage
rsAgenda.MoveFirst 'Move o RecorSet para o início 
rsAgenda.PageSize = NumPorPage 'Coloca a quantidade de páginas
TotalPages = rsAgenda.PageCount
rsAgenda.AbsolutePage = PagAtual  'Configura a página atual
Count = 0 'Zera o contador
i = 0
%>
<html>
<head>
<% 
Response.Charset="utf-8"
%>
<title>:: Missão Mundial Graça e Paz :: Igreja que Ama Você!</title>
<link href="css/pg_index.css" rel="stylesheet" type="text/css" />
<script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
 
<style type="text/css">
<!--
.style16 {color: #FFFFFF}
.style18 {color: #5D7294}
a {
 font-family: Verdana, Arial, Helvetica, sans-serif;
 font-size: 9px;
 color: #000000;
}
a:visited {
 color: #000000;
}
a:hover {
 color: #000000;
 font-weight: bold;
}
a:active {
 color: #000000;
}
.style20 {color: #000000; font-weight: bold; }
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></head>
<body>
<div id="divgeral">
<!--#Include file="inc/topo.asp"-->
<!--#Include file="inc/botoes.asp"-->
<div id="divmeio_um">
<table width="468" border="0" align="center" cellpadding="5" cellspacing="0">
<tr>
<td><div align="center" class="style9 style10">
<script type="text/javascript">
AC_FL_RunContent( 'codebase','http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=9,0,28,0,width,450,height,30,src,swf/texto_bemvindo,quality,high,pluginspage,http://www.adobe.com/shockwave/download/download.cgi?P1_Prod_Version=ShockwaveFlash,wmode,transparent,movie,swf/texto_bemvindo' ); //end AC code
</script>
<noscript>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwa...ersion=9,0,28,0" width="450" height="30">
<param name="movie" value="swf/texto_bemvindo.swf" />
<param name="quality" value="high" />
<param name="wmode" value="transparent" />
<embed src="swf/texto_bemvindo.swf" width="450" height="30" quality="high" pluginspage="http://www.adobe.com/shockwave/download/do...=ShockwaveFlash" type="application/x-shockwave-flash" wmode="transparent"></embed>
</object>
</noscript>
</div></td>
</tr>
</table>
<br />
<br />
<form action="agenda.asp" method="get" name="form" id="form">
<table width="480" border="0" align="center" cellpadding="3" cellspacing="0" class="tabelas">
<tr>
<td width="256" bgcolor="#5D7294"><div align="left"><span class="style16"><img src="imagens/botu.jpg" alt="" width="17" height="17" align="absmiddle" /> Agenda!</span></div></td>
<td width="212" bgcolor="#5D7294"><div align="left" class="style16"><strong>Filtrar Mês:
</strong>
<select name="mes" class="titulos-boto" id="mes">
<option value="13" selected>Todos</option>
<option value="01">Janeiro</option>
<option value="02">Fevereiro</option>
<option value="03">Março</option>
<option value="04">Abril</option>
<option value="05">Maio</option>
<option value="06">Junho</option>
<option value="07">Julho</option>
<option value="08">Agosto</option>
<option value="09">Setembro</option>
<option value="10">Outubro</option>
<option value="11">Novembro</option>
<option value="12">Dezembro</option>
</select>
<input type="submit" class="bts" value="Filtrar">
</div></td>
</tr>
</table>
</form>
<br>
<table width="480px" border="0" align="center" cellpadding="3" cellspacing="0" bordercolor="#D3DBE7" class="tabelas">
<tr>
<%
IF NOT rsAgenda.EOF THEN
WHILE NOT rsAgenda.EOF And Count < rsAgenda.PageSize 'paginacao And Count < RS.PageSize 
if i mod 2<>0 then
cor = "#F4F4F4"
else
cor = "#e1e1e1"
end if 
%>
<td colspan="2" bgcolor="#D6DBE7"><span class="style18">Data: 
<% = rsAgenda("data") %>
 - Hora: 
<% = rsAgenda("hora") %>
</span></td>
</tr>
<tr>
<td width="17%" bordercolor="#FFFFFF" bgcolor="#D6DBE7"><span class="style20">Igreja:</span></td>
<td width="83%" bordercolor="#D3DBE7" bgcolor="#D6DBE7"><div align="left">
<input type="text"  readonly="true"  class="cxmostratxt" value="<% = rsAgenda("igreja") %>" size="45" maxlength="255">
</div></td>
</tr>
<tr>
<td bordercolor="#FFFFFF" bgcolor="#D6DBE7"><span class="style20">Evento:</span></td>
<td bordercolor="#D3DBE7" bgcolor="#D6DBE7"><div align="left">
 
<input type="text" class="cxmostratxt" readonly="true" value="<% = rsAgenda("evento") %>" size="45" maxlength="255">
</div></td>
</tr>
<tr>
<td bordercolor="#FFFFFF" bgcolor="#D6DBE7"><span class="style20">Pastor:</span></td>
<td bordercolor="#D3DBE7" bgcolor="#D6DBE7"><div align="left">
 
<input type="text" class="cxmostratxt"  readonly="true" value="<% = rsAgenda("pastor") %>" size="45" maxlength="255">
</div></td>
</tr>
<tr>
<td bordercolor="#FFFFFF" bgcolor="#D6DBE7"><span class="style20">Endereço:</span></td>
<td bordercolor="#D3DBE7" bgcolor="#D6DBE7"><div align="left">
 
<input type="text" readonly="true" class="cxmostratxt" value="<% = rsAgenda("endereco") %>" size="45" maxlength="255">
</div></td>
</tr>
<tr>
<td bordercolor="#FFFFFF" bgcolor="#D6DBE7"><span class="style20">Cidade:</span></td>
<td bordercolor="#D3DBE7" bgcolor="#D6DBE7"><div align="left">
 
<input type="text" readonly="true" class="cxmostratxt" value="<% = rsAgenda("cidade") %>" size="45" maxlength="255">
</div></td>
</tr>
<tr>
<td bordercolor="#FFFFFF" bgcolor="#D6DBE7"><span class="style20">Estado:</span></td>
<td bordercolor="#D3DBE7" bgcolor="#D6DBE7"><div align="left">
<input  readonly="true" type="text" class="cxmostratxt" value="<% = rsAgenda("estado") %>" size="45" maxlength="255">
</div></td>
</tr>
<tr bordercolor="#FFFFFF">
<td bgcolor="#D6DBE7"><span class="style20">País:</span></td>
<td bordercolor="#D3DBE7"><div align="left">
<input  readonly="true" type="text" class="cxmostratxt" value="<% = rsAgenda("pais") %>" size="45" maxlength="255">
</div></td>
</tr>
<%
i = i+1
Count = Count + 1 'paginacao
rsAgenda.MoveNext
WEND 'tb paginacao
ELSE
<td>Nenhum dado encontrado!</td>
END IF
%>
<tr>
<td bordercolor="#D3DBE7"> </td>
</tr>
</table>
<table width="480" align="center" class="tabelas">
<tr>
<td colspan="2" align="left">
<%
'################## paginacao 01 #####################
 
 'Coloca o Nº página atual / Nº Total de páginas
 
 Response.Write("<strong>Página</strong> " & PagAtual & " <strong>de</strong> " & TotalPages & " - ")   
 
'Mostra os botões: Anterior e Próxima, utilizando da opção de IF 
 
IF PagAtual > 1 THEN 
 
'Se for a primeira página, Mostra apenas o botão Próximo e Ultima
      Response.Write("<B><font color=""#000000"">") 
      Response.Write("<a href='agenda.asp?PagAtual=" &  1 & "&mes=" & request.QueryString("mes") & "'>")
      Response.Write("Primeira") 
      Response.Write("</a></font></B>  ")
 
      Response.Write("<B><font color=""#000000"">") 
      Response.Write("<a href='agenda.asp?PagAtual=" & PagAtual - 1 & "&mes=" & request.QueryString("mes") & "'>")
      Response.Write("Anterior") 
      Response.Write("</a></font></B>  ")
  Else
 
      Response.Write("<B><font color=""#D6DBE7"" size=""1"" face=""Arial"">") 
      Response.Write("") 
      Response.Write("</font></B>  ")
 
      Response.Write("<B><font color=""#D6DBE7"" size=""2"" face=""Arial"">") 
      Response.Write("") 
      Response.Write("</font></B>  ")
 
 
End If
 
'------------------- numero -------------------------
'---------- Numero de numeros para ser mostrados ----
   max_n_mostrados = 9
 
intervalo = Int(max_n_mostrados /2)
inicio = PagAtual - intervalo
final = PagAtual + intervalo
 
If CInt(inicio) <1 Then 
 inicio = 1
 final = 10
END IF
If CInt(final) > CInt(TotalPages) Then final = TotalPages
 
For i = inicio To final
     If CInt(i)=CInt(PagAtual) Then
         Response.Write "<font color=""#660066"" size=""1"" face=""Arial"">[ <B>" & i & "</B> <font color=""#660066"">]</font>  "
     END IF
     If CInt(i) < CInt(PagAtual) Then
      Response.Write "<a href='agenda.asp?PagAtual=" & i & "&mes=" & request.QueryString("mes") & "'>" & i & "</a>  "
     END IF
     If CInt(i) > CInt(PagAtual) Then
         Response.Write "<a href='agenda.asp?PagAtual=" & i & "&mes=" & request.QueryString("mes") & "'>" & i & "</a>  "
  END IF
Next
 
'------------------------------------------------------
 
IF CInt(PagAtual) <> CInt(TotalPages) THEN 
 
'Se estiver na última página, mostra apenas o botão Anterior e Primeira
 
      Response.Write("<B><font color=""#D6DBE7"" size=""2"" face=""Arial"">")
      Response.Write("<a href='agenda.asp?PagAtual=" & PagAtual + 1 & "&mes=" & request.QueryString("mes") & "'>")
      Response.Write("Próxima")
      Response.Write("</a></font></B>  ") 
 
      Response.Write("<B><font color=""#D6DBE7"" size=""1"" face=""Arial"">")
      Response.Write("<a href='agenda.asp?PagAtual=" & TotalPages & "&mes=" & request.QueryString("mes") & "'>")
      Response.Write("Ultima")
      Response.Write("</a></font></B>  ")        
 
 Else
      Response.Write("<B><font color=""#D6DBE7"" size=""2"" face=""Arial"">")
      Response.Write("Próxima") 
      Response.Write("</font></B>  ")
 
      Response.Write("<B><font color=""#D6DBE7"" size=""1"" face=""Arial"">")
      Response.Write("Ultima") 
      Response.Write("</font></B>  ")
End If 
'################## fim paginacao 01 ########################
%></td>
</tr>
</table>
<br />
<br />
<br />
<br />
<!--#Include file="inc/ultimas_noticias.asp"-->
<p><br />
</p>
</div>
<!--#Include file="inc/div_lat_direita.asp"-->
<!--#Include file="inc/barra.asp"-->
</div>
</body>
</html>
<%
rsMenuloja.close
rsMenu.close
rsMenuUtilidades.close
rsMenuCampanhas.close
rsNoticias.close
rsAgenda.close
Call FechaConexao
Set rsMenuloja = nothing
Set rsMenu = nothing
Set rsMenuUtilidades = nothing
Set rsMenuCampanhas = nothing
Set rsNoticias = nothing
Set rsAgenda = nothing
%>

Dr. admin · Abril 9, 2008

olha não sei salgado se vai te ajudar muito a você detectar aonde está o erro, mas quanto a minha conexão com o banco de dados está tudo certo, mas vou colocar o me código da conexao aqui para você ver como eu me conecto ao sql sever 2000

la na pagina da agenda eu coloco um include...........

decraro a variável de conexão......................

Dim conexao

e para abrir coloco............

Call AbreConexao

para fechar coloco....................

Call FechaConexao

página conexao_sql.asp

CODE

<%

sub AbreConexao

set conexao = Server.CreateObject("ADODB.Connection")

conexao.CursorLocation=3

conexao.open "Provider=SQLOLEDB;Data Source=webmaster;Initial Catalog=mmgp;User Id=sa;Password=102030"

end sub
 
sub FechaConexao

conexao.close

set conexao = nothing

end sub

%>

Salgado · Abril 9, 2008

Dá uma pesquisada, e também não precisa mandar MP e ficar upando tópico.

Troque:

ELSE
<td>Nenhum dado encontrado!</td>

END IF

Por

ELSE%>
<td>Nenhum dado encontrado!</td>
<%END IF

Arquivado

visualizar registros paginados na categoria escolhida

Recommended Posts

Dr. admin 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Dr. admin 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Dr. admin 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Dr. admin 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Dr. admin 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Dr. admin 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Dr. admin 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Dr. admin 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Dr. admin 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

Outstanding Сasual Dating - Verified Ladies

Pergunta: Search Sexy Womans in your city for night

Remover formatação ao colar um texto em uma textarea

Fóruns

Tempo Real

Informação importante