<%@LANGUAGE="VBSCRIPT"%> <% Dim twindepth Dim twindepth_numRows Set twindepth = Server.CreateObject("ADODB.Recordset") twindepth.ActiveConnection = MM_ConnToffeeWeb_STRING twindepth.Source = "SELECT * FROM efcnews WHERE indepthnews = 1 AND status <> 'hold' AND season = '07-08' ORDER BY datestamp DESC" twindepth.CursorType = 0 twindepth.CursorLocation = 2 twindepth.LockType = 1 twindepth.Open() twindepth_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 twindepth_numRows = twindepth_numRows + Repeat1__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> Toffeeweb: In-Depth News, 2007-08
SEASON 2007-08

In-Depth News

News reports from the current season

<% While ((Repeat1__numRows <> 0) AND (NOT twindepth.EOF)) %>

"><%=(twindepth.Fields.Item("Headline").Value)%>
<%=(twindepth.Fields.Item("Day").Value)%> <%=(twindepth.Fields.Item("Month").Value)%>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 twindepth.MoveNext() Wend %>

For daily news in brief, visit the Season Diary

News archives from previous seasons:
Season 2006-07
Season 2005-06
Season 2004-05
Season 2003-04
Season 2002-03
Season 2001-02
Season 2000-01
Season 1999-2000
August - November 1999

OK

We use cookies to enhance your experience on ToffeeWeb and to enable certain features. By using the website you are consenting to our use of cookies in accordance with our cookie policy.

<% twindepth.Close() Set twindepth = Nothing %>