<%@ LANGUAGE="VBScript" %> Comunidade de Petrópolis - AGENDA

<% ' ***Begin Function Declaration*** ' New and improved GetDaysInMonth implementation. ' Thanks to Florent Renucci for pointing out that I ' could easily use the same method I used for the ' revised GetWeekdayMonthStartsOn function. Function GetDaysInMonth(iMonth, iYear) Dim dTemp dTemp = DateAdd("d", -1, DateSerial(iYear, iMonth + 1, 1)) GetDaysInMonth = Day(dTemp) End Function ' Previous implementation on GetDaysInMonth 'Function GetDaysInMonth(iMonth, iYear) ' Select Case iMonth ' Case 1, 3, 5, 7, 8, 10, 12 ' GetDaysInMonth = 31 ' Case 4, 6, 9, 11 ' GetDaysInMonth = 30 ' Case 2 ' If IsDate("February 29, " & iYear) Then ' GetDaysInMonth = 29 ' Else ' GetDaysInMonth = 28 ' End If ' End Select 'End Function Function GetWeekdayMonthStartsOn(dAnyDayInTheMonth) Dim dTemp dTemp = DateAdd("d", -(Day(dAnyDayInTheMonth) - 1), dAnyDayInTheMonth) GetWeekdayMonthStartsOn = WeekDay(dTemp) End Function Function SubtractOneMonth(dDate) SubtractOneMonth = DateAdd("m", -1, dDate) End Function Function AddOneMonth(dDate) AddOneMonth = DateAdd("m", 1, dDate) End Function ' ***End Function Declaration*** Dim dDate ' Date we're displaying calendar for Dim iDIM ' Days In Month Dim iDOW ' Day Of Week that month starts on Dim iCurrent ' Variable we use to hold current day of month as we write table Dim iPosition ' Variable we use to hold current position in table ' Get selected date. There are two ways to do this. ' First check if we were passed a full date in RQS("date"). ' If so use it, if not look for seperate variables, putting them togeter into a date. ' Lastly check if the date is valid...if not use today If IsDate(Request.QueryString("date")) Then dDate = CDate(Request.QueryString("date")) Else If IsDate(Request.QueryString("month") & "-" & Request.QueryString("day") & "-" & Request.QueryString("year")) Then dDate = CDate(Request.QueryString("month") & "-" & Request.QueryString("day") & "-" & Request.QueryString("year")) Else dDate = Date() ' The annoyingly bad solution for those of you running IIS3 If Len(Request.QueryString("month")) <> 0 Or Len(Request.QueryString("day")) <> 0 Or Len(Request.QueryString("year")) <> 0 Or Len(Request.QueryString("date")) <> 0 Then Response.Write "The date you picked was not a valid date. The calendar was set to today's date.

" End If ' The elegant solution for those of you running IIS4 'If Request.QueryString.Count <> 0 Then Response.Write "The date you picked was not a valid date. The calendar was set to today's date.

" End If End If 'Now we've got the date. Now get Days in the choosen month and the day of the week it starts on. iDIM = GetDaysInMonth(Month(dDate), Year(dDate)) iDOW = GetWeekdayMonthStartsOn(dDate) %>
 
<%= MonthName(Month(dDate)) & " de " & Year(dDate) %>
  
 
<% ' Write spacer cells at beginning of first row if month doesn't start on a Sunday. If iDOW <> 1 Then Response.Write vbTab & "" & vbCrLf iPosition = 1 Do While iPosition < iDOW Response.Write vbTab & vbTab & "" & vbCrLf iPosition = iPosition + 1 Loop End If ' Write days of month in proper day slots iCurrent = 1 iPosition = iDOW Do While iCurrent <= iDIM ' If we're at the begginning of a row then write TR If iPosition = 1 Then Response.Write vbTab & "" & vbCrLf End If ' If the day we're writing is the selected day then highlight it somehow. If iCurrent = Day(dDate) Then Response.Write vbTab & vbTab & "" & vbCrLf Else Response.Write vbTab & vbTab & "" & vbCrLf End If ' If we're at the endof a row then write /TR If iPosition = 7 Then Response.Write vbTab & "" & vbCrLf iPosition = 0 End If ' Increment variables iCurrent = iCurrent + 1 iPosition = iPosition + 1 Loop ' Write spacer cells at end of last row if month doesn't end on a Saturday. If iPosition <> 1 Then Do While iPosition <= 7 Response.Write vbTab & vbTab & "" & vbCrLf iPosition = iPosition + 1 Loop Response.Write vbTab & "" & vbCrLf End If %>
D
S
T
Q
Q
S
S
 
" & iCurrent & "
" & iCurrent & "
 
  
. . .

161 anos

VENHA COM SUA FAMÍLIA!
CONVIDE SEUS AMIGOS!

APROVEITE O PRESENTE
DE ANIVERSÁRIO DA
COMUNIDADE LUTERANA...
dia-a-dia - julho

02

9:00

domingo

Culto .

 

9:00

 

Culto no Rocio

04

19:30

terça

Culto

05

19:30

quarta

Encontro de Famílias casa de Clébio e Elisângela

06

13:30

quinta

Devocional no Amparo

