Life in a Jar: The Irena Sendler Project

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% FUNCTION CropSentence(strText, intLength, strTrial) Dim wsCount Dim intTempSize Dim intTotalLen Dim strTemp wsCount = 0 intTempSize = 0 intTotalLen = 0 intLength = intLength - Len(strTrial) strTemp = "" IF Len(strText) > intLength THEN arrTemp = Split(strText, " ") FOR EACH x IN arrTemp IF Len(strTemp) <= intLength THEN strTemp = strTemp & x & " " END IF NEXT CropSentence = Left(strTemp, Len(strTemp) - 1) & strTrial ELSE CropSentence = strText END IF END FUNCTION %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 5 Repeat1__index = 0 rset_UpcomingEvents_numRows = rset_UpcomingEvents_numRows + Repeat1__numRows %> <% Dim Repeat_E__numRows Dim Repeat_E__index Repeat_E__numRows = 8 Repeat_E__index = 0 rset_UpcomingEvents_numRows = rset_UpcomingEvents_numRows + Repeat_E__numRows %> <% FUNCTION CropSentence(strText, intLength, strTrial) Dim wsCount Dim intTempSize Dim intTotalLen Dim strTemp wsCount = 0 intTempSize = 0 intTotalLen = 0 intLength = intLength - Len(strTrial) strTemp = "" IF Len(strText) > intLength THEN arrTemp = Split(strText, " ") FOR EACH x IN arrTemp IF Len(strTemp) <= intLength THEN strTemp = strTemp & x & " " END IF NEXT CropSentence = Left(strTemp, Len(strTemp) - 1) & strTrial ELSE CropSentence = strText END IF END FUNCTION %> Life in a Jar: The Irena Sendler Project

<% If Not rset_UpcomingEvents.EOF Or Not rset_UpcomingEvents.BOF Then %> <% While ((Repeat_E__numRows <> 0) AND (NOT rset_UpcomingEvents.EOF)) %> <% Repeat_E__index=Repeat_E__index+1 Repeat_E__numRows=Repeat_E__numRows-1 rset_UpcomingEvents.MoveNext() Wend %>

<%=(rset_UpcomingEvents.Fields.Item("eventStartDate").Value)%>

- ">read more -

<%=(rset_UpcomingEvents.Fields.Item("eventLocation").Value)%>
<% =(CropSentence((rset_UpcomingEvents.Fields.Item("eventDesc").Value), 100, "...")) %>

CLICK HERE TO
VIEW ALL EVENTS <% End If ' end Not rset_UpcomingEvents.EOF Or NOT rset_UpcomingEvents.BOF %>

<% If rset_UpcomingEvents.EOF And rset_UpcomingEvents.BOF Then %>

There are no upcoming
events on the schedule.

<% End If ' end rset_UpcomingEvents.EOF And rset_UpcomingEvents.BOF %>

<span class="bodyText"><A HREF="Untitled.wmv">Play the clip using the stand-alone player</A></span>

Can't view the clip? Download the player plug-in from Microsoft