Ir para conteúdo
Fórum Script Brasil
  • 0

Agenda/calendário

Guest - Mateus -

Perguntado por Guest - Mateus -,

 Share

Pergunta

Guest - Mateus -

Guest - Mateus -

Postado
Postado

olá, estou com o seguinte problema: Eu tenho uma agenda que cadastra determinados eventos, quando entro no evento eu vejo os seus dados e há nele uma opção para a pessoa poder ver todos os eventos do determinado mês q ele está. O problema está ai, pois em vez dele mostrar só o mês correspondente, ele está mostrando também todos os outros eventos cadastrados

Abaixo segue o código onde mostra descrição do evento e o link para ver todos os eventos do mês:

<!--#include file="conecta.asp"-->
<% 
dt = Cdate(Request.QueryString("dt"))
mes = CInt(Request.QueryString("mes"))
Dim Sql, RSAgenda, m, d, a
d = day(dt)
m = month(dt)
a = year(dt)
AbreConexao
Sql = "SELECT * FROM AGENDA Where day(dt_evento) = "&d&" AND Month(dt_evento) = "&m&" AND Year(dt_evento) = "&a&" "
Set RSAgenda = conexao.execute(Sql)
While NOT RSAgenda.EOF
%>
<div align="center">
  <center>
  <table border="0" width="48%" cellspacing="0">
    <tr>
      <td width="24%" bgcolor="#FFFFFF"><font face="Verdana" color="#FF0000" size="1"><b>Evento:</b></font></td>
      <td width="76%" bgcolor="#FFFFFF"><font size="1" face="Verdana"><%=RSAgenda("no_evento")%></font></td>
    </tr>
    <tr>
      <td width="24%"><font face="Verdana" color="#FF0000" size="1"><b>Local:</b></font></td>
      <td width="76%"><font size="1" face="Verdana"><%=RSAgenda("loc_evento")%></font></td>
    </tr>
    <tr>
      <td width="24%"><font face="Verdana" color="#FF0000" size="1"><b>Cidade:</b></font></td>
      <td width="76%"><font size="1" face="Verdana"><%=RSAgenda("cid_evento")%></font></td>
    </tr>
    <tr>
      <td width="24%"><font face="Verdana" color="#FF0000" size="1"><b>Data:</b></font></td>
      <td width="76%"><font size="1" face="Verdana"><%=RSAgenda("dt_evento")%></font></td>
    </tr>
    <tr>
      <td width="24%"><font face="Verdana" color="#FF0000" size="1"><b>Descrição:</b></font></td>
      <td width="76%"><font size="1" face="Verdana"><%=RSAgenda("des_evento")%></font></td>
    </tr>
  </table>
  </center>
</div>  
<p align="center"><a href="agenda.asp?&mes<%=mes%>" target="_blank"><font face="Verdana" size="1"><b>
Ver todos deste Mês</b></font></a></p>

<%
RSAgenda.MoveNext
Wend
Set RSAgenda = Nothing
FechaConexao

'RSAgenda.Close
%>
<form method="POST" action="agenda.asp">

<p align="center"> <font face="Verdana" size="1">Pesquisar eventos
passados:</font><font face="Verdana" size="2">&nbsp;&nbsp;&nbsp;&nbsp; </font><font face="Verdana" size="1">Mês</font><font face="Verdana" size="2">
</font> <font face="Verdana" size="1"> <select size="1" name="id">
    <option value="1">Janeiro</option>
    <option value="2">Fevereiro</option>
    <option value="3">Março</option>
    <option value="4">Abril</option>
    <option value="5">Maio</option>
    <option value="6">Junho</option>
    <option value="7">Julho</option>
    <option value="8">Agosto</option>
    <option value="9">Setembro</option>
    <option value="10">Outubro</option>
    <option value="11">Novembro</option>
    <option value="12">Dezembro</option>
  </select></font> <input type="submit" value="Vai">
<br>
</form>
E aqui está o código da página onde em vêz de aparecer só o mês correspondente (ex.: mês 12), aparece todos os meses com todos os eventos cadastrados: 
<html>

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

<meta name="generator" content="Microsoft FrontPage 4.0">
<base target="main">
</head>

<body link="#000000" vlink="#FF0000">

<!-- #include file="adovbs.inc" -->
<%

Dim objdatabase
Dim objtable
Dim CONN_STRING
Dim CONN_USER
Dim CONN_PASS

objdatabase = "Data Source=" & Server.MapPath("../db/bdteste.mdb") & ";"
objdatabase = objdatabase & "Provider=Microsoft.Jet.OLEDB.4.0;"

CONN_USER = ""
CONN_PASS = ""

Dim TamanhoPagina       
Dim ContaPag      
Dim PagCorrente    
Dim strOrderBy      
Dim strSQL          
Dim conexao 
Dim PagRS     
Dim RegistrosMostrados   
Dim I,contfoto,sqlupdate, RSUp           
Dim x
TamanhoPagina = 10

id=request("id")
strSQL = "SELECT * FROM Agenda WHERE 'month(dt_evento)='"&idevento&" ORDER BY DT_EVENTO ASC"

