Mostrar evento do dia

[Leebano 0]

Alow, Comunidade! ^_^ Estou postando aqui um pedido de tutorial (pois não encontrei isso em lugar algum) de um Sistema em ASP+Access para mostrar no site os eventos (feriados, festas, aniversários) do dia corrente. Tipo assim:Hoje:- Corpus Christi- Aniversário do Manoel- Festa na casa da SuziUtilizo o Dreamweaver MX 2004, onde crio todas as minhas ligações, recordsets, etc. Mas tô quebrando a cuca para montar isso... Tá tudo na cabeça, mas sou iniciante em programação ASP, entaum, venho pedir um auxílio pra galera que já me ajudou bastante até hoje. Quem souber de algo, ao menos, parecido, me diz...Abraços! ^_^

[DackAle 0]

Hmmmm bom, bem basico... tenha todas as datas cadastrados no banco de dados na tabela "datas"

 

Tabela: Datas

Colunas: Nome, Data

 

No campo nome você poe a comemoração tipo Corpus, natal, ano nova e na data.. o dia e o mes 04/12 por exemplo que é meu aniversario :P

 

Em seguida faz uma função de data para comparar tipo

 

ASP [/tr][tr] dia = day(now)

mes = month(now)

if len(dia) = 1 then

dia = "0" & dia

end if

if len(mes) = 1 then

mes = "0" & mes

end if

data = dia & "/" & mes

[/tr]

 

aqui em cima declaro uma varialve com o dia e outra com mes, com o len verificao se o dia e o mes tem só um caractere (1 , 2, 3...) se tiver ele adiciona o 0 na frente (01, 02, 03...) e declaro a variavel data que junta o dia e o mes e poe o / para separar...

 

ASP [/tr][tr]

SQL="SELECT * FROM datas WHERE data='" & data & "'"

set rs = server.CreateObject("AdoDB.RecordSet")

RS.Open SQL,Conexao

 

if NOT rs.eof then

while not rs.eof

 

response.write rs("nome") & "<br>"

 

rs.movenext

wend

[/tr]

 

acima ele faz um select na tabela data e procura, no campo data, por registros que coincidam com a data do dia..., abre a conexao e o recordset... e faz um if, se não for o fim do arquivo então ele faz o looping e mostra os registros

 

Espero que tenha ajudado, se tiver duvida é só grita =)

 

Abração

[Mário Monteiro 179]

se for uma data especifica pesquisa com igualdade...se for uma data que se repete todo ano pesquisa apenas dia e mes...

[Leebano 0]

Certo, certo! Dackale, te cadastrei no meu MSN... Seguinte, vou utilizar o BD em Access (só sei esse ainda, rsrsrs...) e fiz assim:

 

id - autoNumeração (chave primária)

nome - texto

data - texto

 

Aí criei uma tabela no Dreamweaver assim:

 

Hoje:

texto do bd (com o RepeatRegion para aparecer todos os registros desse dia)

 

Aí criei um RecordSet assim:

<%Dim rs_Recupera__MMColParamrs_Recupera__MMColParam = "1"If (Request.QueryString("data") <> "") Then   rs_Recupera__MMColParam = Request.QueryString("data")End If%>

<%Dim rs_RecuperaDim rs_Recupera_numRowsSet rs_Recupera = Server.CreateObject("ADODB.Recordset")rs_Recupera.ActiveConnection = MM_eventos_STRINGrs_Recupera.Source = "SELECT nome, data FROM DADOS WHERE data = '" + Replace(rs_Recupera__MMColParam, "'", "''") + "'"rs_Recupera.CursorType = 0rs_Recupera.CursorLocation = 2rs_Recupera.LockType = 1rs_Recupera.Open()rs_Recupera_numRows = 0%>

E o repeatRegion assim:

<%Dim Repeat1__numRowsDim Repeat1__indexRepeat1__numRows = -1Repeat1__index = 0rs_Recupera_numRows = rs_Recupera_numRows + Repeat1__numRows%>

Então, minha tabela ficou assim representada:

