| |
<%
thisYear = request("yr")
today = date()
If (thisYear = "") then
thisMonth = month(today)
thisDay = day(today)
thisYear = year(today)
thisDate = thisMonth & "/" & thisDay & "/" & thisYear
sql = "Select * from bdc_bbNews where siteCat = 'BBIO' AND ( startDate <= '" & thisDate & "' AND endDate >= '" & thisDate & "') ORDER by startDate desc"
pressStr = "News"
else
thisMonth = "01"
thisDay = "01"
thisYear = thisYear
thisDate = thisMonth & "/" & thisDay & "/" & thisYear
thisEndDate = "12/31/" & thisYear
sql = "Select * from bdc_bbNews where siteCat = 'BBIO' AND ( startDate between '" & thisDate & "' AND '" & thisEndDate & "') ORDER by startDate desc"
pressStr = thisYear
pressStr = pressStr & " News Archive"
end if
set RS = server.createobject("adodb.recordset")
RS.open SQL, cnn, 1, 4
If rs.eof then
response.write "There is no news posted at this time."
else
while not rs.eof
pDate = rs("startDate")
pM = monthName(month(pDate))
pD = day(pDate)
pY = year(pDate)
response.write ""
response.write pM & " " & pD & ", " & pY
response.write "
"
response.write ""
'response.write ""
response.write rs("title")
response.write " "
rs.movenext
wend
end if
rs.close
set rs = nothing
%>
|
