Bei https://community.zeta-producer.com/www.hilari.ch kommt bei der Veröffentlichung nachfolgende Meldung:
Protokoll wurde aufgrund von Größenbeschränkungen automatisch geleert.
Weitere Infos#1005435312.
Beendet.
ZetaProducer.RuntimeBusinessLogic.Scripting.Engine.InterpreterException
-----------------
Skript-Fehler:
---------------
Das Objekt unterstützt diese Eigenschaft oder Methode nicht.: 'Context.Scope.CurrentArticle'
---------------
Zeile 710, Spalte 2.
---------------
Quelltext:
001: option explicit
002:
003: ExecuteScript
004:
(...Versteckte Zeilen...)
012:
013:
014:
015: public sub ExecuteScript()
016: Context.Write "" & vbCrLf
017: Context.Write "" & vbCrLf
018: Context.Write "" & vbCrLf
019: Context.Write "" & vbTab & "Hilarivereine - " & vbCrLf
020: Context.Write "" & vbTab & "" & vbCrLf
021: Context.Write "" & vbTab & "" & vbCrLf
022: Context.Write "" & vbTab & "" & vbCrLf
023: Context.Write "" & vbTab & "" & vbCrLf
024: Context.Write "" & vbTab & "" & vbCrLf
025: Context.Write "" & vbTab & "" & vbCrLf
026: Context.Write "" & vbTab & "" & vbCrLf
027: Context.Write "" & vbTab & "" & vbCrLf
028: Context.Write "" & vbTab & "" & vbCrLf
029: Context.Write "" & vbTab & "" & vbCrLf
030: Context.Write "" & vbTab & "" & vbCrLf
031: Context.Write "" & vbTab & "" & vbCrLf
032: Context.Write "" & vbTab & "" & vbCrLf
033: Context.Write "" & vbTab & "" & vbCrLf
034: Context.Write "" & vbTab & ""
035:
036: if LCase(Context.Scope.CurrentPage.GetInheritedAttribute("search_field_visible").Value = "true") then
037:
038: Context.Write ""
039:
040: end if
041:
042: Context.Write "" & vbCrLf
043: Context.Write "" & vbTab & ""
044:
045: if Context.Scope.CurrentWebProject.Settings.IsRssGenerationEnabled then
046:
047:
048: dim feeds : set feeds = Context.Scope.CurrentWebProject.RssManager.GetAllFeedInfosForProjectFolder( Context.Scope.CurrentPage.ProjectFolder, Context.Scope.CurrentPage ) : dim i : for i=0 to feeds.Count-1: dim info : set info = feeds.Item(i)
049:
050: Context.Write "051:
052: Context.Write info.RssFeedName
053:
054: Context.Write """ href="""
055:
056: Context.Write info.RssFeedUrl
057:
058: Context.Write """ />"
059:
060: next
061:
062:
063: end if
064:
065: Context.Write "" & vbCrLf
066: Context.Write "" & vbCrLf
067: Context.Write "" & vbCrLf
068: Context.Write "" & vbCrLf
071: Context.Write "" & vbCrLf
072: Context.Write "" & vbCrLf
081: Context.Write "" & vbCrLf
082: Context.Write "" & vbCrLf
083: Context.Write "" & vbTab & "
" & vbCrLf
084: Context.Write "" & vbTab & "
Hilarivereine
http://www.hilari.ch/index.html
© "
085:
086: Context.Write Year(Now)
087:
088: Context.Write " " & vbCrLf
089: Context.Write "" & vbTab & "
" & vbCrLf
090: Context.Write "" & vbTab & "" & vbTab & ""
091:
092: if Context.Scope.CurrentPage.GetInheritedAttribute("Banner").Value <> "" then
093:
---- ab hier habe ich die Meldung gelöscht! -----------------------------------------------------