<%@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