Set objtable= Server.CreateObject("ADODB.Connection")
objtable.Open objdatabase, CONN_USER, CONN_PASS
objtable.CursorLocation = 3

Set PagRS = Server.CreateObject("ADODB.Recordset")
PagRS.PageSize = TamanhoPagina

PagRS.CacheSize = TamanhoPagina
PagRS.Open strSQL, objtable, adOpenStatic, adLockReadOnly, adCmdText
conta = PagRS.recordcount

If Request.QueryString("page") = "" Then
	PagCorrente = 1
Else
	PagCorrente = CInt(Request.QueryString("page"))
End If

ContaPag = PagRS.PageCount

If PagCorrente > ContaPag Then PagCorrente = ContaPag
If PagCorrente < 1 Then PagCorrente = 1

If ContaPag = 0 Then
	Response.Write "Nenhum Evento encontrado!"
Else
	PagRS.AbsolutePage = PagCorrente

	%>
	<p align="center">
	<font size="2">Parte <strong><%= PagCorrente %></strong>
	de <strong><%= ContaPag %></strong></font><BR>
	Eventos retornados&nbsp;<%=conta%>
	</p>

	<%
	RegistrosMostrados = 0
	'contfoto = 0
    Do While RegistrosMostrados < TamanhoPagina And Not PagRS.EOF
        x=PagRS.AbsolutePosition
        'sqlupdate="UPDATE fotos SET posicao = '"&x&"' WHERE codfoto="&PagRS("codfoto")&""
             'Set RSUp = objtable.execute(sqlupdate)
    %>

               <div align="center">
  <center>
  <%if PagRS("ban_evento")<> "n.jpg" Then %>
     <p align="center"><img border=1 src="../eventos/<%=PagRS("ban_evento")%>"></p>
  <% end if %>

  <table border="0" width="48%" cellspacing="0">
    <tr>
      <td width="24%" bgcolor="#FFFFFF"><font face="Verdana" size="1" color="#FF0000"><b>Evento:</b></font></td>
      <td width="76%" bgcolor="#FFFFFF"><font face="Verdana" size="1"><%=PagRS("no_evento")%></font></td>
    </tr>
    <tr>
      <td width="24%"><b><font face="Verdana" size="1" color="#FF0000">Local:</font></b></td>
      <td width="76%"><font face="Verdana" size="1"><%=PagRS("loc_evento")%></font></td>
    </tr>
    <tr>
      <td width="24%"><b><font face="Verdana" size="1" color="#FF0000">Cidade:</font></b></td>
      <td width="76%"><font face="Verdana" size="1"><%=PagRS("cid_evento")%></font></td>
    </tr>
    <tr>
      <td width="24%"><b><font face="Verdana" size="1" color="#FF0000">Data:</font></b></td>
      <td width="76%"><font face="Verdana" size="1"><%=PagRS("dt_evento")%></font></td>
    </tr>
    <tr>
      <td width="24%"><b><font face="Verdana" size="1" color="#FF0000">Descrição:</font></b></td>
      <td width="76%"><font face="Verdana" size="1"><%=PagRS("des_evento")%></font></td>
    </tr>
  </table>
  </center>
</div>
<br>        
       <%
       RegistrosMostrados = RegistrosMostrados + 1
  PagRS.MoveNext
  Loop               
End If

PagRS.Close
Set PagRS = Nothing
objtable.Close
Set objtable = Nothing%>

  <table border="0" width="80%">
    <tr>
      <td width="100%" align="center">
<%
If PagCorrente > 1 Then
	%>
	<a href="galerias1.asp?id=<%=id%>&page=<%= PagCorrente - 1 %>">[<font size="1">&nbsp;Anterior&nbsp;</font>]</a>

	<%
End If

For I = 1 To ContaPag
        If I = PagCorrente Then
  %>
  <span style="background-color: #CCFF33">[<font size="1">Parte</font> <%= I %>]</span>
    <%
	Else
  %>
  <a href="agenda.asp?id=<%=id%>&page=<%= I %>">[<font size="1">Parte</font> <%= I %>]</a>
  <%
	End If   
Next 

If PagCorrente< ContaPag Then
	%>
	<a href="agenda.asp?id=<%=id%>&page=<%= PagCorrente + 1 %>">[&nbsp;<font size="1">Próxima</font>&nbsp;]</a>
	<%
End If

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

</body>
</html>

A pergunta é...como faço para ele exibir só o mês correspondente e não todos???

Alguém pode me ajudar nessa?

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0
Ulissesx

Ulissesx

Postado
Postado

Da uma olhada nessa linha:

<p align="center"><a href="agenda.asp?&mes<%=mes%>" target="_blank"><font face="Verdana" size="1">
comparando com essa aki: 
id=request("id")
strSQL = "SELECT * FROM Agenda WHERE 'month(dt_evento)='"&idevento&" ORDER BY DT_EVENTO ASC"

essa segunda linha não deveria pegar a mesma variavel da de cima??

acho que o problema ta ai... (to apenas analisando) não to encontrando referencia de id de uma p/outra.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...