<%@ Language=VBSCRIPT %>
<%
Set objRS = Server.CreateObject("ADODB.Recordset")
' Define the SQL Statement
Source = "SELECT * FROM Yeartext"
' Open the Recordset
objRS.Open Source, ConnectionString
%>
|
<%
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") & "
Monday August 29th .............................................. Start of ClassesMonday September 5th .......................................... Closed for Labor DayTuesday October 25th - Monday October 31st ................ Costume WeekThursday November 24th ........................................ Closed for ThanksgivingThursday December 22nd - Tuesday January 3rd ............ Winter BreakWednesday January 4th ......................................... Return to ClassThursday May 24th ............................................... End of ClassesTuesday June 5th - Saturday July 14th ....................... Summer Classes |
