("sacoremsg.dll", "40200BB8", "") End If L_NOSTATUS_MESSAGE = GetLocString("sacoremsg.dll", "40200BB9", "") %> <%=Server.HTMLEncode(L_PAGETITLE)%> <% Call SA_EmitAdditionalStyleSheetReferences("") %> <% Call ServeResources() %> <% '---------------------------------------------------------------------------- ' ' Function : ServeResources ' ' Synopsis : Serves the resources ' ' Arguments: None ' ' Returns : None ' '---------------------------------------------------------------------------- Function ServeResources Call ServeStandardHeaderBar(L_PAGETITLE, "") Response.Write("
") 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(""+vbCrLf) End If Response.Write("
  "+vbCrLf) Response.Write(EmptyMsg+vbCrLf) Response.Write("
"+vbCrLf) Response.Flush End Function %>