<table border="0" cellspacing="1">  <tr>    <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Evento</font></td>    <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">data</font></td>  </tr>  <% While ((Repeat1__numRows <> 0) AND (NOT rs_Recupera.EOF)) %>  <tr>    <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=(rs_Recupera.Fields.Item("nome").Value)%></font></td>    <td><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=(rs_Recupera.Fields.Item("data").Value)%></font></td>  </tr>  <%   Repeat1__index=Repeat1__index+1  Repeat1__numRows=Repeat1__numRows-1  rs_Recupera.MoveNext()Wend%></table>

Onde implemento essa codificação que você me passou???

[Mário Monteiro 179]

como você está passando a data pra pagina que faz a seleção dos registros??

[Leebano 0]

Ou Mario.... tava tentanto entrar em contato contigo, você naum tem messenger... Bem... meu campo data é somente texto onde digito os valores da data assim: 25/11 por exemplo... Desculpe, mas sou uma negação para ASP e procuro aprender sempre que possível, com as repostas dos tópicos nos fórums. Se puder me ajudar de alguma forma, agradeço.... Posso estar te encaminhando os arquivos: banco de dados e página.asp para que analise... :o

[DackAle 0]

Bom agora to saindo do trampo, chego em casa umas 6/7, dai eu faço pra você um sisteminha pra listar e inserir as datas ;) É facinho e rapido =)Abraços

[Mário Monteiro 179]

bem como disse o DackAle é simples...basicamente você deverá fazer sua seleção de registros passando este parametro...tipo pra pegar tudo que tenha para data atual..."SELECT nome, data FROM DADOS WHERE data = '" & Day(Now()) & "/" & Month(Now()) & "'"bem se no seu campo você armazena sempre 01,02,03 ao inves de 1,2,3 para os dias e os meses, você deve perguntar antes de montar a SQL se é um valor menor que 10 e se for concatena um zero na frente...

[Leebano 0]

Pow, a galera tá ajudando na boa! Fico muito feliz com isso... Seguinte Dackale, vou aguardar seu exemplo, pretendo estudar essa codificação toda... a gente faz os cursos, mas só ensinam e gente a colocar a linha no anzol, pegar o peixe é que são elas, rsrsrs... Marioufa, cara... concatenação, fiquei boiando, é um termo alienígena para mim, mas estou correndo atrás, pesquisando, tentando... Até que uma hora eu acerto! ^_^ Olha, Dackale, acho que naum vou estar online quando for enviar os arquivos para mim, portanto envie nesse email:leebano@uol.com.brÉ certeza de que eu receba os arquivos.E se tiver MSN, me acrescenta na sua lista...Abraços! ^_^

[Mário Monteiro 179]

concatenar é juntar strings...tipo "estudar" & "ASP"aquele "&" está concatenando as duas palavras...

[DackAle 0]

LINK

 

Ta ai o exemplo, funcionou direitinho, quem quiser baixar e ver, bem lammer a programação pra ficar de facil entendimento, se tiver alguma duvida a respeito do codigo é só perguntar =)

 

E mude o endereço do banco de dados nas duas paginas =)

 

Abração

[Leebano 0]

Uow Dackale!!!! Simplesmente E-X-C-E-P-C-I-O-N-A-L! ^_^ Era isso mesmo, somente vou esconder o campo inserir e deixar o de exibição... Pois queria um sisteminha super enxuto e você fez melhor! Valews!!!Abraços! ^_^ LeeP.S. Brigadão tb Marioufpa! Me ensinou legal esse negócio de concatenação.

[DackAle 0]

heheheheh que bom que ajudo, fico feliz, se precisar de ajudar é só berrar que tentaremos ajudar sempre =)Abração

[mx loco 1]

fala... leebano... tem como faser pelo DW... e é mais simple do que você imagina...caso você ainda naum consequiu faser apenas com o DW... post no fortum la que de dou umas dicas...

[Mário Monteiro 179]

mas só pelo dw já vi né??o codigo fica gigante pra fazer a mesma coisa... funciona mas... só recomendo se o cara ainda estiver no zero mesmo, se já sabe o basico é melhor tentar fazer...

[mx loco 1]

ate certo ponto eu copncordo...mas se eu quiser criar um sistema todo no DW... e colocar cod digitados... ele acaba dando paui

[Mário Monteiro 179]

ate certo ponto eu copncordo...mas se eu quiser criar um sistema todo no DW... e colocar cod digitados... ele acaba dando paui

ai depende do cara que ta fazendo...cda caso é um cso...