06

 

quinta

Passeio Anual da OASE

06

19:00

quinta

Reunião do Presbitério

08

9:00

sábado

Fórum-RJ Resende

08

19:00

sábado

Reunião da Juventude

09

9:00

domingo

Culto com Santa Ceia – Feira de Pratos

11

19:30

terça

Culto

12

19:30

quarta

Encontro de famílias casa de Clébio e Elisângela

13

13:30

quinta

Devocional no Amparo

14

19:30

sexta

Encontro de casais GRUPO I

15

10:00

sábado

Reunião em ARARAS

15

19:00

sábado

Reunião de Jovens

16

9:00

domingo

Culto .

20

15:30

domingo

Culto na Fazenda Inglesa.

22

19:00

sábado

Reunião de Jovens

23

9:00

Domingo

Culto de Ação de Graças pela Colheita com Santa Ceia, Colméia, Aniversariantes seguido de almoço com Festa Julina.

 

 

 

 

27

13:30

quinta

Devocional no Amparo

29

19.00

sábado

Reunião de jovens

30

9.00

domingo

Culto

dia-a-dia - agosto

01

19:30

terça

Culto

02

13:30

quarta

Reunião da Diretoria da  OASE

02

14:00

quarta

Reunião da OASE

02

19:30

quarta

Encontro de famílias na casa de Clébio e Elisângela

03

13:30

quinta

Devocional no Amparo

05

9:00

sábado

Reunião do Presbitério

05

19:00

sábado

Reunião da Juventude

06

9:00

domingo

Culto

06

9:00

 

Culto no Rocio

08

19:30

terça

Culto

09

13:30

quarta

Reunião da Diretoria da OASE

09

14:00

quarta

Reunião da OASE

09

19.30

 

Encontro de Famílias na casa de Clébio e Elisângela

10

13:30

quinta

Devocional no Amparo

11

19:30

sexta

Encontro de casais GRUPO I

12

10:00

sábado

Reunião em ARARAS

12

19:00

sábado

Reunião da Juventude

13

9:00

domingo

Culto do dia dos Pais, Colméia, com Santa Ceia, seguido de homenagem aos Pais no salão da Comunidade

15

19:30

terça

Culto

16

14:00

quarta

Reunião da OASE

16

19:30

quarta

Encontro de Famílias na casa de Clébio e Elisângela

17

13:30

quinta

Devocional no Amparo

19

19:00

sábado

Reunião da Juventude

20

9:00

domingo

Culto

20

10:30

domingo

Culto em alemão com Santa Ceia

20

15:30

domingo

Culto na Fazenda Inglesa

22

19:30

terça

Culto

23

14:00

quarta

Visita da OASE ao grupo de Ipanema

24

13:30

quinta

Devocional no Amparo

26

19:00

sábado

Reunião da Juventude

27

9:00

domingo

Culto de Aniversariantes – Feira de Pratos

29

19:30

terça

Culto

30

14:00

quarta

Reunião da OASE

30

19:30

quarta

Encontro de Famílias na casa de Clébio e Elisângela

31

13:30

quinta

Devocional no Amparo
dia-a-dia - setembro

02

9:00

sábado

Reunião do Presbitério

02

19:00

sábado

Reunião da Juventude

03

9:00

domingo

Culto dos 161 Anos de Aniversário da Comunidade seguido de almoço festivo

03

14:30

domingo

Culto no Rocio

05

14:00

quinta

Devocional no Amparo

06

13:30

quarta

Reunião da diretoria da OASE

06

14:00

quarta

Reunião da OASE

06

19:30

quarta

Encontro de Famílias na casa de Clébio e Elisângela

07

16:00

quinta

Evangelização : Pr. Valdecir Patzlaff no Salão da Comunidade com Confraternização

08

19:30

sexta

Evangelização : Pr. Valdecir Patzlaff no Salão da Comunidade com Confraternização

09

9:00

sábado

Reunião do Presbitério

10

9:00

domingo

Culto Colméia com Santa Ceia – Pregação: Pr. Valdecir Patzlaff seguido de Confraternização

 

 

 

Dia da Igreja em Guapimirim

12

19:30

terça

Culto

13

14:00

quarta

Reunião da OASE

13

19:30

quarta

 Encontro de Famílias na casa de Clébio e Elisângela

16

10:00

sábado

Reunião em Araras

16

19:00

sábado

Reunião da Juventude

17

19:00

domingo

Culto

17

15:30

domingo

Culto na Fazenda Inglesa

19

19:30

terça

Culto

20

14:00

quarta

Chá da Primavera na OASE

20

19:30

quarta

Encontro de Famílias na casa de Clébio e Elisângela

21

13:30

quinta

Devocional no Amparo

23

19:00

sábado

Reunião da Juventude

24

9:00

domingo

Culto de Aniversariantes com Santa Ceia seguido de Feira de Pratos

26

19:30

terça

Culto

27

14:00

quarta

Reunião da OASE

27

19:30

quarta

Encontro de Famílias na casa de Clébio e Elisângela

28

13:30

quinta

Devocional no Amparo

30

19:00

sábado

Reunião da Juventude

 
home      
      topo