<%@LANGUAGE="VBSCRIPT"%>
<%
Set objConnC = Server.CreateObject("ADODB.Connection")
objConnC.Open(cConnection)
Set rsEditorial = objConnC.Execute("SELECT * FROM submissions WHERE Status <> 'hold' AND PigeonHole = 'editorial' AND LastName = 'Lloyd' ORDER BY submissionID DESC")
%>
<%
Dim rsViewBlue
Dim rsViewBlue_numRows
Set rsViewBlue = Server.CreateObject("ADODB.Recordset")
rsViewBlue.ActiveConnection = MM_ConnToffeeWeb_STRING
rsViewBlue.Source = "SELECT * FROM efcnews WHERE articletype = 'lloyd' ORDER BY datestamp DESC"
rsViewBlue.CursorType = 0
rsViewBlue.CursorLocation = 2
rsViewBlue.LockType = 1
rsViewBlue.Open()
rsViewBlue_numRows = 0
%>
Toffeeweb - Columns - View from the Blue
ToffeeWeb Columns
View from the Blue
By Lyndon Lloyd
<% If rsEditorial.EOF then %>
No articles have yet been published for this season
<% End If %>
<% Do while NOT rsEditorial.EOF %>
<%=rsEditorial("deck")%>
<%=rsEditorial("DayDate")%>
<%rsEditorial.MoveNext%>
<%Loop%>
Archives
<%
objConnC.Close
Set rsEditorial = Nothing
%>