<% Option Explicit %> <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' ' Main ' ' Purpose: ' ' Directs the action. ' ' Revisions: ' ' [TDB 25.Mar.2002] Code written. ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub Main() Dim strTitle strTitle = GetPageTitle(Request("story_id")) ' XXX do better for description and keywords too. Call WriteStandardHeader(strTitle, "News for bluebones.net", _ "News, computer programming, bluebones.net") If Request.QueryString <> "" And Request.QueryString("action") = "" Then Response.Write "

Show All News Stories

" Response.Write GetStoryByTitle(GetTitle(Request.QueryString)) ElseIf Request.QueryString("action") = "view_story" Then Response.Write "

Show All News Stories

" Response.Write GetStoryByID(Request.QueryString("story_id"), True) ElseIf Request.QueryString("action") = "archive" Then Response.Write GetArchive(0) ElseIf Request.QueryString("action") = "category" Then Response.Write GetArchive(Request("category")) Else Response.Write GetArchive(0) End If Call WriteStandardFooter() End Sub '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' ' GetPageTitle ' ' Purpose: ' ' Gets title for this page. ' ' Parameters: ' ' intID - ID of story being displayed or Empty if no story/multiple stories ' being displayed. ' ' Returns: ' ' Title of current story or "News" with " - bluebones.net" appended either way. ' ' Revisions: ' ' [bakert@gmail.com 2005-01-16] Code written. ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Function GetPageTitle(intID) Dim strTitle If intID <> "" Then strTitle = GetTitleByID(intID) End If If strTitle = "" Then strTitle = "News" End If strTitle = strTitle & " - bluebones.net" GetPageTitle = strTitle End Function Call Main() %>