News & Events
= to_date(‘” & currentDate & “‘,’MM/DD/YYYY’)) AND WRBNEVM_CATEGORY = ‘Headlines’ ORDER BY WRBNEVM_ACTIVITY_DATE DESC, WRBNEVM_START_DATE DESC”
strHeadlineImage = “Select to_date(WRBNEVM_START_DATE), to_date(WRBNEVM_END_DATE), WRBNEVM_TITLE, WRBNEVM_CATEGORY, WRBNEVM_URL1, WRBNEVM_ID FROM WRBNEVM WHERE WRBNEVM_CATEGORY = ‘Headline Image’ ORDER BY WRBNEVM_ACTIVITY_DATE DESC, WRBNEVM_START_DATE DESC”
strHeard = “Select to_date(WRBNEVM_START_DATE), to_date(WRBNEVM_END_DATE), WRBNEVM_TITLE, WRBNEVM_CATEGORY, WRBNEVM_COPY, WRBNEVM_ID FROM WRBNEVM WHERE WRBNEVM_CATEGORY = ‘Heard this Week’ ORDER BY WRBNEVM_ACTIVITY_DATE DESC, WRBNEVM_START_DATE DESC”
strSeen = “Select to_date(WRBNEVM_START_DATE), to_date(WRBNEVM_END_DATE), WRBNEVM_TITLE, WRBNEVM_CATEGORY, WRBNEVM_URL1, WRBNEVM_ID FROM WRBNEVM WHERE WRBNEVM_CATEGORY = ‘Seen this Week’ ORDER BY WRBNEVM_ACTIVITY_DATE DESC, WRBNEVM_START_DATE DESC”
‘ Setup a RecordSet to store the results from our SQL Query.
Set rsArticle1 = Server.CreateObject(“ADODB.Recordset”)
rsArticle1.Open strArticle1, objConn
Set rsArticle2 = Server.CreateObject(“ADODB.Recordset”)
rsArticle2.Open strArticle2, objConn
Set rsHeadlines= Server.CreateObject(“ADODB.Recordset”)
rsHeadlines.Open strHeadlines, objConn
Set rsHeadlineImage= Server.CreateObject(“ADODB.Recordset”)
rsHeadlineImage.Open strHeadlineImage, objConn
Set rsHeard= Server.CreateObject(“ADODB.Recordset”)
rsHeard.Open strHeard, objConn
Set rsSeen= Server.CreateObject(“ADODB.Recordset”)
rsSeen.Open strSeen, objConn
%>
]]>
%> "<%=rsArticle1(8)%>")
“)%>
%> "<%=rsHeadlineImage(2)%>")
“)
do while rsHeadLines.EOF = false AND counter ” & rsHeadLines(2) & ““)
counter = counter + 1
rsHeadLines.moveNext
loop
response.write(“
- “)
%>
%> "<%=rsArticle2(8)%>")
“)%> %> "<%=rsSeen(2)%>")