"Riesen"-Fehlermeldung

Hallo Forum, kann jemand was mit dieser Fehlermeldung in knallrot anfangen. Ich bekomm einfach diese Site nicht erstellt und veröffentlicht.
ich mach 2 Fehlerblöcke hier da das forum sagt: is zu lang

Fehler (10.7.1.0) - Skript-Fehler:
---------------
GUI-Abstraktions-Dienste wurden nicht zugewiesen.
---------------
Zeile 117, Spalte 1.
---------------
Quelltext:
001: option explicit
002:
003: ExecuteScript
004:
(...Versteckte Zeilen...)
012:
013:
014:
015: public sub ExecuteScript()
016: Context.Write "<!--{ZP-INLINE-EDITING-START}" & vbCrLf
017: Context.Write "" & vbTab & "<div class=""inline-editing"" ondblclick=""location.href='app:InlineEditing?Cmd=EditPageItem&ID="
018:
019: Context.Write Context.Scope.CurrentArticle.ID
020:
021: Context.Write "'"">" & vbCrLf
022: Context.Write "" & vbTab & "" & vbTab & "<div class=""inline-editing-menu-dummy""></div>" & vbTab & "" & vbCrLf
023: Context.Write "" & vbTab & "" & vbTab & "<div class=""inline-editing-menu"">" & vbCrLf
024: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<a class=""inline-editing-edit"" href=""app:InlineEditing?Cmd=EditPageItem&ID="
025:
026: Context.Write Context.Scope.CurrentArticle.ID
027:
028: Context.Write """ title=""Bearbeiten"">Bearbeiten</a>" & vbCrLf
029: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<a class=""inline-editing-new"" href=""app:InlineEditing?Cmd=AddPageItem&AreaName="
030:
031: Context.Write Context.Scope.CurrentGrid.AreaName
032:
033: Context.Write "&ID="
034:
035: Context.Write Context.Scope.CurrentArticle.ID
036:
037: Context.Write """ title=""Neuer Artikel einfügen"">Neuer Artikel einfügen</a>" & vbCrLf
038: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<a class=""inline-editing-delete"" href=""app:InlineEditing?Cmd=DeletePageItem&ID="
039:
040: Context.Write Context.Scope.CurrentArticle.ID
041:
042: Context.Write """ title=""Löschen"">Löschen</a>" & vbCrLf
043: Context.Write "" & vbTab & "" & vbTab & "</div> " & vbCrLf
044: Context.Write "{ZP-INLINE-EDITING-END}-->"
045:
046:
047: dim article
048: set article = Context.Scope.CurrentPageItem
049: dim items
050: set items = Context.Scope.CurrentPage.ScriptingGetPageItems( Context.Scope.Library.VersioningVersion )
051:
052: dim hassame
053: hassame = false
054:
055: dim i
056: for i=0 to items.Count-1
057: dim item
058: set item = items(i)
059:
060: if item.IsActive and (item.StyleName = "Bilderalbum" or item.StyleName = "Einzelnes Bild") then
061: if item.ID = article.ID and not hassame then
062:
063:
064: Context.Write "" & vbCrLf
065: Context.Write "" & vbCrLf
066: Context.Write ""
067:
068: if IsNothing(Context.Scope.CurrentTemplate.TemplateProject.TextTemplateManager.GetTextTemplate("ThickboxMod")) then
069:
070: Context.Write "" & vbCrLf
071: Context.Write "<script type=""text/javascript"" src=""../_media/../media/Scripting/ThickBox/jquery.js""></script>" & vbCrLf
072: Context.Write "<script type=""text/javascript"" src=""../_media/../media/Scripting/ThickBox/thickbox_de.js""></script>" & vbCrLf
073: Context.Write ""
074:
075: else
076:
077: Context.Write "" & vbCrLf
078: Context.Write "<script type=""text/javascript"" src=""../_media/../media/Scripting/ThickBox/thickbox_mod_de.js""></script>" & vbCrLf
079: Context.Write ""
080:
081: end if
082:
083: Context.Write "" & vbCrLf
084: Context.Write "" & vbCrLf
085: Context.Write "<script type=""text/javascript"">" & vbCrLf
086: Context.Write "document.getElementsByTagName(""body"")[0].style.height = ""100%"";" & vbCrLf
087: Context.Write "document.getElementsByTagName(""html"")[0].style.height = ""100%"";" & vbCrLf
088: Context.Write "document.getElementsByTagName(""body"")[0].style.minHeight = ""100%"";" & vbCrLf
089: Context.Write "document.getElementsByTagName(""html"")[0].style.minHeight = ""100%"";" & vbCrLf
090: Context.Write "</script>" & vbCrLf
091: Context.Write ""
092:
093: end if
094: hassame = true
095: end if
096: next
097:
098:
099: Context.Write "" & vbCrLf
100: Context.Write "<a name=""a1057""></a>" & vbCrLf
101: Context.Write ""
102:
103:
104: dim albumID : albumID = Context.Scope.CurrentArticle.Values.GetValue("Album")
105: dim thumbnailWidth : thumbnailWidth = Context.Scope.CurrentArticle.Values.GetValue("Breite der Vorschaubilder")
106: dim thumbnailHeight : thumbnailHeight = CInt((thumbnailWidth*3)/4)
107: dim imagesPerRow : imagesPerRow = Context.Scope.CurrentArticle.Values.GetValue("Anzahl Vorschaubilder pro Zeile")
108: dim assetCategory : set assetCategory = Context.Scope.CurrentWebProject.GetAssetCategoryByID( albumID )
109: dim images : set images = assetCategory.Images
110: dim rowIndex : dim colIndex : dim index
111: dim rowCount : rowCount = images.Count \ imagesPerRow
112: if images.Count mod imagesPerRow > 0 then
113: rowCount = rowCount + 1
114: end if
115:
116: Context.Scope.Library.Log images.Count & " images..."
117: Context.Scope.Library.CheckAsyncStopProcessing
118:
119: ' Must use a prefix to allow multiple instances of the JavaScript on the page.
120: dim prefix
121: prefix = "prefix_1057_"
122:
123:
124: Context.Write "" & vbCrLf
125: Context.Write "<a name="""
126:
127: Context.Write prefix
128:
129: Context.Write "thumbnails""></a>" & vbCrLf
130: Context.Write "<div class=""articlearea"">" & vbCrLf
131: Context.Write ""
132:
133: if Context.Scope.CurrentArticle.Name <> "" then
134:
135: Context.Write "<h1>"
136:
137: Context.Write Context.Scope.CurrentArticle.Name
138:
139: Context.Write "</h1>"
140:
141: end if
142:
143: Context.Write "" & vbCrLf
144: Context.Write "<script type=""text/javascript"">" & vbCrLf
145: Context.Write "var "
146:
147: Context.Write prefix
148:
149: Context.Write "currentIndex = 0;" & vbCrLf
150: Context.Write "" & vbCrLf
151: Context.Write "var "
152:
153: Context.Write prefix
154:
155: Context.Write "g = new Array();" & vbCrLf
156: Context.Write "var "
157:
158: Context.Write prefix
159:
160: Context.Write "t = new Array();" & vbCrLf
161: Context.Write "" & vbCrLf
162: Context.Write ""
163:
164:
165: for index=0 to images.Count-1
166:
167: dim image
168: set image = images.Item(index)
169:
170: Context.Scope.Library.CheckAsyncStopProcessing
171:
172:
173: Context.Write "" & vbCrLf
174: Context.Write " "
175:
176: Context.Write prefix
177:
178: Context.Write "g["
179:
180: Context.Write index
181:
182: Context.Write "] = """
183:
184: Context.Write image.VirtualPathRelative
185:
186: Context.Write """; " & vbCrLf
187: Context.Write " "
188:
189: Context.Write prefix
190:
191: Context.Write "t["
192:
193: Context.Write index
194:
195: Context.Write "] = """
196:
197: Context.Write image.Name
198:
199: Context.Write """;" & vbCrLf
200: Context.Write ""
201:

202: next
203:
204: Context.Write "" & vbCrLf
205: Context.Write "" & vbCrLf
206: Context.Write "function "
207:
208: Context.Write prefix
209:
210: Context.Write "setimage( index )" & vbCrLf
211: Context.Write "{" & vbCrLf
212: Context.Write " var img = new Image();" & vbCrLf
213: Context.Write " img.src = "
214:
215: Context.Write prefix
216:
217: Context.Write "g[index];" & vbCrLf
218: Context.Write " window.document.images["""
219:
220: Context.Write prefix
221:
222: Context.Write "pic""].src = img.src;" & vbCrLf
223: Context.Write " document.getElementById("""
224:
225: Context.Write prefix
226:
227: Context.Write "desc"").innerHTML = "
228:
229: Context.Write prefix
230:
231: Context.Write "t[index];" & vbCrLf
232: Context.Write " "
233:
234: Context.Write prefix
235:
236: Context.Write "currentIndex = index;" & vbCrLf
237: Context.Write "}" & vbCrLf
238: Context.Write "</script>" & vbCrLf
239: Context.Write "<table class=""zpSO-PictureGallery"" cellpadding=""0"" cellspacing=""9"" border=""0""" & vbCrLf
240: Context.Write "" & vbTab & " "
241:
242: if Context.Scope.CurrentArticle.Name<>"" then
243:
244: Context.Write "" & vbCrLf
245: Context.Write "" & vbTab & " summary="""
246:
247: Context.Write Context.Scope.Library.HtmlEncode(Context.Scope.CurrentArticle.Name)
248:
249: Context.Write """" & vbCrLf
250: Context.Write "" & vbTab & " "
251:
252: else
253:
254: Context.Write "" & vbCrLf
255: Context.Write "" & vbTab & " summary=""Image album""" & vbCrLf
256: Context.Write "" & vbTab & " "
257:
258: end if
259:
260: Context.Write "" & vbCrLf
261: Context.Write "" & vbTab & " >" & vbCrLf
262: Context.Write ""
263:
264:
265: ' -- Build the thumbnails grid.
266: index = 0
267: for rowIndex = 0 to rowCount-1
268:
269:
270: Context.Write "" & vbCrLf
271: Context.Write "<tr>" & vbCrLf
272: Context.Write " "
273:
274:
275: for colIndex = 0 to imagesPerRow-1
276:
277:
278: Context.Write "" & vbCrLf
279: Context.Write " "
280:
281:
282: if index<=images.Count-1 then
283: set image = images.Item(index)
284:
285: if image.CheckCreateThumbnail( thumbnailWidth ) then
286: Context.Scope.Library.Log "Erstelle Vorschaubild " & image.Name
287: else
288: Context.Scope.Library.CheckAsyncStopProcessing
289: end if
290:
291:
292: Context.Write "" & vbCrLf
293: Context.Write " <td class=""zpSO-PictureGallery-ThickBox-td1"" style=""text-align:center;vertical-align:top"">" & vbCrLf
294: Context.Write " " & vbTab & "<a href="""
295:
296: Context.Write image.VirtualPathRelative
297:
298: Context.Write """ title="""
299:
300: Context.Write image.Description
301:
302: Context.Write """ class=""thickbox"" rel=""gallery"
303:
304: Context.Write article.ID
305:
306: Context.Write """>" & vbCrLf
307: Context.Write " " & vbTab & "" & vbTab & "<span style=""display:block;margin:0;padding:0;width:"
308:
309: Context.Write thumbnailWidth
310:
311: Context.Write "px;height:"
312:
313: Context.Write thumbnailHeight
314:
315: Context.Write "px;overflow:hidden;cursor:pointer"">" & vbCrLf
316: Context.Write " " & vbTab & "" & vbTab & "" & vbTab & "<img src="""
317:
318: Context.Write image.GetThumbnailVirtualPathRelative( thumbnailWidth )
319:
320: Context.Write """ border=""0"" alt="""" />" & vbCrLf
321: Context.Write " " & vbTab & "" & vbTab & "</span>" & vbCrLf
322: Context.Write " " & vbTab & "</a>" & vbCrLf
323: Context.Write " "
324:
325: if Context.Scope.CurrentArticle.Values.GetValue("Bildname anzeigen") = 1 OR Context.Scope.CurrentArticle.Values.GetValue("Bilder nummerieren") = 1 OR Context.Scope.CurrentArticle.Values.GetValue("Bildbeschreibung anzeigen") = 1 then
326:
327: Context.Write "" & vbCrLf
328: Context.Write " " & vbTab & "<span class=""bildunterschrift"">" & vbCrLf
329: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
330:
331: if Context.Scope.CurrentArticle.Values.GetValue("Bilder nummerieren") = 1 then
332:
333: Context.Write "<span class=""zpSO-PictureGallery-number"">"
334:
335: Context.Write index+1
336:
337: Context.Write "</span>"
338:
339: end if
340:
341: Context.Write "" & vbCrLf
342: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
343:
344: if Context.Scope.CurrentArticle.Values.GetValue("Bildname anzeigen") = 1 then
345:
346: Context.Write "<span class=""zpSO-PictureGallery-name"">"
347:
348: Context.Write image.Name
349:
350: Context.Write "</span>"
351:
352: end if
353:
354: Context.Write "" & vbCrLf
355: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
356:
357: if Context.Scope.CurrentArticle.Values.GetValue("Bildbeschreibung anzeigen") = 1 and image.Description<>"" then
358:
359: Context.Write "" & vbCrLf
360: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
361:
362: if Context.Scope.CurrentArticle.Values.GetValue("Bildname anzeigen") = 1 then
363:
364: Context.Write "<br />"
365:
366: end if
367:
368: Context.Write "<span class=""zpSO-PictureGallery-desc"">"
369:
370: Context.Write image.Description
371:
372: Context.Write "</span>" & vbCrLf
373: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
374:
375: end if
376:
377: Context.Write "" & vbCrLf
378: Context.Write " " & vbTab & "</span>" & vbCrLf
379: Context.Write " "
380:
381: end if
382:
383: Context.Write "" & vbCrLf
384: Context.Write " </td>" & vbCrLf
385: Context.Write " "
386:
387: else
388:
389: Context.Write "" & vbCrLf
390: Context.Write " <td class=""zpSO-PictureGallery-ThickBox-td2"" style=""vertical-align:top"">&nbsp;</td>" & vbCrLf
391: Context.Write " "
392:
393: end if
394:
395: Context.Write "" & vbCrLf
396: Context.Write " "
397:
398:
399: index = index + 1
400: next
401:
402:
403: Context.Write "" & vbCrLf
404: Context.Write "</tr>" & vbCrLf
405: Context.Write ""
406:
407: next
408:
409: Context.Write "" & vbCrLf
410: Context.Write "</table>" & vbCrLf
411: Context.Write "</div>" & vbCrLf
412: Context.Write "<!--{ZP-INLINE-EDITING-START}" & vbCrLf
413: Context.Write "" & vbTab & "</div>" & vbCrLf
414: Context.Write "{ZP-INLINE-EDITING-END}-->"
415:
416: end sub
417:.

Weitere Informationen anzeigen#343874.
Beendet.

1 Fehler, 0 Warnung(en).