Christ the King  
Lutheran Church and Preschool

Church Office  746-7085           Preschool  746-7095
<% Dim cnnSimple ' ADO connection Dim rstSimple ' ADO recordset Dim strDBPath ' path to our Access database (*.mdb) file IF request("direction") = "" THEN session("nowdate") = now() END IF IF REQUEST("Newdate") > "" THEN session("nowdate") = cdate(Request("newdate")) END IF IF request("direction")="back" THEN Session("nowdate") = Session("nowdate") - 7 END IF IF request("direction") = "next" THEN Session("nowdate") = Session("nowdate") + 7 END IF function dayofweek (day) Select CASE DAY Case 1 dayofweek = "Sunday" Case 2 dayofweek = "Monday" Case 3 dayofweek = "Tuesday" Case 4 dayofweek = "Wednesday" Case 5 dayofweek = "Thursday" Case 6 dayofweek = "Friday" Case 7 dayofweek = "Saturday" END SELECT END FUNCTION ' MapPath of virtual database file path to a physical path. ' If you want you could hard code a physical path here. strDBPath = Server.MapPath("..\fpdb\calendar.mdb") Set cnnSimple = Server.CreateObject("ADODB.Connection") cnnSimple.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";" daysback=(weekday(now())-1) Set rstSimple = cnnSimple.Execute("SELECT * FROM results where (cdate(date) > #"& session("nowdate")-daysback-1 &" #) AND (cdate(date) < #"& session("nowdate")- daysback + 8 &" #) ORDER BY DATE, TIME") %>

Week of <%= month(Session("nowdate")-daysback) %>/<%=day(Session("nowdate")-daysback)%>/<%= year(Session("nowdate")-daysback) %>

<%IF Session("nowdate")-now() > 0 THEN %><% ELSE %>  <%END IF%> <%IF Session("nowdate")-now() < 14 THEN %><% ELSE %> <%END IF%>

<% TEMPDATE = NOW() - 1000 rows =0 Do While Not rstSimple.EOF %> <%IF TEMPDATE <> rstSimple.Fields("Date").Value Then%> <%ELSE%> <%END IF%> <% TEMPDATE = rstSimple.Fields("Date").Value rstSimple.MoveNext rows = rows + 1 Loop%>

Date

Date

Time

Event
<%=dayofweek(weekday(rstSimple.Fields("Date").Value))%>  <%= FormatDateTime(rstSimple.Fields("Date").Value,vbMediumdate) %>
     <%IF ISDATE(rstSimple.Fields("Time").Value) THEN IF Hour(rstSimple.Fields("Time").Value)<13 THEN response.write(Hour(rstSimple.Fields("Time").Value)&":") ELSE response.write(Hour(rstSimple.Fields("Time").Value)-12&":") END IF IF Minute(rstSimple.Fields("Time").Value)=0 THEN response.write ("00") ELSE response.write (Minute(rstSimple.Fields("Time").Value)) END IF IF hour(rstSimple.Fields("Time").Value)>11 THEN response.write (" PM") ELSE response.write (" AM") END IF END IF%>  <%= rstSimple.Fields("event").Value %>  <%IF rstSimple.Fields("Date").Value = date() THEN %> <%IF TEMPDATE <> rstSimple.Fields("Date").Value Then%>  TODAY<%END IF%><% END IF%> 
<%IF rows < 1 THEN%>

Sorry, our calendar isn't up to this date!

 

<%END IF%>

 

 

Christ the King Home