Calendário

[augusto.braga 0]

Eae Galera,Estou com problemas na montagem de um calendário... Na verdade eu peguei um código pronto que já tem quase tudo pronto, mas, na hora da montagem das datas, na verdade ele em vez de calcular os dias ele está pegando os meses e eu não sei como posso fazer para mudar isso.Estou colocando o código da montagem a seguir para saber se algum de vocês poderia me ajudar!!!!Aguardando...<table ALIGN="CENTER" BORDER="1" CELLSPACING="0" CELLPADDING="2" BGCOLOR="White" BORDERCOLOR="Gray"><tr><td> <table WIDTH="140" BORDER="0" CELLPADDING="1" CELLSPACING="0" BGCOLOR="#FFFFFF"> <tr HEIGHT="18" BGCOLOR="Silver"> <td WIDTH="20" HEIGHT="18" ALIGN="LEFT" VALIGN="MIDDLE"><a HREF="<% =sScript%>?month=<% =IntPrevMonth %>&year=<% =IntPrevYear %>"><img SRC="images/prev.gif" WIDTH="10" HEIGHT="18" BORDER="0" ALT="Previous Month"></a></td> <td WIDTH="120" COLSPAN="5" ALIGN="CENTER" VALIGN="MIDDLE" CLASS="SOME"><% = strMonthName & " " & intThisYear %></td> <td WIDTH="20" HEIGHT="18" ALIGN="RIGHT" VALIGN="MIDDLE"><a HREF="<% =sScript %>?month=<% =IntNextMonth %>&year=<% =IntNextYear %>"><img SRC="images/next.gif" WIDTH="10" HEIGHT="18" BORDER="0" ALT="Next Month"></a></td> </tr> <tr> <td ALIGN="RIGHT" CLASS="SOME" WIDTH="20" HEIGHT="15" VALIGN="BOTTOM">D</td> <td ALIGN="RIGHT" CLASS="SOME" WIDTH="20" HEIGHT="15" VALIGN="BOTTOM">S</td> <td ALIGN="RIGHT" CLASS="SOME" WIDTH="20" HEIGHT="15" VALIGN="BOTTOM">T</td> <td ALIGN="RIGHT" CLASS="SOME" WIDTH="20" HEIGHT="15" VALIGN="BOTTOM">Q</td> <td ALIGN="RIGHT" CLASS="SOME" WIDTH="20" HEIGHT="15" VALIGN="BOTTOM">Q</td> <td ALIGN="RIGHT" CLASS="SOME" WIDTH="20" HEIGHT="15" VALIGN="BOTTOM">S</td> <td ALIGN="RIGHT" CLASS="SOME" WIDTH="20" HEIGHT="15" VALIGN="BOTTOM">S</td> </tr> <tr><td HEIGHT="1" ALIGN="MIDDLE" COLSPAN="7"><img SRC="images/line.gif" HEIGHT="1" WIDTH="140" BORDER="0"></td></tr> <% ' Initialize the end of rows flag to false EndRows = false Response.Write vbCrLf ' Loop until all the rows are exhausted Do While EndRows = false ' Start a table row Response.Write " <TR>" & vbCrLf ' This is the loop for the days in the week For intLoopDay = cSUN To cSAT ' If the first day is not sunday then print the last days of previous month in grayed font If cSAT > cSUN Then Write_TD LastMonthDate, "NON" LastMonthDate = LastMonthDate + 1 intFirstWeekDay = intFirstWeekDay - 1 ' The month starts on a sunday Else ' If the dates for the month are exhausted, start printing next month's dates ' in grayed font If intPrintDay > intLastDay Then Write_TD NextMonthDate, "NON" NextMonthDate = NextMonthDate + 1 EndRows = True Else ' If last day of the month, flag the end of the row If intPrintDay = intLastDay Then EndRows = True End If dToday = CDate(intThisMonth & "/" & intPrintDay & "/" & intThisYear) If NOT Rs.EOF Then ' Set events flag to false. This means the day has no event in it bEvents = False Do While NOT Rs.EOF AND bEvents = False ' If the date falls within the range of dates in the recordset, then ' the day has an event. Make the events flag True If dToday >= Rs("Start_Date") AND dToday <= Rs("End_Date") Then ' Print the date in a highlighted font Write_TD "<A HREF=events.asp?date="& Server.URLEncode(dToday) & " CLASS='EVENT' TARGET='rightframe'> " & intPrintDay & "</A>", "HL" bEvents = True ' If the Start date is greater than the date itself, there is no point ' checking other records. Exit the loop ElseIf dToday < Rs("Start_Date") Then Exit Do ' Move to the next record Else Rs.MoveNext End If Loop ' Checks for that day Rs.MoveFirst End If ' If the event flag is not raise for that day, print it in a plain font If bEvents = False Then Write_TD "<A HREF=events.asp?date="& Server.URLEncode(dToday) & " CLASS='NOEVENT' TARGET='rightframe'> " & intPrintDay & "</A>", "SOME" End If End If ' Increment the date. Done once in the loop. intPrintDay = intPrintDay + 1 End If ' Move to the next day in the week Next Response.Write " </TR>" & vbCrLf Loop Rs.Close Set Rs = Nothing %> </table> </td></tr></table>

