<% '---WEEK TO PULL PullMonth=Month(DATE) IF Month(DATE)<10 THEN PullMonth="0" & PullMonth END IF PullDay=Day(DATE) IF Day(DATE)<10 THEN PullDate="0" & PullDate END IF PullDate=Year(DATE) & PullMonth & PullDay '---BACK AND NEXT LINKS BackLink="" NextLink="" FirstRecord=0 '---INITIALIZE VARIABLES WeekOf="" BeginDate="" EndDate="" Theme="" WeeklyAffirmation="" Affirmation_Sun="" Affirmation_Mon="" Affirmation_Tue="" Affirmation_Wed="" Affirmation_Thu="" Affirmation_Fri="" Affirmation_Sat="" ThemeDetail="" Book="" Author="" Book_Image="" Book_URL="" IF NOT IsEmpty(REQUEST("back")) THEN PullDate=REQUEST("back") END IF IF NOT IsEmpty(REQUEST("next")) THEN PullDate=REQUEST("next") END IF IF NOT IsEmpty(REQUEST("view")) THEN PullDate=REQUEST("view") END IF '---SNAG THE OPEN CONNECTION SET sMat=Server.CreateObject("ADODB.Connection") sMat.Open "spiritmatters" '---CURRENT WEEK IF IsEmpty(REQUEST("back")) AND IsEmpty(REQUEST("next")) AND IsEmpty(REQUEST("view")) THEN '---SQL QUERY (PULL OUT EVERYTHING) sM_getAll=" SELECT * FROM spiritmatters ORDER BY BeginDate" Set sM=sMat.Execute(sM_getAll) WHILE NOT sM.EOF '---IF DURING THE SELECTED WEEK IF PullDate*1>=sM("BeginDate") AND PullDate*1<=sM("EndDate") THEN WeekOf=sM("WeekOf") BeginDate=sM("BeginDate") EndDate=sM("EndDate") Theme=REPLACE(sM("Theme"),"%27","'") WeeklyAffirmation=REPLACE(sM("WeeklyAffirmation"),"%27","'") Affirmation_Sun=REPLACE(sM("Affirmation_Sun"),"%27","'") Affirmation_Mon=REPLACE(sM("Affirmation_Mon"),"%27","'") Affirmation_Tue=REPLACE(sM("Affirmation_Tue"),"%27","'") Affirmation_Wed=REPLACE(sM("Affirmation_Wed"),"%27","'") Affirmation_Thu=REPLACE(sM("Affirmation_Thu"),"%27","'") Affirmation_Fri=REPLACE(sM("Affirmation_Fri"),"%27","'") Affirmation_Sat=REPLACE(sM("Affirmation_Sat"),"%27","'") ThemeDetail=REPLACE(sM("ThemeDetail"),"%27","'") Book=REPLACE(sM("Book"),"%27","'") Author=REPLACE(sM("Author"),"%27","'") Book_Image=REPLACE(sM("Book_Image"),"%27","'") Book_URL=REPLACE(sM("Book_URL"),"%27","'") END IF sM.MoveNext WEND BackLink="<< Last Week" END IF '---SPECIFIC WEEK IF NOT IsEmpty(REQUEST("view")) THEN '---SQL QUERY (PULL OUT EVERYTHING) sM_getAll=" SELECT * FROM spiritmatters ORDER BY BeginDate" Set sM=sMat.Execute(sM_getAll) FirstEntryTest=0 WHILE NOT sM.EOF '---IF DURING THE SELECTED WEEK FirstRecord=FirstRecord+1 IF sM("BeginDate")=PullDate*1 THEN IF FirstRecord=1 THEN FirstEntryTest=1 END IF WeekOf=sM("WeekOf") BeginDate=sM("BeginDate") EndDate=sM("EndDate") Theme=REPLACE(sM("Theme"),"%27","'") WeeklyAffirmation=REPLACE(sM("WeeklyAffirmation"),"%27","'") Affirmation_Sun=REPLACE(sM("Affirmation_Sun"),"%27","'") Affirmation_Mon=REPLACE(sM("Affirmation_Mon"),"%27","'") Affirmation_Tue=REPLACE(sM("Affirmation_Tue"),"%27","'") Affirmation_Wed=REPLACE(sM("Affirmation_Wed"),"%27","'") Affirmation_Thu=REPLACE(sM("Affirmation_Thu"),"%27","'") Affirmation_Fri=REPLACE(sM("Affirmation_Fri"),"%27","'") Affirmation_Sat=REPLACE(sM("Affirmation_Sat"),"%27","'") ThemeDetail=REPLACE(sM("ThemeDetail"),"%27","'") Book=REPLACE(sM("Book"),"%27","'") Author=REPLACE(sM("Author"),"%27","'") Book_Image=REPLACE(sM("Book_Image"),"%27","'") Book_URL=REPLACE(sM("Book_URL"),"%27","'") END IF sM.MoveNext WEND IF FirstEntryTest=0 THEN BackLink="<< Last Week" END IF IF BeginDate<=(Year(DATE) & PullMonth & PullDay)*1 AND EndDate<=(Year(DATE) & PullMonth & PullDay)*1 THEN NextLink="Next Week >>" END IF END IF '---LAST WEEK IF NOT IsEmpty(REQUEST("back")) THEN '---SQL QUERY (PULL OUT EVERYTHING) sM_getAll=" SELECT * FROM spiritmatters ORDER BY BeginDate" Set sM=sMat.Execute(sM_getAll) WHILE NOT sM.EOF '---IF DURING THE SELECTED WEEK IF sM("BeginDate")Last Week" END IF IF BeginDate<=(Year(DATE) & PullMonth & PullDay)*1 AND EndDate<=(Year(DATE) & PullMonth & PullDay)*1 THEN NextLink="Next Week >>" END IF END IF '---NEXT WEEK IF NOT IsEmpty(REQUEST("next")) THEN '---SQL QUERY (PULL OUT EVERYTHING) sM_getAll=" SELECT * FROM spiritmatters ORDER BY BeginDate DESC" Set sM=sMat.Execute(sM_getAll) WHILE NOT sM.EOF '---IF DURING THE SELECTED WEEK IF sM("BeginDate")>PullDate*1 THEN WeekOf=sM("WeekOf") BeginDate=sM("BeginDate") EndDate=sM("EndDate") Theme=REPLACE(sM("Theme"),"%27","'") WeeklyAffirmation=REPLACE(sM("WeeklyAffirmation"),"%27","'") Affirmation_Sun=REPLACE(sM("Affirmation_Sun"),"%27","'") Affirmation_Mon=REPLACE(sM("Affirmation_Mon"),"%27","'") Affirmation_Tue=REPLACE(sM("Affirmation_Tue"),"%27","'") Affirmation_Wed=REPLACE(sM("Affirmation_Wed"),"%27","'") Affirmation_Thu=REPLACE(sM("Affirmation_Thu"),"%27","'") Affirmation_Fri=REPLACE(sM("Affirmation_Fri"),"%27","'") Affirmation_Sat=REPLACE(sM("Affirmation_Sat"),"%27","'") ThemeDetail=REPLACE(sM("ThemeDetail"),"%27","'") Book=REPLACE(sM("Book"),"%27","'") Author=REPLACE(sM("Author"),"%27","'") Book_Image=REPLACE(sM("Book_Image"),"%27","'") Book_URL=REPLACE(sM("Book_URL"),"%27","'") END IF sM.MoveNext WEND BackLink="<< Last Week" IF BeginDate<=(Year(DATE) & PullMonth & PullDay)*1 AND EndDate<=(Year(DATE) & PullMonth & PullDay)*1 THEN NextLink="Next Week >>" END IF END IF sMat.Close %>









