<%@LANGUAGE="VBSCRIPT"%>
<%
Dim ExhList
Dim ExhList_cmd
Dim ExhList_numRows
Set ExhList_cmd = Server.CreateObject ("ADODB.Command")
ExhList_cmd.ActiveConnection = MM_gseart_live_STRING
ExhList_cmd.CommandText = "{call dbo.usp_ExhibitionCompleteListing}"
ExhList_cmd.Prepared = true
Set ExhList = ExhList_cmd.Execute
ExhList_numRows = 0
%>
<%
dim sCrLf
sCrLf = Chr(13) & Chr(10)
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
<% strOutput = "Complete Gallery Exhibition Listing
" & sCrLf %>
<% strOutput = strOutput & "" & sCrLf
ExhList.movefirst
do While not ExhList.EOF
sName = ""
sName = sName & "" & ExhList("ExhTitle") & "
"
if not IsNull(ExhList("ExhSubTitle1")) then sName = sName & " " & ExhList("ExhSubTitle1") & "
"
if not IsNull(ExhList("ExhSubTitle2")) then sName = sName & " " & ExhList("ExhSubTitle2") & "
"
if IsNull(ExhList("ExhDateText")) then
sName = sName & Date2Str(ExhList("ExhBeginDate"))
if Not IsNull(ExhList("ExhEndDate")) then
sName = sName & " - " & Date2Str(ExhList("ExhEndDate"))
end if
else
sName = sName & ExhList("ExhDateText")
end if
sName = sName & ", " & ExhList("ExhLocShort") & "
"
strOutput = strOutput & "" & sName
if Not IsNull(ExhList("ExhDescription")) then
strOutput = strOutput & ExhList("ExhDescription") & "
"
end if
strOutput = strOutput & " | " & sCrLf
ExhList.MoveNext
loop
response.write(strOutput & " ")
%>
|
<%
ExhList.Close()
Set ExhList = Nothing
%>