Calendario Asp ...

[www 0]

TENHO 2 tabelas...

1 - Tabela Compromissos com os campos:

Id_Compromisso (AUTONUM)

Data (TEXTO). 22/4/2003

2 - Tabela Aniversariantes com os campos:

Id_aniversariante (AUTONUM)

Data (TEXTO). Ex: 22/4/2003

 

E tenho 1 calendario em ASP: Código: <% Sub DisplayCalendar(mMonth, yYear) dim sToday, nextMonth, pastMonth, dataBrasil BgColor = "#efefef" Title = MonthName(mMonth) & " / " & yYear dDay = DateSerial(yYear,mMonth,1) mMonth = Month(dDay) yYear = Year(dDay) texto = Mid(Title, 1, 1) Title = UCase(texto) & Mid(Title ,2) FirstDayOfMonth = Weekday(dDay) pastMonth = (DateAdd("m",-1,dDay)) nextMonth = (DateAdd("m",+1,dDay)) Response.Write "<TABLE cellSpacing=0 cellPadding=0 width=760 border=0>" & vbCrlf    Response.Write "<TR>" & vbCrlf    Response.Write "<TD>" & vbCrlf    Response.Write "<p align='center'><font face='Arial' size='2'><b>" & Title & "</b></font></TD>" & vbCrlf    Response.Write "</TR>" & vbCrlf    Response.Write "</TABLE>" & vbCrlf    Response.Write "<p align='center' style='margin-top: 0; margin-bottom: 0'>" & vbCrlf    Response.Write " <br>" & vbCrlf          Response.Write "<Table width=140 Border=0 BgColor=" & BgColor & ">" & vbCrlf    Response.Write "<TR Valign=Top Align=Center BgColor=" & bgcolor & ">" & vbCrlf         For i = vbSunday To vbSaturday                  Response.Write  "<TD Width='15%'  bgcolor='#98CC48'><Font Face='Arial' Size='1' Color='#FFFFFF'><b>" & Ucase(left(WeekDayName(i), 1)) & "</b></Font></TD>" & vbCrlf                 Next Response.Write "</TR>" & vbCrlf dDay = DateSerial(yYear,mMonth,1) For j=1 to 5 Response.Write "<TR>" & vbCrlf For i = vbSunday to vbSaturday CellStr=" " CellColor = "#FDFDFD" If WeekDay(dDay) = i and Month(dDay) = mMonth then sToday = dDay dataBrasil = day(dDay) & "/" & month(dDay) & "/" & year(dDay) if Cdate(dDay) > cDate(now) then CellStr = "<center><a href='mostraevento.asp?data=" & Day(dDay) & "/" & month(dDay) & "/" & year(dDay) & "' title='" & formatdatetime((Day(dDay) & "/" & Month(dDay) & "/" & Year(dDay)),vblongdate) & "'>" & Day(dDay)& "</a></center>" else If (Day(dDay) = Day(now)) and (Month(dDay) = Month(now)) and (Year(dDay) = Year(now)) then CellColor="#98CC48" CellStr = "<center><a href='mostraevento.asp?data=" & Day(dDay) & "/" & month(dDay) & "/" & year(dDay) & "' title='" & formatdatetime((Day(dDay) & "/" & Month(dDay) & "/" & Year(dDay)),vblongdate) & "'>" & Day(dDay) &"</a></center>" else CellStr = "<center><a href='mostraevento.asp?data=" & Day(dDay) & "/" & month(dDay) & "/" & year(dDay) & "' title='" & formatdatetime((Day(dDay) & "/" & Month(dDay) & "/" & Year(dDay)),vblongdate) & "'>" & Day(dDay) &"</a></center>" end if end if dDay = DateAdd("d",1,dDay) End If Response.Write "<TD BgColor=" & CellColor & "><Font Face=Arial size=1>" & CellStr & "</Font></TD>" & vbCrlf Next Response.Write "</TR>" & vbCrlf Next Response.Write "</Table>" & vbCrlf End Sub   mMonth = request.form("month")   yYear =  request.form("year")   if mMonth = "" then mMonth= Month(now)   if yYear  = "" then yYear = Year(now)   %> <%       Call DisplayCalendar(mMonth, yYear) %>

Preciso da ajuda de vcs pq ja tentei fazer ja deletei 30 vezes e nao consigo chegar a nenhum lugar...Se nao me ajudarem nao tem como po...To no forum pra isso....

 

Como vcs podem ver esse cod me escreve o calendario...Com o fundo do dia atual em cinza certo? Pois bem...

O que eu preciso é o seguinte...

QUe na hora de escrever os dias...Ele faca verificacao dia por dia (LOOP) da seguinte forma...

Ele efetua conexao com a tabela aniversariantes e verifica por ex dia 1 de abril tem algum aniversario pra esse dia ? se tiver ele escreve o dia na cor verde... (LINK), se nao escreve na cor padrao preto... Dia 2 , 3 , 4 etc , ate o final ele verifica isso...

Alem disso preciso que ele efetue conexao com a tebal compromissos e verifique se no dia 1 de abril tem algum compromisso marcado pra esse dia ele escreve o dia na cor azul (LINK) se nao escreve na cor padrao preto..dia 2 , 3 ,4 , ate o final ele faz isso...

e por ultimo..