[Mário Monteiro 179]

como pegando os meses??poe um print ai para vermos como está

[augusto.braga 0]

Quando ele imprimeD S T Q Q S S 1 23 4 5 6 7 8 9Ele para ai, e se eu mudo o mês do meu computador para outubro no caso 10 ele modifica meu calendário até a data 10. E quando eu clico em cima por exemplo no dia 8 ele seta as anotações pegando o dia de hoje ex: 18 de Agosto de 2006Entendeu?

[Mário Monteiro 179]

de onde voce tirou este codigo??olhando rapido nem entendi a logica deleuse o calendario do outro topico que elem de ta mais logico fica até mais facil de entender e ainda tem uns coments para te ajudar...

[sr.silva 1]

Já tentou pegar, um fonte de calendario pronto...

[Mário Monteiro 179]

acho que foi o que ele fez tiozinho...

[augusto.braga 0]

Teriam como me passar algo que eu possa utilizar???Para facilitar meu trabalho?

[Mário Monteiro 179]

tem um outro topico recente sobre calendarioslá tem um pronto e funcional

[Mário Monteiro 179]

aqui o link

 

http://forum.imasters.com.br/index.php?showtopic=193846

[augusto.braga 0]

Eae Mario,Dei uma olhada nos scripts, muito legal....Eu ainda sou um pouco leigo em asp e gostaria de saber se teria como você me ajudar no seguinte:estou montando esse calendário, pois vai funcionar com inserção de reuniões, a pergunta é como faço agora para colocar a data que tenha registro como link e para que a mesma identifique corretamente o registro certo????E para passar o parâmetro para a leitura da reunião?Você poderia me ajudar nessa questão???Aguardando...

[Mário Monteiro 179]

basta voce verificar no DB se tem algo para aquela determinada data...ai voce cria o link para a descrição que possivelmente estará no DB tambem

[augusto.braga 0]

Teia como me dar uma ajuda mais detalhada???Ainda estou apredendo!!!!

[Mário Monteiro 179]

dentro de cada celula (cada data) voce terá uma consulta para aquela data

 

STRSQL = "SELECT Id FROM TB_Evento WHERE ..."SET RS = Conn.Execute(STRSQL)IF NOT RS.EOF THENId = RS("Id")%>celula com link para o id do evento<%ELSE%>celula sem link<%END IFRS.Close()SET RS = Nothing

[augusto.braga 0]

onde eu encaixaria isso no caso...Pq não consegui entender direito!!!!Obrigado pela ajuda<%giorno1 = (day1-primog+x)Do While giorno1 <= (dayoff+7-ultimog)%><td <%If day(day1-primog+x)=day(now()) and month(day1-primog+x)=month(now()) then response.write "bgcolor=""#FFCC33""" End If%>><div align="center"><font color ="<%if giorno1 >= day1 and giorno1 <= dayoff thenresponse.write "#000000"Elseresponse.write "#CCCCCC"End If%>"> <%if giorno1 >= day1 and giorno1 <= dayoff then%><%=day(day1-primog+x)%> <%else%><%=day(day1-primog+x)%> <%End If%></font></div></td><%If weekday(day1 - primog + x - 1) = 7 Thenresponse.write "</tr>"End If%><%giorno1 = giorno1 + 1x=x+1loop%></table></td></tr>

[augusto.braga 0]

Ae galera obrigado pela ajuda, mas, através de outro tópico eu consegui a resposta!!!!Valew