<%
todaysDate = Date
set cn= server.CreateObject("ADODB.Connection")
set rs= server.CreateObject("ADODB.Recordset")
cn.Open Application("RCTA_ConnectionString")
strDate = right("0" & month(todaysdate),2) & right("0" & day(todaysdate),2)
cmdtemp="select * FROM history where monthday='" & strDate & "'"
rs.Open cmdtemp, cn, adOpenstatic
while Not rs.EOF
%>
|
TODAY IN HISTORY
|
<%= ucase(trim(MonthName(month(todaysdate), False)))%> <% = day(todaysdate)%>, <% = rs("year")%>:
<% = trim(ucase(rs("headline")))%>
|
<%
rs.MoveNext
Wend
set rs=nothing
cn.close
set cn=nothing
%>
|
NEWS
|
|
|
|
|