Untitled Document

<%@LANGUAGE="VBSCRIPT"%> <% Dim ArtistList__SchoolID ArtistList__SchoolID = "9" %> <% set ArtistList = Server.CreateObject("ADODB.Recordset") ArtistList.ActiveConnection = MM_gseart_live_STRING ArtistList.Source = "{call dbo.usp_ArtistsBySchool(" + Replace(ArtistList__SchoolID, "'", "''") + ")}" ArtistList.CursorType = 0 ArtistList.CursorLocation = 2 ArtistList.LockType = 3 ArtistList.Open() ArtistList_numRows = 0 %> <% Dim ExhList__ExhType ExhList__ExhType = "9" %> <% set ExhList = Server.CreateObject("ADODB.Recordset") ExhList.ActiveConnection = MM_gseart_live_STRING ExhList.Source = "{call dbo.usp_ExhibitionsByType(" + Replace(ExhList__ExhType, "'", "''") + ")}" ExhList.CursorType = 0 ExhList.CursorLocation = 2 ExhList.LockType = 3 ExhList.Open() ExhList_numRows = 0 dim aMonths(12) aMonths(1) = "January" aMonths(2) = "February" aMonths(3) = "March" aMonths(4) = "April" aMonths(5) = "May" aMonths(6) = "June" aMonths(7) = "July" aMonths(8) = "August" aMonths(9) = "September" aMonths(10) = "October" aMonths(11) = "November" aMonths(12) = "December" Function Date2Str(vDate) Date2Str = aMonths(Month(vDate)) & " " & Day(vDate) & ", " & Year(vDate) end function %> Untitled Document

Artists from the former Yugoslavia

<% ArtistList.Close() %> <% ExhList.Close() %>