<% Dim Conn Dim rs Dim dbPath dbPath = Server.MapPath("database/mydata.mdb") Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath & ";" SQL = "SELECT * FROM tblwhatsnew ORDER by "& date & ";" Set rs = Conn.Execute(SQL) %>
       
 
Events & Announcements
Academic Calendar
Tuition & Fees
  <%Do While Not rs.eof%> <% rs.MoveNext Loop %>

Events and Announcements
 <%=rs("title")%>     Date Posted: <%=rs("date")%>  

<%=rs("body")%>
Posted by: <%=rs("author")%>


 


  
Copyright © 2005 Tanchuling College     Developed by: Urico Dionet A. Mondelo Jr.            Developed by: uricodotcom   
<% rs.Close Set rs = Nothing Conn.Close Set Conn = Nothing %>