Ele verifique se tiver compromisso e aniversario pra algum dos dias ele escreve o link na cor AMARELO..

...

 

PESSOAL

NAO SEI , NAO CONSIGO e nem IMAGINO como fazer esses LOOPS

Se nao me ajudarem nao tem como...

To contando com vcs...

EH URGENTE

Valeu !!!

Sei que o tempo de vcs eh curto mais percam 5 min e me ajudem ai vai...Please....

 

VALEUZ !

to no aguardo...

[xenxen 0]

E ae...

beleza!

 

fiz ums comentários no seu codigo, agora é só se dá uma olhadinha q você entende, (se não entender ou não der certo, me contacte pelo ICQ)

 

<% 	Sub DisplayCalendar(mMonth, yYear)   dim sToday, nextMonth, pastMonth, dataBrasil   BgColor = "#efefef"   Title = MonthName(mMonth) & " / " & yYear   dDay = DateSerial(yYear,mMonth,1)   mMonth = Month(dDay)   yYear = Year(dDay)   texto = Mid(Title, 1, 1)   Title = UCase(texto) & Mid(Title ,2)   FirstDayOfMonth = Weekday(dDay)   pastMonth = (DateAdd("m",-1,dDay))   nextMonth = (DateAdd("m",+1,dDay))   Response.Write "<TABLE cellSpacing=0 cellPadding=0 width=760 border=0>" & vbCrlf   Response.Write "<TR>" & vbCrlf   Response.Write "<TD>" & vbCrlf   Response.Write "<p align='center'><font face='Arial' size='2'><b>" & Title & "</b></font></TD>" & vbCrlf   Response.Write "</TR>" & vbCrlf   Response.Write "</TABLE>" & vbCrlf   Response.Write "<p align='center' style='margin-top: 0; margin-bottom: 0'>" & vbCrlf   Response.Write " <br>" & vbCrlf   Response.Write "<Table width=140 Border=0 BgColor=" & BgColor & ">" & vbCrlf   Response.Write "<TR Valign=Top Align=Center BgColor=" & bgcolor & ">" & vbCrlf      For i = vbSunday To vbSaturday       	 Response.Write  "<TD Width='15%'  bgcolor='#98CC48'><Font Face='Arial' Size='1' Color='#FFFFFF'><b>" & Ucase(left(WeekDayName(i), 1)) & "</b></Font></TD>" & vbCrlf        Next   Response.Write "</TR>" & vbCrlf   dDay = DateSerial(yYear,mMonth,1)   For j=1 to 5  	 Response.Write "<TR>" & vbCrlf  	 For i = vbSunday to vbSaturday     CellStr=" "     CellColor = "#FDFDFD"     If WeekDay(dDay) = i and Month(dDay) = mMonth then    	 sToday = dDay    	 dataBrasil = day(dDay) & "/" & month(dDay) & "/" & year(dDay)    	 if Cdate(dDay) > cDate(now) then       CellStr = "<center><a href='mostraevento.asp?data=" & Day(dDay) & "/" & month(dDay) & "/" & year(dDay) & "' title='" & formatdatetime((Day(dDay) & "/" & Month(dDay) & "/" & Year(dDay)),vblongdate) & "'>" & Day(dDay)& "</a></center>"    	 else       If (Day(dDay) = Day(now)) and (Month(dDay) = Month(now)) and (Year(dDay) = Year(now)) then      	 CellColor="#98CC48"      	 CellStr = "<center><a href='mostraevento.asp?data=" & Day(dDay) & "/" & month(dDay) & "/" & year(dDay) & "' title='" & formatdatetime((Day(dDay) & "/" & Month(dDay) & "/" & Year(dDay)),vblongdate) & "'>" & Day(dDay) &"</a></center>"       else      	 'aqui você coloca a conexao e o RecordSet     	 'Set rc = server.CreateObject.... e tudo aquilo q você já sabe     	 'use a query SELECT * FROM Aniversariantes WHERE Data = '"&dDay&"'     	 If not rc.EOF Then         CellColor="#00FF00"        CellStr = "<center><a href='mostraevento.asp?data=" & Day(dDay) & "/" & month(dDay) & "/" & year(dDay) & "' title='" & formatdatetime((Day(dDay) & "/" & Month(dDay) & "/" & Year(dDay)),vblongdate) & "'>" & Day(dDay) &"</a></center>"      	 Else        CellStr = "<center><a href='mostraevento.asp?data=" & Day(dDay) & "/" & month(dDay) & "/" & year(dDay) & "' title='" & formatdatetime((Day(dDay) & "/" & Month(dDay) & "/" & Year(dDay)),vblongdate) & "'>" & Day(dDay) &"</a></center>"      	 End If      end if    	 end if    	 dDay = DateAdd("d",1,dDay)     End If     Response.Write "<TD BgColor=" & CellColor & "><Font Face=Arial size=1>" & CellStr & "</Font></TD>" & vbCrlf  	 Next  	 Response.Write "</TR>" & vbCrlf   Next   Response.Write "</Table>" & vbCrlf 	End Sub  mMonth = request.form("month")  yYear =  request.form("year")  if mMonth = "" then mMonth= Month(now)  if yYear  = "" then yYear = Year(now)  %> <%      Call DisplayCalendar(mMonth, yYear) %>

Valeu!

 

ateh... :)