Link Gallery Exhibits:

<% sql="Delete * From LinkGalleryTable Where EndDate<#" & Date & "#" objConnection.execute(sql) sql="Select * From LinkGalleryTable order by StartDate" Call objRecordSet.Open( sql, objConnection, adOpenStatic, adLockReadOnly, adCmdText) if not objRecordSet.eof then dim strMonth(13), strDay(7) strMonth(1) = "January" strMonth(2) = "February" strMonth(3) = "March" strMonth(4) = "April" strMonth(5) = "May" strMonth(6) = "June" strMonth(7) = "July" strMonth(8) = "August" strMonth(9) = "September" strMonth(10) = "October" strMonth(11) = "November" strMonth(12) = "December" do while not objRecordSet.eof dim objStartDate, objEndDate objStartDate=objRecordSet.Fields("StartDate").value objEndDate=objRecordSet.Fields("EndDate").value %>

<% =objRecordSet.Fields("Title").value%>
<% =strMonth(Month(objStartDate))%> <% =Day(objStartDate)%> – <% =strMonth(Month(objEndDate))%> <% =Day(objEndDate)%>
<% =objRecordSet.Fields("Description")%>

<% objRecordSet.MoveNext loop else %>There are no Link Gallery exhibits currently listed. Watch for updates.<% end if objRecordSet.Close objConnection.Close%>

CLOSE WINDOW