1199 and begintime < 2400 then
beginzone="pm"
else
if (begintime > 0 and begintime < 1200) or begintime=2400 then
beginzone="am"
end if
if begintime=0 then
beginzone=""
end if
end if
if endtime > 1199 and endtime < 2400 then
endzone="pm"
else
if (endtime > 0 and endtime < 1200) or endtime=2400 then
endzone="am"
end if
if endtime =0 then
endzone=""
end if
end if
if begintime > 1299 then
beginTemp=begintime-1200
else
if begintime > 0 and begintime < 1300 then
beginTemp=begintime
end if
if begintime = 0 then
beginTemp=""
end if
end if
if len(beginTemp) = 3 then
if mid(beginTemp,2,2) ="00" then
beginTemp=mid(beginTemp,1,1)
else
beginTemp=mid(beginTemp,1,1)&":"&mid(beginTemp,2,2)
end if
else
if len(beginTemp) = 4 then
if mid(beginTemp,3,2) ="00" then
beginTemp=mid(beginTemp,1,2)
else
beginTemp=mid(beginTemp,1,2)&":"&mid(beginTemp,3,2)
end if
end if
end if
if endtime > 1299 then
endTemp=endtime-1200
else
if endtime > 0 and endtime < 1300 then
endTemp=endtime
end if
if endtime = 0 then
endTemp=""
end if
end if
if len(endTemp) = 3 then
if mid(endTemp,2,2) ="00" then
endTemp=mid(endTemp,1,1)
else
endTemp=mid(endTemp,1,1)&":"&mid(endTemp,2,2)
end if
else
if len(endTemp) = 4 then
if mid(endTemp,3,2) ="00" then
endTemp=mid(endTemp,1,2)
else
endTemp=mid(endTemp,1,2)&":"&mid(endTemp,3,2)
end if
end if
end if
if begintime="0" or endtime="0" then
TEXT_Time_Convert="N/A"
else
if begintime = endtime then
TEXT_Time_Convert=beginTemp&beginzone
else
TEXT_Time_Convert=beginTemp&beginzone&"-"&endTemp&endzone
end if
end if
End Function
'****************************************************************************************************
Public Function RowColor(id)
on error resume next
if id = "FE" then
if RowColorFE =0 then
RowColorFE= RowColorFE + 1
else
if RowColorFE= 1 then
RowColorFE= RowColorFE- 1
end if
end if
if RowColorFE=0 then
RowColor="even"
else
RowColor="odd"
end if
end if
if id = "FO" then
if RowColorFO =0 then
RowColorFO = RowColorFO + 1
else
if RowColorFO = 1 then
RowColorFO = RowColorFO - 1
end if
end if
if RowColorFO =0 then
RowColor="even"
else
RowColor="odd"
end if
end if
End Function
'****************************************************************************************************
Public Function TopOfPageText(AText)
on error resume next
if TopOfPageTemp=0 then
TopOfPageText=""
TopOfPageTemp=1
else
TopOfPageText=AText
end if
End Function
'****************************************************************************************************
public function GroupByLookUp(nodelist)
on error resume next
dim CODE
dim node
CODE= ""
if IsEmpty(DESC_GArray) = False then
if nodelist is nothing then
GroupByLookUp= "ERROR"
else
set node = nodelist.nextNode()
CODE= node.selectSingleNode("COE_GROUPBY").text
GroupByLookUp= GroupByLookUp_1(CODE)
'GroupByLookUp= CODE
end if
else
GroupByLookUp= ""
end if
end function
'*****************************************************************************************************
Public Function GroupByLookUp_1(CODE)
Dim Temp 'As Long
Dim ReturnValue 'As String
For Temp = LBound(CODE_GArray) To UBound(CODE_GArray)
' See if a match was found.
If (CODE_GArray(Temp) = CODE) Then
ReturnValue=DESC_GArray(Temp)
End If 'end of 1st if
Next
GroupByLookUp_1 = Cstr(ReturnValue)
End Function
'****************************************************************************************************
public function GroupByLoad(nodelist)
on error resume next
dim CODE
dim DESC
dim node
CODE= ""
DESC=""
Dim Temp 'As Long
Dim Name 'As String
set node = nodelist.nextNode()
DESC=node.selectSingleNode("GROUPBY_DESC").text
CODE= node.selectSingleNode("GROUPBY_CODE").text
If IsEmpty(DESC_GArray) Then
' These arrays must remain the same size.
DESC_GArray= Array(0)
CODE_GArray= Array(0)
End If
Temp = UBound(DESC_GArray) + 1
' These arrays must remain the same size.
ReDim Preserve DESC_GArray(Temp)
ReDim Preserve CODE_GArray(Temp)
DESC_GArray(Temp) = DESC
CODE_GArray(Temp) = CODE
'GroupByLoad = "("&DESC& "-" & CODE&")"
GroupByLoad = ""
end function
'****************************************************************************************************
public function OrderBy1LookUp(nodelist)
on error resume next
dim CODE
dim node
CODE= ""
if IsEmpty(DESC_1Array) = False then
if nodelist is nothing then
OrderBy1LookUp= "ERROR"
else
set node = nodelist.nextNode()
CODE= node.selectSingleNode("COE_ORDERBY1").text
OrderBy1LookUp= OrderBy1LookUp_1(CODE)
'OrderBy1LookUp= CODE
end if
else
OrderBy1LookUp= ""
end if
end function
'*****************************************************************************************************
Public Function OrderBy1LookUp_1(CODE)
Dim Temp 'As Long
Dim ReturnValue 'As String
For Temp = LBound(CODE_1Array) To UBound(CODE_1Array)
' See if a match was found.
If (CODE_1Array(Temp) = CODE) Then
ReturnValue=DESC_1Array(Temp)
End If 'end of 1st if
Next
OrderBy1LookUp_1 = Cstr(ReturnValue)
End Function
'****************************************************************************************************
public function OrderBy1Load(nodelist)
on error resume next
dim CODE
dim DESC
dim node
CODE= ""
DESC=""
Dim Temp 'As Long
Dim Name 'As String
set node = nodelist.nextNode()
DESC=node.selectSingleNode("ORDERBY1_DESC").text
CODE= node.selectSingleNode("ORDERBY1_CODE").text
If IsEmpty(DESC_1Array) Then
' These arrays must remain the same size.
DESC_1Array= Array(0)
CODE_1Array= Array(0)
End If
Temp = UBound(DESC_1Array) + 1
' These arrays must remain the same size.
ReDim Preserve DESC_1Array(Temp)
ReDim Preserve CODE_1Array(Temp)
DESC_1Array(Temp) = DESC
CODE_1Array(Temp) = CODE
'OrderBy1Load = "("&DESC& "-" & CODE&")"
OrderBy1Load = ""
end function
'****************************************************************************************************
public function OrderBy2LookUp(nodelist)
on error resume next
dim CODE
dim node
CODE= ""
if IsEmpty(DESC_2Array) = False then
if nodelist is nothing then
OrderBy2LookUp= "ERROR"
else
set node = nodelist.nextNode()
CODE= node.selectSingleNode("COE_ORDERBY2").text
OrderBy2LookUp= OrderBy2LookUp_1(CODE)
'OrderBy2LookUp= CODE
end if
else
OrderBy2LookUp= ""
end if
end function
'*****************************************************************************************************
Public Function OrderBy2LookUp_1(CODE)
Dim Temp 'As Long
Dim ReturnValue 'As String
For Temp = LBound(CODE_2Array) To UBound(CODE_2Array)
' See if a match was found.
If (CODE_2Array(Temp) = CODE) Then
ReturnValue=DESC_2Array(Temp)
End If 'end of 1st if
Next
OrderBy2LookUp_1 = Cstr(ReturnValue)
End Function
'****************************************************************************************************
public function OrderBy2Load(nodelist)
on error resume next
dim CODE
dim DESC
dim node
CODE= ""
DESC=""
Dim Temp 'As Long
Dim Name 'As String
set node = nodelist.nextNode()
DESC=node.selectSingleNode("ORDERBY2_DESC").text
CODE= node.selectSingleNode("ORDERBY2_CODE").text
If IsEmpty(DESC_2Array) Then
' These arrays must remain the same size.
DESC_2Array= Array(0)
CODE_2Array= Array(0)
End If
Temp = UBound(DESC_2Array) + 1
' These arrays must remain the same size.
ReDim Preserve DESC_2Array(Temp)
ReDim Preserve CODE_2Array(Temp)
DESC_2Array(Temp) = DESC
CODE_2Array(Temp) = CODE
'OrderBy2Load = "("&DESC& "-" & CODE&")"
OrderBy2Load = ""
end function
'****************************************************************************************************
public function OrderBy3LookUp(nodelist)
on error resume next
dim CODE
dim node
CODE= ""
if IsEmpty(DESC_3Array) = False then
if nodelist is nothing then
OrderBy3LookUp= "ERROR"
else
set node = nodelist.nextNode()
CODE= node.selectSingleNode("COE_ORDERBY3").text
OrderBy3LookUp= OrderBy3LookUp_1(CODE)
'OrderBy3LookUp= CODE
end if
else
OrderBy3LookUp= ""
end if
end function
'*****************************************************************************************************
Public Function OrderBy3LookUp_1(CODE)
Dim Temp 'As Long
Dim ReturnValue 'As String
For Temp = LBound(CODE_3Array) To UBound(CODE_3Array)
' See if a match was found.
If (CODE_3Array(Temp) = CODE) Then
ReturnValue=DESC_3Array(Temp)
End If 'end of 1st if
Next
OrderBy3LookUp_1 = Cstr(ReturnValue)
End Function
'****************************************************************************************************
public function OrderBy3Load(nodelist)
on error resume next
dim CODE
dim DESC
dim node
CODE= ""
DESC=""
Dim Temp 'As Long
Dim Name 'As String
set node = nodelist.nextNode()
DESC=node.selectSingleNode("ORDERBY3_DESC").text
CODE= node.selectSingleNode("ORDERBY3_CODE").text
If IsEmpty(DESC_3Array) Then
' These arrays must remain the same size.
DESC_3Array= Array(0)
CODE_3Array= Array(0)
End If
Temp = UBound(DESC_3Array) + 1
' These arrays must remain the same size.
ReDim Preserve DESC_3Array(Temp)
ReDim Preserve CODE_3Array(Temp)
DESC_3Array(Temp) = DESC
CODE_3Array(Temp) = CODE
'OrderBy3Load = "("&DESC& "-" & CODE&")"
OrderBy3Load = ""
end function
'****************************************************************************************************
public function SpaceTypeLookUp(nodelist)
on error resume next
dim CODE
dim node
CODE= ""
if IsEmpty(DESC_SArray) = False then
if nodelist is nothing then
SpaceTypeLookUp= "ERROR"
else
set node = nodelist.nextNode()
CODE= node.selectSingleNode("EV200_ANCHOR_VENUE").text
SpaceTypeLookUp= SpaceTypeLookUp_1(CODE)
'SpaceTypeLookUp= CODE
end if
else
SpaceTypeLookUp= ""
end if
end function
'*****************************************************************************************************
Public Function SpaceTypeLookUp_1(CODE)
Dim Temp 'As Long
Dim ReturnValue 'As String
For Temp = LBound(CODE_SArray) To UBound(CODE_SArray)
' See if a match was found.
If (CODE_SArray(Temp) = CODE) Then
ReturnValue=DESC_SArray(Temp)
End If 'end of 1st if
Next
SpaceTypeLookUp_1 = Cstr(ReturnValue)
End Function
'****************************************************************************************************
public function SpaceTypeLoad(nodelist)
on error resume next
dim CODE
dim DESC
dim node
CODE=""
DESC=""
Dim Temp 'As Long
Dim Name 'As String
set node = nodelist.nextNode()
DESC=node.selectSingleNode("EV800_SPACE_DESC").text
CODE= node.selectSingleNode("EV800_SPACE_CODE").text
If IsEmpty(DESC_SArray) Then
' These arrays must remain the same size.
DESC_SArray= Array(0)
CODE_SArray= Array(0)
End If
Temp = UBound(DESC_SArray) + 1
' These arrays must remain the same size.
ReDim Preserve DESC_SArray(Temp)
ReDim Preserve CODE_SArray(Temp)
DESC_SArray(Temp) = DESC
CODE_SArray(Temp) = CODE
'SpaceTypeLoad = "("&DESC& "-" & CODE&")"
SpaceTypeLoad = ""
end function
'*************************************************************************************************
public function TTL_Bool_Spacer()
on error resume next
if not(TTL_Spacer_Temp = "True") then
TTL_Spacer_Temp="True"
TTL_Bool_Spacer="False"
else
TTL_Bool_Spacer="True"
end if
end function
'****************************************************************************************************
Public Function GroupByFirstSet(value)
G_First_GroupBy=value
GroupByFirstSet=""
End Function
'****************************************************************************************************
Public Function GroupByLastSet(value)
G_Last_GroupBy=value
GroupByLastSet=""
End Function
'****************************************************************************************************
'BuildWebParams -- Returns a list of URL parameters
'****************************************************************************************************
Public Function ReturnWebParams()
on error resume next
ReturnWebParams = gstrParams
End Function
'****************************************************************************************************
'BuildWebParams -- Returns a list of URL parameters
'****************************************************************************************************
Public Function BuildWebParams(astrDateID, astrCategoryID, astrClassID, astrTypeID, astrRankID, astrAccountID, astrSpaceTypeID, astrSpaceID, astrGroupBy, astrGroupByDir, astrOrderBy1, astrOrderBy1Dir, astrOrderBy2, astrOrderBy2Dir, astrOrderBy3, astrOrderBy3Dir)
on error resume next
Dim strReturn
strReturn = ""
if astrDateID = "" then
else
strReturn = strReturn & "&dateid=" & astrDateID
end if
if astrCategoryID= "" then
else
strReturn = strReturn & "&categoryid=" & astrCategoryID
end if
if astrClassID = "" then
else
strReturn = strReturn & "&classid=" & astrClassID
end if
if astrTypeID = "" then
else
strReturn = strReturn & "&typeid=" & astrTypeID
end if
if astrRankID = "" then
else
strReturn = strReturn & "&rankid=" & astrRankID
end if
if astrAccountID = "" then
else
strReturn = strReturn & "&accountid=" & astrAccountID
end if
if astrSpaceTypeID = "" then
else
strReturn = strReturn & "&spacetypeid=" & astrSpaceTypeID
end if
if astrSpaceID = "" then
else
strReturn = strReturn & "&spaceid=" & astrSpaceID
end if
if astrGroupBy = "" then
else
strReturn = strReturn & "&groupby=" & astrGroupBy
end if
if astrGroupByDir = "" then
else
strReturn = strReturn & "&groupbydir=" & astrGroupByDir
end if
if astrOrderBy1 = "" then
else
strReturn = strReturn & "&orderby1=" & astrOrderBy1
end if
if astrOrderBy1Dir = "" then
else
strReturn = strReturn & "&orderby1dir=" & astrOrderBy1Dir
end if
if astrOrderBy2 = "" then
else
strReturn = strReturn & "&orderby2=" & astrOrderBy2
end if
if astrOrderBy2Dir = "" then
else
strReturn = strReturn & "&orderby2dir=" & astrOrderBy2Dir
end if
if astrOrderBy3 = "" then
else
strReturn = strReturn & "&orderby3=" & astrOrderBy3
end if
if astrOrderBy3Dir = "" then
else
strReturn = strReturn & "&orderby3dir=" & astrOrderBy3Dir
end if
gstrParams = strReturn
BuildWebParams = ""
End Function
]]>