Hallo,
heute morgen habe ich versucht mein Projekt (gestern lief noch alles Einwand frei!), an dem ich schon lange arbeite zu öffnen, jetzt bekomme ich die folgende Fehlermeldung (Ausschnitt):
ZetaProducer.RuntimeBusinessLogic.Scripting.Engine.InterpreterException
-----------------
Skript-Fehler:
---------------
Das Album 'oid://assetcategory/45' wurde nicht gefunden. Bitte vergewissern Sie sich, dass es nicht gelöscht wurde.
---------------
Zeile 32, Spalte 21.
---------------
Quelltext:
001: option explicit
002:
003: ExecuteScript
004:
(...Versteckte Zeilen...)
021:
022:
023:
024: public sub ExecuteScript()
025: Context.Write "<a id=""a1304""></a>" & vbCrLf
026: Context.Write ""
027:
028:
029: dim albumID : albumID = Context.Scope.CurrentArticle.Values.GetValue("Album")
030: dim thumbnailWidth : thumbnailWidth = Context.Scope.CurrentArticle.Values.GetValue("width")
031: dim thumbnailHeight : thumbnailHeight = Context.Scope.CurrentArticle.Values.GetValue("height")
032: dim assetCategory : set assetCategory = Context.Scope.CurrentWebProject.GetAssetCategoryByID( albumID )
033: dim images : set images = assetCategory.Images
034: dim lang
035: if "de" = "en" then
036: lang = "en"
037: else
038: lang = "de"
039: end if
040:
041: Context.Scope.Library.Log images.Count & " images..."
042: Context.Scope.Library.CheckAsyncStopProcessing
043:
044:
045: Context.Write "" & vbCrLf
046: Context.Write "<div class=""articlearea""><!--{ZP-INLINE-EDITING-START}" & vbCrLf
047: Context.Write "" & vbCrLf
048: Context.Write "" & vbTab & ""
049:
050: if Context.Scope.HasPageItem then
051:
052: Context.Write "" & vbCrLf
053: Context.Write "" & vbCrLf
054: Context.Write "" & vbTab & "" & vbTab & ""
055:
056:
057: dim pitems6c16ba2d2b264ab2bcf70074330798ac
058: set pitems6c16ba2d2b264ab2bcf70074330798ac = Context.Scope.CurrentPage.ScriptingGetPageItems( Context.Scope.Library.VersioningVersion )
059: dim pmin6c16ba2d2b264ab2bcf70074330798ac
060: pmin6c16ba2d2b264ab2bcf70074330798ac = 100
061: dim p6c16ba2d2b264ab2bcf70074330798ac
062: for p6c16ba2d2b264ab2bcf70074330798ac=0 to pitems6c16ba2d2b264ab2bcf70074330798ac.Count-1
063: dim pitem6c16ba2d2b264ab2bcf70074330798ac
064: set pitem6c16ba2d2b264ab2bcf70074330798ac = pitems6c16ba2d2b264ab2bcf70074330798ac(p6c16ba2d2b264ab2bcf70074330798ac)
065: if pitem6c16ba2d2b264ab2bcf70074330798ac.IsActive and pitem6c16ba2d2b264ab2bcf70074330798ac.AreaName = "1 - Standard" then
066: if pitem6c16ba2d2b264ab2bcf70074330798ac.OrderPosition < pmin6c16ba2d2b264ab2bcf70074330798ac then pmin6c16ba2d2b264ab2bcf70074330798ac = pitem6c16ba2d2b264ab2bcf70074330798ac.OrderPosition
067: end if
068: next
069:
070:
071: Context.Write "" & vbCrLf
072: Context.Write "" & vbTab & "" & vbCrLf
073: Context.Write "" & vbTab & "" & vbTab & ""
....
Was kann ich machen?
Viele Grüße
Thomas Kuhn