<% 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