<% 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 tblcalendar ORDER by "& date & ";" Set rs = Conn.Execute(SQL) %>
       
 
Events & Announcements
Academic Calendar
Tuition & Fees
 


Academic Calendar

<%Do While Not rs.eof%> <% rs.MoveNext Loop %>
<%=rs("title")%> 

<%=rs("body")%>


 


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