<%@LANGUAGE="VBSCRIPT"%>
<%
Dim rsTopStories
Dim rsTopStories_cmd
Dim rsTopStories_numRows
Set rsTopStories_cmd = Server.CreateObject ("ADODB.Command")
rsTopStories_cmd.ActiveConnection = MM_Record_Stories_STRING
rsTopStories_cmd.CommandText = "SELECT dbo.NewsStory.ID, dbo.NewsStory.PubDate, dbo.NewsStory.Headline, dbo.NewsStory.Subhead, dbo.NewsStory.byline1, dbo.NewsStory.byline2, dbo.NewsStory.lead, dbo.NewsStory.body, dbo.NewsStory.body2, dbo.NewsStory.body3, dbo.NewsStory.Cutline, dbo.NewsStory.PhotoCredit, dbo.NewsStory.photo1, dbo.NewsStory.photo2, dbo.NewsStory.Placement FROM dbo.NewsStory INNER JOIN dbo.PubDate ON ((DATEPART(d, dbo.NewsStory.PubDate) = DATEPART(d, dbo.PubDate.DR_PubDate)) AND (DATEPART(mm, dbo.NewsStory.PubDate) = DATEPART(mm, dbo.PubDate.DR_PubDate)) AND (DATEPART(yyyy , dbo.NewsStory.PubDate) = DATEPART(yyyy, dbo.PubDate.DR_PubDate))) WHERE (dbo.NewsStory.Section = 'Top') AND (dbo.NewsStory.Placement > 0)"
rsTopStories_cmd.Prepared = true
Set rsTopStories = rsTopStories_cmd.Execute
rsTopStories_numRows = 0
%>
<%
Dim rsRegion
Dim rsRegion_cmd
Dim rsRegion_numRows
Set rsRegion_cmd = Server.CreateObject ("ADODB.Command")
rsRegion_cmd.ActiveConnection = MM_Record_Stories_STRING
rsRegion_cmd.CommandText = "SELECT dbo.NewsStory.ID, dbo.NewsStory.PubDate, dbo.NewsStory.Headline, dbo.NewsStory.Subhead, dbo.NewsStory.byline1, dbo.NewsStory.byline2, dbo.NewsStory.lead, dbo.NewsStory.body, dbo.NewsStory.body2, dbo.NewsStory.body3, dbo.NewsStory.Cutline, dbo.NewsStory.PhotoCredit, dbo.NewsStory.photo1, dbo.NewsStory.photo2, dbo.NewsStory.Placement FROM dbo.NewsStory INNER JOIN dbo.PubDate ON ((DATEPART(d, dbo.NewsStory.PubDate) = DATEPART(d, dbo.PubDate.DR_PubDate)) AND (DATEPART(mm, dbo.NewsStory.PubDate) = DATEPART(mm, dbo.PubDate.DR_PubDate)) AND (DATEPART(yyyy , dbo.NewsStory.PubDate) = DATEPART(yyyy, dbo.PubDate.DR_PubDate))) WHERE (dbo.NewsStory.Section = 'Region') AND (dbo.NewsStory.Placement > 0)"
rsRegion_cmd.Prepared = true
Set rsRegion = rsRegion_cmd.Execute
rsRegion_numRows = 0
%>
<%
Dim rsSport
Dim rsSport_cmd
Dim rsSport_numRows
Set rsSport_cmd = Server.CreateObject ("ADODB.Command")
rsSport_cmd.ActiveConnection = MM_Record_Stories_STRING
rsSport_cmd.CommandText = "SELECT dbo.NewsStory.ID, dbo.NewsStory.PubDate, dbo.NewsStory.Headline, dbo.NewsStory.Subhead, dbo.NewsStory.byline1, dbo.NewsStory.byline2, dbo.NewsStory.lead, dbo.NewsStory.body, dbo.NewsStory.body2, dbo.NewsStory.body3, dbo.NewsStory.Cutline, dbo.NewsStory.PhotoCredit, dbo.NewsStory.photo1, dbo.NewsStory.photo2, dbo.NewsStory.Placement FROM dbo.NewsStory INNER JOIN dbo.PubDate ON ((DATEPART(d, dbo.NewsStory.PubDate) = DATEPART(d, dbo.PubDate.DR_PubDate)) AND (DATEPART(mm, dbo.NewsStory.PubDate) = DATEPART(mm, dbo.PubDate.DR_PubDate)) AND (DATEPART(yyyy , dbo.NewsStory.PubDate) = DATEPART(yyyy, dbo.PubDate.DR_PubDate))) WHERE (dbo.NewsStory.Section = 'Sports') AND (dbo.NewsStory.Placement > 0)"
rsSport_cmd.Prepared = true
Set rsSport = rsSport_cmd.Execute
rsSport_numRows = 0
%>
<%
Dim rsOpinion
Dim rsOpinion_cmd
Dim rsOpinion_numRows
Set rsOpinion_cmd = Server.CreateObject ("ADODB.Command")
rsOpinion_cmd.ActiveConnection = MM_Record_Stories_STRING
rsOpinion_cmd.CommandText = "SELECT dbo.NewsStory.ID, dbo.NewsStory.PubDate, dbo.NewsStory.Headline, dbo.NewsStory.Subhead, dbo.NewsStory.byline1, dbo.NewsStory.byline2, dbo.NewsStory.lead, dbo.NewsStory.body, dbo.NewsStory.body2, dbo.NewsStory.body3, dbo.NewsStory.Cutline, dbo.NewsStory.PhotoCredit, dbo.NewsStory.photo1, dbo.NewsStory.photo2, dbo.NewsStory.Placement FROM dbo.NewsStory INNER JOIN dbo.PubDate ON ((DATEPART(d, dbo.NewsStory.PubDate) = DATEPART(d, dbo.PubDate.DR_PubDate)) AND (DATEPART(mm, dbo.NewsStory.PubDate) = DATEPART(mm, dbo.PubDate.DR_PubDate)) AND (DATEPART(yyyy , dbo.NewsStory.PubDate) = DATEPART(yyyy, dbo.PubDate.DR_PubDate))) WHERE (dbo.NewsStory.Section = 'Opinion') AND (dbo.NewsStory.Placement > 0)"
rsOpinion_cmd.Prepared = true
Set rsOpinion = rsOpinion_cmd.Execute
rsOpinion_numRows = 0
%>
<%
Dim rsPhoto
Dim rsPhoto_cmd
Dim rsPhoto_numRows
Set rsPhoto_cmd = Server.CreateObject ("ADODB.Command")
rsPhoto_cmd.ActiveConnection = MM_Record_Stories_STRING
rsPhoto_cmd.CommandText = "SELECT dbo.NewsStory.ID, dbo.NewsStory.PubDate, dbo.NewsStory.Body, dbo.NewsStory.Cutline, dbo.NewsStory.HomepagePic, dbo.NewsStory.PhotoCredit, dbo.NewsStory.photo1, dbo.NewsStory.photo2, dbo.NewsStory.Placement FROM dbo.NewsStory INNER JOIN dbo.PubDate ON ((DATEPART(d, dbo.NewsStory.PubDate) = DATEPART(d, dbo.PubDate.DR_PubDate)) AND (DATEPART(mm, dbo.NewsStory.PubDate) = DATEPART(mm, dbo.PubDate.DR_PubDate)) AND (DATEPART(yyyy , dbo.NewsStory.PubDate) = DATEPART(yyyy, dbo.PubDate.DR_PubDate))) WHERE (dbo.NewsStory.HomepagePic = 'Yes') "
rsPhoto_cmd.Prepared = true
Set rsPhoto = rsPhoto_cmd.Execute
rsPhoto_numRows = 0
%>
<%
Dim rsENT__MMColParam
rsENT__MMColParam = "Entertainment"
If (Request("MM_EmptyValue") <> "") Then
rsENT__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsENT
Dim rsENT_numRows
Set rsENT = Server.CreateObject("ADODB.Recordset")
rsENT.ActiveConnection = MM_Record_Stories_STRING
rsENT.Source = "SELECT * FROM dbo.NewsStory WHERE Section = '" + Replace(rsENT__MMColParam, "'", "''") + "' ORDER BY PubDate DESC"
rsENT.CursorType = 0
rsENT.CursorLocation = 2
rsENT.LockType = 1
rsENT.Open()
rsENT_numRows = 0
%>
<%
Dim rsCommunity__MMColParam
rsCommunity__MMColParam = "Community_Story"
If (Request("MM_EmptyValue") <> "") Then
rsCommunity__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsCommunity
Dim rsCommunity_numRows
Set rsCommunity = Server.CreateObject("ADODB.Recordset")
rsCommunity.ActiveConnection = MM_Record_Stories_STRING
rsCommunity.Source = "SELECT * FROM dbo.NewsStory WHERE Section = '" + Replace(rsCommunity__MMColParam, "'", "''") + "' ORDER BY PubDate DESC"
rsCommunity.CursorType = 0
rsCommunity.CursorLocation = 2
rsCommunity.LockType = 1
rsCommunity.Open()
rsCommunity_numRows = 0
%>
<%
Dim rsHealth__MMColParam
rsHealth__MMColParam = "Health"
If (Request("MM_EmptyValue") <> "") Then
rsHealth__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsHealth
Dim rsHealth_numRows
Set rsHealth = Server.CreateObject("ADODB.Recordset")
rsHealth.ActiveConnection = MM_Record_Stories_STRING
rsHealth.Source = "SELECT * FROM dbo.NewsStory WHERE Section = '" + Replace(rsHealth__MMColParam, "'", "''") + "' ORDER BY PubDate DESC"
rsHealth.CursorType = 0
rsHealth.CursorLocation = 2
rsHealth.LockType = 1
rsHealth.Open()
rsHealth_numRows = 0
%>
<%
Dim rsBusiness__MMColParam
rsBusiness__MMColParam = "Business"
If (Request("MM_EmptyValue") <> "") Then
rsBusiness__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsBusiness
Dim rsBusiness_numRows
Set rsBusiness = Server.CreateObject("ADODB.Recordset")
rsBusiness.ActiveConnection = MM_Record_Stories_STRING
rsBusiness.Source = "SELECT * FROM dbo.NewsStory WHERE Section = '" + Replace(rsBusiness__MMColParam, "'", "''") + "' ORDER BY PubDate DESC"
rsBusiness.CursorType = 0
rsBusiness.CursorLocation = 2
rsBusiness.LockType = 1
rsBusiness.Open()
rsBusiness_numRows = 0
%>
<%
Dim rsWeekend__MMColParam
rsWeekend__MMColParam = "Weekend"
If (Request("MM_EmptyValue") <> "") Then
rsWeekend__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsWeekend
Dim rsWeekend_cmd
Dim rsWeekend_numRows
Set rsWeekend_cmd = Server.CreateObject ("ADODB.Command")
rsWeekend_cmd.ActiveConnection = MM_Record_Stories_STRING
rsWeekend_cmd.CommandText = "SELECT * FROM dbo.NewsStory WHERE Section = ? AND PubDate <= getdate() AND EndDate >= getdate()"
rsWeekend_cmd.Prepared = true
rsWeekend_cmd.Parameters.Append rsWeekend_cmd.CreateParameter("param1", 200, 1, 255, rsWeekend__MMColParam) ' adVarChar
Set rsWeekend = rsWeekend_cmd.Execute
rsWeekend_numRows = 0
%>
<%
Dim rsBreaking
Dim rsBreaking_cmd
Dim rsBreaking_numRows
Set rsBreaking_cmd = Server.CreateObject ("ADODB.Command")
rsBreaking_cmd.ActiveConnection = MM_Record_Stories_STRING
rsBreaking_cmd.CommandText = "SELECT * FROM dbo.NewsStory WHERE (Section = 'Breaking') AND (PubDate >= getdate()-1) AND Placement >= 1 ORDER BY Placement ASC"
rsBreaking_cmd.Prepared = true
Set rsBreaking = rsBreaking_cmd.Execute
rsBreaking_numRows = 0
%>
<%
Dim rsLatest
Dim rsLatest_cmd
Dim rsLatest_numRows
Set rsLatest_cmd = Server.CreateObject ("ADODB.Command")
rsLatest_cmd.ActiveConnection = MM_Record_Stories_STRING
rsLatest_cmd.CommandText = "SELECT * FROM dbo.NewsStory WHERE (Section = 'Latest') AND (PubDate >= getdate()-1) AND Placement >= 1 ORDER BY Placement ASC"
rsLatest_cmd.Prepared = true
Set rsLatest = rsLatest_cmd.Execute
rsLatest_numRows = 0
%>
<%
Dim Repeat4__numRows
Dim Repeat4__index
Repeat4__numRows = -1
Repeat4__index = 0
rsTopStories_numRows = rsTopStories_numRows + Repeat4__numRows
%>
<%
Dim Repeat5__numRows
Dim Repeat5__index
Repeat5__numRows = -1
Repeat5__index = 0
rsRegion_numRows = rsRegion_numRows + Repeat5__numRows
%>
<%
Dim Repeat6__numRows
Dim Repeat6__index
Repeat6__numRows = -1
Repeat6__index = 0
rsSport_numRows = rsSport_numRows + Repeat6__numRows
%>
<%
Dim Repeat7__numRows
Dim Repeat7__index
Repeat7__numRows = 2
Repeat7__index = 0
rsCommunity_numRows = rsCommunity_numRows + Repeat7__numRows
%>
<%
Dim Repeat9__numRows
Dim Repeat9__index
Repeat9__numRows = -1
Repeat9__index = 0
rsLatest_numRows = rsLatest_numRows + Repeat9__numRows
%>
<%
Dim Repeat8__numRows
Dim Repeat8__index
Repeat8__numRows = -1
Repeat8__index = 0
rsBreaking_numRows = rsBreaking_numRows + Repeat8__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
%>
Cañon City Daily Record Newspaper, Cañon City, Colorado
News and Information from
Cañon City and the
Greater Royal Gorge Region
French aerialist Philippe Petit,
24, crosses a cable stretched between the World Trade Center towers
high above New York City on August 7, 1974. Police arrested Petit and
two assistants shortly after the walk. (AP Photo)
News and Information from Cañon City and the Greater Royal Gorge Region
