<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% MM_newsmanager_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/newsdata.mdb") MM_newsmanager_STRING = replace(MM_newsmanager_STRING,"\data","\newsrelease\data") Set nr = Server.CreateObject("ADODB.Recordset") nr.ActiveConnection = MM_newsmanager_STRING strSQL = "SELECT Top 5 * FROM News_Releases ORDER by intReleaseID DESC" nr.Source = strSQL nr.CursorType = 0 nr.CursorLocation = 2 nr.LockType = 1 nr.Open() %> Louisiana Alliance for Dance
LAD stands for the Louisiana Alliance for Dance, a non-profit professional service organization for dance in Louisiana.
<% dim intReleaseID, iMonth, iYear, link %> <% do while not nr.eof %> <% intReleaseID = nr("intReleaseID") %> <% iMonth = month(cdate(nr("dtDate"))) %> <% iYear = year(cdate(nr("dtDate"))) %> <% link = "news.asp?intReleaseID=" & intReleaseID & "&month=" & iMonth & "&year=" & iYear%>

• <%=nr("vcTitle") %> <% nr.MoveNext %> <% loop %> <% link = "news.asp"%>
View all ...

 
Signup for Newsletter
Email:
 


• Benefits
• Current Members
• Join LAD