<%@ Language=VBSCRIPT %>
<%
Set objRS = Server.CreateObject("ADODB.Recordset")
' Define the SQL Statement
Source = "SELECT * FROM Yeartext"
' Open the Recordset
objRS.Open Source, ConnectionString
%>
<%=objRS("CalYear") %> Calendar
(General
Information 2011-2012)
|
<%
set objRS = nothing
Set objRS = Server.CreateObject("ADODB.Recordset")
' Define the SQL Statement
Source = "SELECT * FROM GenCal"
' Open the Recordset
objRS.Open Source, ConnectionString
' Display the Fields Returned
Do While Not objRS.EOF
Response.Write "" & objRS("DateLine") & " - " & objRS("ContentLine") & "
"
objRS.MoveNext
Loop
' DeAllocate the Object to Free Server Memory
set objRS = nothing
%>Thursday May 24th
............................................... End of
Classes
Tuesday June 4th - Saturday
July 13th ....................... Summer
Classes
|
 |