")
Call ServeElementBlock(Request.QueryString("ResContainer"), L_NOSTATUS_MESSAGE, True, False, False)
Response.Write("
")
End Function
'----------------------------------------------------------------------------
'
' Function : ServeElementBlock
'
' Synopsis : Serves elements belonging to the same container
'
' Arguments: Container(IN) - container whose elements need to be served
' EmptyMsg(IN) - Msg to display if no elements are found
' Icons(IN) - Should icons be displayed with text
' Links(IN) - Should text be displayed as hyperlink
' NewWindow(IN) - Should this be displayed in a separate browser
' window or not
'
' Returns : None
' this is broken
'----------------------------------------------------------------------------
Function ServeElementBlock(Container, EmptyMsg, Icons, Links, NewWindow)
on error resume next
Dim objElements
Dim objItem
Dim arrTitle()
Dim arrURL()
Dim arrHelpText()
Dim arrIconPath()
Dim blnWroteElement
Dim blnEnabled
Dim i
Set objElements = GetElements(Container)
ReDim arrTitle(objElements.Count)
ReDim arrURL(objElements.Count)
ReDim arrHelpText(objElements.Count)
ReDim arrIconPath(objElements.Count)
i = 0
blnWroteElement = False
Response.Write(""+vbCrLf)
Response.Flush
For Each objItem in objElements
Err.Clear
'Call SA_TraceOut(SA_GetScriptFileName(), "Found resource: " + objItem.GetProperty("ElementID"))
arrIconPath(i) = m_VirtualRoot + objItem.GetProperty("ElementGraphic")
Response.Write(""+vbCrLf)
Dim sResourceURL
sResourceURL = objItem.GetProperty("URL")
If ( Len(Trim(sResourceURL)) > 0 ) Then
'
' Execute the embedded HTML page
'
'Call SA_TraceOut(SA_GetScriptFileName(), "Executing Embedded URL: (" + m_VirtualRoot + sResourceURL + ")")
Server.Execute(m_VirtualRoot + sResourceURL)
blnWroteElement = True
End If
Response.Write("
"+vbCrLf)
i = i + 1
Next
Set objElements = Nothing
Set objItem = Nothing
If Not blnWroteElement Then
Response.Write(""+vbCrLf)
Response.Write("| | "+vbCrLf)
Response.Write(" | "+vbCrLf)
Response.Write(""+vbCrLf)
Response.Write(EmptyMsg+vbCrLf)
Response.Write(" | "+vbCrLf)
Response.Write("
"+vbCrLf)
End If
Response.Write("
"+vbCrLf)
Response.Flush
End Function
%>