<% objRS.close set objRS = nothing Dim iCount iCount = 0 Set objRS = Server.CreateObject("ADODB.Recordset") ' Define the SQL Statement Source = "SELECT * FROM News2" ' Open the Recordset objRS.Open Source, ConnectionString ' Display the Fields Returned Do While Not objRS.EOF AND icount < 5 iCount = iCount + 1 Response.Write "" %> " Response.Write "" objRS.MoveNext Loop ' DeAllocate the Object to Free Server Memory set objRS = nothing %> <% If iCount = 0 Then Response.Write "No News Items To Display. Please check back soon!" End If %>  

" & objRS("Title") & "	<% Response.Write objRS("DateLine") & "
" & "" & objRS("Teaser") %> ">Read More... <% Response.Write "

 

 

General Information Calendar <% 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 %>