Hallo , habe an meiner Test Web Seite gearbeitet. Beim Experimentieren kam dann "then erwartet" . Home Seite wird nicht mehr angezeigt und es erscheint diese Meldung.
Was muss oder kann ich tun
1 Fehler, 0 Warnung(en).
Sichtbarkeiten werden angepasst
Seite "Verein"
Fertigstellung wird gestartet
Fertigstellung beendet.
Fehler (12.2.0.0) - Skript-Fehler:
---------------
'Then' erwartet
---------------
Zeile 168, Spalte 16.
---------------
Quelltext:
001: option explicit
002:
003: Dim c__
004: Set c__ = new ScriptExecutor
005: c__.ExecuteScript
006:
007: Class ScriptExecutor
(...Versteckte Zeilen...)
045:
046:
(...Versteckte Zeilen...)
084:
085:
086:
087: public sub ExecuteScript()
088:
089:
090: dim selectext : selectext = Context.Scope.Library.HtmlEncode(Context.Scope.CurrentArticle.Values.GetValue("selecttext"))
091: dim venuelabel : venuelabel = Context.Scope.Library.HtmlEncode(Context.Scope.CurrentArticle.Values.GetValue("venuelabel"))
092: dim genrelabel : genrelabel = Context.Scope.Library.HtmlEncode(Context.Scope.CurrentArticle.Values.GetValue("genrelabel"))
093:
094:
095: Context.Write "" & vbCrLf
096: Context.Write "<a id=""a1601""></a>" & vbCrLf
097: Context.Write "<div class=""zpColumnItem"">" & vbCrLf
098: Context.Write "" & vbTab & "<div class=""articlearea"""
099:
100: if not IsNothing(pageItem_) then
101:
102: Context.Write "" & vbCrLf
103: Context.Write "<!--{ZP-INLINE-EDITING-START} " & vbCrLf
104: Context.Write " data-type=""inline-editing""" & vbCrLf
105: Context.Write " data-context=""article""" & vbCrLf
106: Context.Write " data-area-name="""
107:
108: Context.Write grid_.AreaName
109:
110: Context.Write """ " & vbCrLf
111: Context.Write " data-item-id="""
112:
113: Context.Write pageItem_.ID
114:
115: Context.Write """" & vbCrLf
116: Context.Write " "
117:
118: if pageItem_.IsActive then
119:
120: Context.Write "data-item-state=""active"""
121:
122: else
123:
124: Context.Write "data-item-state=""inactive"""
125:
126: end if
127:
128: Context.Write "" & vbCrLf
129: Context.Write "{ZP-INLINE-EDITING-END}-->" & vbCrLf
130: Context.Write ""
131:
132: end if
133:
134: Context.Write ">" & vbCrLf
135: Context.Write "<div id=""ec1601"" class=""eventCalendar"" "
136:
137: if "300px" <> "" then
138:
139: Context.Write "style=""max-width: 300px;"" "
140:
141: end if
142:
143: Context.Write "data-hide_passed=""1"" data-showfilter=""1"" data-rowcolor=""#DBE2E8"" data-rowspace=""5px"" data-selall="""
144:
145: Context.Write selectext
146:
147: Context.Write """ data-venuelabel="""
148:
149: Context.Write venuelabel
150:
151: Context.Write """ data-genrelabel="""
152:
153: Context.Write genrelabel
154:
155: Context.Write """ data-filterbackgroundcolor=""#E7E7E7"">" & vbCrLf
156: Context.Write "" & vbCrLf
157: Context.Write ""
158:
159: if article_.HasName then
160:
161: Context.Write "<h2 style=""text-align:left;"">Termine und Veranstaltungen</h2>"
162:
163: end if
164:
165: Context.Write "" & vbCrLf
166: Context.Write ""
167:
168: if "<p style="text-align: center"> </p>" <> "" then
Weitere Infos#1194063493.
Beendet.
Danke