<%
'first string for the admin
'The second one for the include
xDb_Conn_Str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("announce.mdb") & ";"
xDb_Conn_Str2 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("announce\announce.mdb") & ";"
%>
<%
Dim rsAnnounce
Dim rsAnnounce_numRows
Set rsAnnounce = Server.CreateObject("ADODB.Recordset")
rsAnnounce.ActiveConnection = xDb_Conn_Str2
rsAnnounce.Source = "SELECT * FROM ANNOUNCEMENT WHERE DateDiff('d',Date(),START_DATE) <= 0 AND DateDiff('d',Date(),END_DATE) >= 0 ORDER BY START_DATE DESC"
rsAnnounce.CursorType = 0
rsAnnounce.CursorLocation = 2
rsAnnounce.LockType = 1
rsAnnounce.Open()
rsAnnounce_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rsAnnounce_numRows = rsAnnounce_numRows + Repeat1__numRows
%>
<%
rsAnnounce.Close()
Set rsAnnounce = Nothing
%>