<% IF WeekOf<>"" THEN %> Week of <%= WeekOf %>
<%= BackLink %>   <%= NextLink %>

The theme for this week is <%= Theme %>.

Weekly Affirmation <%= WeeklyAffirmation %>.

<%= ThemeDetail %>

Daily Affirmations

Sunday: <%= Affirmation_Sun %>
Monday: <%= Affirmation_Mon %>
Tuesday: <%= Affirmation_Tue %>
Wednesday: <%= Affirmation_Wed %>
Thursday: <%= Affirmation_Thu %>
Friday: <%= Affirmation_Fri %>
Saturday: <%= Affirmation_Sat %>
<% IF NOT Book="" THEN %> Recommended Reading
<%= Book %> <% IF NOT Author="" THEN %> by <%= Author %> <% END IF %>

<% IF NOT Book_Image="" THEN%>
Click here to get this book at Amazon.com <% END IF %> <% END IF %>
<% ELSE %> <% '---SNAG THE OPEN CONNECTION SET sMat=Server.CreateObject("ADODB.Connection") sMat.Open "spiritmatters" '---GET THE LAST WEEK ENTERED '---SQL QUERY (PULL OUT EVERYTHING) sM_getAll=" SELECT * FROM spiritmatters ORDER BY BeginDate" Set sM=sMat.Execute(sM_getAll) WHILE NOT sM.EOF '---IF DURING THE SELECTED WEEK EndDate=sM("EndDate") sM.MoveNext WEND BackLink="<< Jump To Last Week Entered" sMat.Close %>


You Are the Light of the World
Now Love God.




<%=BackLink%>



<% END IF %>

| home | programs | inspiration | about SpiritMatters | email