RedDot / Opentext Language variants for page / Sprachvarianten

VBS Script

Function getAvailableLanguageVariantsForPage(callingPageGuid)
dim XMLString
dim resXML
dim xmlDoc
dim xmlNodeList
dim i
XMLString = "<IODATA loginguid='" & session("LoginGuid") & "' sessionkey='" & session("SessionKey") & "'>" & _
"<PROJECT>" & _
"<LANGUAGEVARIANTS action='pageavailable' pageguid='"&callingPageGuid&"' />" & _
"</PROJECT>" & _
"</IODATA>"
resXML = objIO.ServerExecuteXml(XMLString, sError)
Set xmlDoc = server.CreateObject( "Msxml2.DOMDocument.4.0" )
xmlDoc.loadXML( resXML )
Set xmlNodeList = xmlDoc.getElementsByTagName( "LANGUAGEVARIANT" )
For i = 0 To( xmlNodeList.Length - 1 )
strAvailableInLanguageVariant = strAvailableInLanguageVariant & xmlNodeList.Item(i).getAttribute( "guid" )
' strAvailableInLanguageVariantName = xmlNodeList.Item(i).getAttribute( "language" )
Next
Set xmlDoc = Nothing
Set xmlNodeList = Nothing
End Function