<%@LANGUAGE="VBSCRIPT"%>
<%
Dim rsTWNews
Dim rsTWNews_numRows
Dim rsTWSnippets
Dim rsTWSnippets_numRows
Set rsTWNews = Server.CreateObject("ADODB.Recordset")
rsTWNews.ActiveConnection = MM_ConnToffeeWeb_STRING
rsTWNews.Source = "SELECT TOP 25 * FROM efcnews WHERE section='headline' AND status <> 'hold' AND status <> 'archive' ORDER BY datestamp DESC"
rsTWNews.CursorType = 0
rsTWNews.CursorLocation = 2
rsTWNews.LockType = 1
rsTWNews.Open()
rsTWNews_numRows = 0
Set rsTWSnippets = Server.CreateObject("ADODB.Recordset")
rsTWSnippets.ActiveConnection = MM_ConnToffeeWeb_STRING
rsTWSnippets.Source = "SELECT TOP 100 * FROM efcnews WHERE section='brief' AND status <> 'hold' AND status <> 'archive' ORDER BY datestamp DESC"
rsTWSnippets.CursorType = 0
rsTWSnippets.CursorLocation = 2
rsTWSnippets.LockType = 1
rsTWSnippets.Open()
rsTWSnippets_numRows = 0
%>
ToffeeWeb Mailbag Archive, 2005-06