<%@LANGUAGE="VBSCRIPT"%> [an error occurred while processing this directive] <% dim cat cat=request.QueryString("cat") On Error Resume Next 'Response.Expires=720 Dim today,rsCat,rsStory Sub getCategory(cat,Start,Limit) 'Sub to pull out the individual stories for each category today=Date() set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = MM_public_STRING If rs.ActiveConnection.Errors.Count>0 Then Response.Redirect("../error.htm") Response.End() End If rs.Source = "SELECT NewsCategory.Category, News.NewsID, News.Headline, News.Dateline, News.Blurb, News.Story FROM NewsCategory INNER JOIN News ON NewsCategory.CategoryID = News.CategoryID "&_ "WHERE (NewsCategory.Category='"&cat&"' AND News.Dateline <= #"&today&"# AND #"&today&"#<=DateExpirey AND Publish=-1) ORDER BY News.Dateline DESC" rs.CursorType = 3 rs.CursorLocation = 2 rs.LockType = 1 rs.Open() If rs.BOF AND rs.EOF Then Response.Write "

No available articles

" Else Dim counter counter=1 While NOT rs.EOF AND counter <= Limit If counter >= Start Then Response.Write(" ("&rs("Dateline")&")
") End If counter=counter+1 rs.MoveNext() Wend End If rs.Close() Set rs=Nothing End Sub If (Request.QueryString("ID") <> "") Then rsStory__MMColParam = Request.QueryString("ID") set rsStory = Server.CreateObject("ADODB.Recordset") rsStory.ActiveConnection = MM_public_STRING If rsStory.ActiveConnection.Errors.Count>0 Then Response.Redirect("../error.htm") Response.End() End If rsStory.Source = "SELECT Headline, Story FROM News WHERE NewsID="&Replace(rsStory__MMColParam, "'", "''") rsStory.CursorType = 3 rsStory.CursorLocation = 2 rsStory.LockType = 1 rsStory.Open() strHeadline=rsStory("Headline") strStory=rsStory("Story") rsStory.Close() Set rsStory=Nothing Else strHeadline="" strStory="In the News" End If set rsCat = Server.CreateObject("ADODB.Recordset") rsCat.ActiveConnection = MM_public_STRING If rsCat.ActiveConnection.Errors.Count>0 Then Response.Redirect("../error.htm") Response.End() End If rsCat.Source = "SELECT * FROM NewsCategory" rsCat.CursorType = 3 rsCat.CursorLocation = 2 rsCat.LockType = 1 rsCat.Open() %> News
Home Page Products Training Support About Us Site Map Contact Us
<% Dim i i=1 While NOT rsCat.EOF%> <%i=i+1 rsCat.MoveNext Wend%>
> <%call getCategory(rsCat("Category"),1,10)%>


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