<%@ Language=VBScript EnableSessionState=False%> <% 'Copyright (c) 1999 - 2000 Microsoft Corporation. All rights reserved. Dim strPage Dim objRet Dim objItem Dim objElements Dim rc On Error Resume Next Set objLocMgr = Server.CreateObject("ServerAppliance.LocalizationManager") strSourceName = "sakitmsg.dll" if Err.number <> 0 then Response.Write "Error in localizing the web content " Response.End end if '----------------------------------------------------- 'START of localization content DIM L_ELEMENTMGRTEST_TEXT DIM L_SERVER_TEXT DIM L_CONTAINER_TEXT DIM L_ELEMENTCOUNT_TEXT DIM L_ELEMENTID_TEXT DIM L_TRIMMEDELEMENTID_TEXT DIM L_TEXT DIM L_CAPTIONRID_TEXT DIM L_DESCRIPTIONRID_TEXT DIM L_URL_TEXT DIM L_MERIT_TEXT DIM L_ELEMENTGRAPHIC_TEXT DIM L_OBJECTCLASS_TEXT DIM L_OBJECTKEY_TEXT DIM L_ISEMBEDDED_TEXT DIM L_NAME_TEXT DIM L_DEVICEID_TEXT DIM L_TYPE_TEXT L_ELEMENTMGRTEST_TEXT = objLocMgr.GetString(strSourceName, "&H40010053",varReplacementStrings) L_SERVER_TEXT = objLocMgr.GetString(strSourceName, "&H40010054",varReplacementStrings) L_CONTAINER_TEXT = objLocMgr.GetString(strSourceName, "&H40010055",varReplacementStrings) L_ELEMENTCOUNT_TEXT = objLocMgr.GetString(strSourceName, "&H40010056",varReplacementStrings) L_ELEMENTID_TEXT = objLocMgr.GetString(strSourceName, "&H40010057",varReplacementStrings) L_TRIMMEDELEMENTID_TEXT = objLocMgr.GetString(strSourceName, "&H40010058",varReplacementStrings) L_TEXT = objLocMgr.GetString(strSourceName, "&H40010059",varReplacementStrings) L_CAPTIONRID_TEXT = objLocMgr.GetString(strSourceName, "&H4001005A",varReplacementStrings) L_DESCRIPTIONRID_TEXT = objLocMgr.GetString(strSourceName, "&H4001005B",varReplacementStrings) L_URL_TEXT = objLocMgr.GetString(strSourceName, "&H4001005C",varReplacementStrings) L_MERIT_TEXT = objLocMgr.GetString(strSourceName, "&H4001005D",varReplacementStrings) L_ELEMENTGRAPHIC_TEXT = objLocMgr.GetString(strSourceName, "&H4001005E",varReplacementStrings) L_OBJECTCLASS_TEXT= objLocMgr.GetString(strSourceName, "&H4001005F",varReplacementStrings) L_OBJECTKEY_TEXT= objLocMgr.GetString(strSourceName, "&H40010060",varReplacementStrings) L_ISEMBEDDED_TEXT= objLocMgr.GetString(strSourceName, "&H40010061",varReplacementStrings) L_NAME_TEXT = objLocMgr.GetString(strSourceName, "&H40010062",varReplacementStrings) L_DEVICEID_TEXT = objLocMgr.GetString(strSourceName, "&H40010063",varReplacementStrings) L_TYPE_TEXT = objLocMgr.GetString(strSourceName, "&H40010064",varReplacementStrings) 'End of localization content '----------------------------------------------------- On Error Resume Next strPage = Request.Form("Page") %>

<% =L_ELEMENTMGRTEST_TEXT %>

<% =L_SERVER_TEXT %><% =GetServerName %>

<% =L_CONTAINER_TEXT %> 

---

<% Set objRet = Server.CreateObject("Elementmgr.ElementRetriever") 'response.write "Ret type: " & TypeName(objRet) & "
" Set objElements = objRet.GetElements(1, strPage) 'response.write "objElements type: " & TypeName(objElements) & "
" response.write L_ELEMENTCOUNT_TEXT & objElements.Count & "

" response.write "

" For Each objItem in objElements response.write "
1. " response.write L_ELEMENTID_TEXT & objItem.GetProperty("ElementID") & "
   " Dim strElementID strElementID = objItem.GetProperty("ElementID") objItem.GetProperty("ObjectClass") If Err.Number = 0 Then Response.Write L_TRIMMEDELEMENTID_TEXT & Left(strElementID, InStrRev(strElementID, "_")-1) & "
   " Else Err.Clear End If response.write L_CAPTIONRID_TEXT & objItem.GetProperty("CaptionRID") & "
   " response.write L_DESCRIPTIONRID_TEXT & objItem.GetProperty("DescriptionRID") & "
   " response.write L_URL_TEXT & objItem.GetProperty("URL") & "
   " response.write L_MERIT_TEXT & objItem.GetProperty("Merit") & "
   " response.write L_ELEMENTGRAPHIC_TEXT & objItem.GetProperty("ElementGraphic") & "
   " response.write L_OBJECTCLASS_TEXT & objItem.GetProperty("ObjectClass") & "
   " response.write L_OBJECTKEY_TEXT & objItem.GetProperty("ObjectKey") & "
   " response.write L_ISEMBEDDED_TEXT & objItem.GetProperty("IsEmbedded") & "
   " response.write L_NAME_TEXT & objItem.GetProperty("Name") & "
   " response.write L_DEVICEID_TEXT & objItem.GetProperty("DeviceID") & "
   " response.write L_TYPE_TEXT & objItem.GetProperty("Type") & "
   
   " Err.clear Next Set objElements = Nothing Set objRet = Nothing Set objItem = Nothing %>
<% '========================================= Function GetServerName() On Error Resume Next GetServerName = Request.ServerVariables("SERVER_NAME") End Function %>