Vorgang wird vorbereitet, bitte warten Sie...
Seite "Kontakt" wird erstellt
Warnung - Seiten-Verweis "de$Nachricht_erfolgreich_gesendet" (Vorlage: "Vorlage Standard", "default.html" ("")) kann nicht ersetzt werden; entweder weil die Seite nicht gefunden wurde oder zur Zeit inaktiv ist.
Warnung - Seiten-Verweis "de$Nachricht_konnte_nicht_versendet_werden" (Vorlage: "Vorlage Standard", "default.html" ("")) kann nicht ersetzt werden; entweder weil die Seite nicht gefunden wurde oder zur Zeit inaktiv ist.
Warnung - Seiten-Verweis "de$Suche" (Vorlage: "Vorlage Standard", "default.html" ("")) kann nicht ersetzt werden; entweder weil die Seite nicht gefunden wurde oder zur Zeit inaktiv ist.
Warnung - Seiten-Verweis "de$Nachricht_erfolgreich_gesendet" (Vorlage: "Vorlage Standard", "default.html" ("")) kann nicht ersetzt werden; entweder weil die Seite nicht gefunden wurde oder zur Zeit inaktiv ist.
Warnung - Seiten-Verweis "de$Nachricht_konnte_nicht_versendet_werden" (Vorlage: "Vorlage Standard", "default.html" ("")) kann nicht ersetzt werden; entweder weil die Seite nicht gefunden wurde oder zur Zeit inaktiv ist.
Warnung - Seiten-Verweis "de$Suche" (Vorlage: "Vorlage Standard", "default.html" ("")) kann nicht ersetzt werden; entweder weil die Seite nicht gefunden wurde oder zur Zeit inaktiv ist.
Seite "Impressum" wird erstellt
Warnung - Seiten-Verweis "de$Suche" (Vorlage: "Vorlage Standard", "default.html" ("")) kann nicht ersetzt werden; entweder weil die Seite nicht gefunden wurde oder zur Zeit inaktiv ist.
Warnung - Seiten-Verweis "de$Suche" (Vorlage: "Vorlage Standard", "default.html" ("")) kann nicht ersetzt werden; entweder weil die Seite nicht gefunden wurde oder zur Zeit inaktiv ist.
Seite "Unternehmen" wird erstellt
Warnung - Seiten-Verweis "de$Suche" (Vorlage: "Vorlage Standard", "default.html" ("")) kann nicht ersetzt werden; entweder weil die Seite nicht gefunden wurde oder zur Zeit inaktiv ist.
Warnung - Seiten-Verweis "de$Suche" (Vorlage: "Vorlage Standard", "default.html" ("")) kann nicht ersetzt werden; entweder weil die Seite nicht gefunden wurde oder zur Zeit inaktiv ist.
Seite "Fahrzeuge" wird erstellt
Warnung - Seiten-Verweis "de$Suche" (Vorlage: "Vorlage Standard", "default.html" ("")) kann nicht ersetzt werden; entweder weil die Seite nicht gefunden wurde oder zur Zeit inaktiv ist.
Warnung - Seiten-Verweis "de$Suche" (Vorlage: "Vorlage Standard", "default.html" ("")) kann nicht ersetzt werden; entweder weil die Seite nicht gefunden wurde oder zur Zeit inaktiv ist.
Seite "Ersatzteile" wird erstellt
Warnung - Seiten-Verweis "de$Suche" (Vorlage: "Vorlage Standard", "default.html" ("")) kann nicht ersetzt werden; entweder weil die Seite nicht gefunden wurde oder zur Zeit inaktiv ist.
Warnung - Seiten-Verweis "de$Suche" (Vorlage: "Vorlage Standard", "default.html" ("")) kann nicht ersetzt werden; entweder weil die Seite nicht gefunden wurde oder zur Zeit inaktiv ist.
Seite "911" wird erstellt
Warnung - Seiten-Verweis "de$Suche" (Vorlage: "Vorlage Standard", "default.html" ("")) kann nicht ersetzt werden; entweder weil die Seite nicht gefunden wurde oder zur Zeit inaktiv ist.
Warnung - Seiten-Verweis "de$Suche" (Vorlage: "Vorlage Standard", "default.html" ("")) kann nicht ersetzt werden; entweder weil die Seite nicht gefunden wurde oder zur Zeit inaktiv ist.
Seite "356" wird erstellt
7 images...
Erstelle Vorschaubild Koffer1.jpg
Erstelle Vorschaubild Koffer2.jpg
Erstelle Vorschaubild Koffer3.jpg
Erstelle Vorschaubild Koffer4.jpg
Erstelle Vorschaubild Koffer5.jpg
Erstelle Vorschaubild Koffer6.jpg
Erstelle Vorschaubild Koffer7.jpg

Fehler (10.7.1.0) - Error 32 creating file handle for file path 'C:\Users\niem18\Documents\Zeta Producer 10\Projects\ABC Classics Neu\web\web.mdb': Der Prozess kann nicht auf die Datei zugreifen, da sie von einem anderen Prozess verwendet wird.

Weitere Informationen anzeigen#1564338184.
Beendet.


Fehler (10.7.1.0) - Error 32 creating file handle for file path 'C:\Users\niem18\Documents\Zeta Producer 10\Projects\ABC Classics Neu\web\web.mdb': Der Prozess kann nicht auf die Datei zugreifen, da sie von einem anderen Prozess verwendet wird.

Weitere Informationen anzeigen#229464735.
Beendet.


2 Fehler, 0 Warnung(en).
Warnung - Seiten-Verweis "de$Suche" (Vorlage: "Vorlage Standard", "default.html" ("")) kann nicht ersetzt werden; entweder weil die Seite nicht gefunden wurde oder zur Zeit inaktiv ist.
7 images...
Fertigstellung wird gestartet...
Fertigstellung beendet.

Fehler (10.7.1.0) - Skript-Fehler:
---------------			  
GUI-Abstraktions-Dienste wurden nicht zugewiesen.
---------------			  
Zeile 118, 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=""a1030""></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:  
111: dim rowIndex : dim colIndex : dim index
112: dim rowCount : rowCount = images.Count \ imagesPerRow
113: if images.Count mod imagesPerRow > 0 then 
114:     rowCount = rowCount + 1
115: end if
116: 
117: Context.Scope.Library.Log images.Count & " images..."
118: Context.Scope.Library.CheckAsyncStopProcessing
119: 
120: ' Must use a prefix to allow multiple instances of the JavaScript on the page.
121: dim prefix
122: prefix = "prefix_1030_"
123: 
124: 
125:     Context.Write "" & vbCrLf
126:     Context.Write "<a name="""
127: 
128: Context.Write prefix
129: 
130:     Context.Write "thumbnails""></a>" & vbCrLf
131:     Context.Write "<div class=""articlearea"">" & vbCrLf
132:     Context.Write ""
133: 
134:  if Context.Scope.CurrentArticle.Name <> "" then 
135: 
136:     Context.Write "<h1>"
137: 
138: Context.Write Context.Scope.CurrentArticle.Name
139: 
140:     Context.Write "</h1>"
141: 
142:  end if 
143: 
144:     Context.Write "" & vbCrLf
145:     Context.Write "<script type=""text/javascript"">" & vbCrLf
146:     Context.Write "var "
147: 
148: Context.Write prefix
149: 
150:     Context.Write "currentIndex = 0;" & vbCrLf
151:     Context.Write "" & vbCrLf
152:     Context.Write "var "
153: 
154: Context.Write prefix
155: 
156:     Context.Write "g = new Array();" & vbCrLf
157:     Context.Write "var "
158: 
159: Context.Write prefix
160: 
161:     Context.Write "t = new Array();" & vbCrLf
162:     Context.Write "" & vbCrLf
163:     Context.Write ""
164: 
165: 
166: for index=0 to images.Count-1
167: 
168:     dim image
169:     set image = images.Item(index)
170: 
171:     Context.Scope.Library.CheckAsyncStopProcessing
172: 
173: 
174:     Context.Write "" & vbCrLf
175:     Context.Write "    "
176: 
177: Context.Write prefix
178: 
179:     Context.Write "g["
180: 
181: Context.Write index
182: 
183:     Context.Write "] = """
184: 
185: Context.Write image.VirtualPathRelative
186: 
187:     Context.Write """; " & vbCrLf
188:     Context.Write "    "
189: 
190: Context.Write prefix
191: 
192:     Context.Write "t["
193: 
194: Context.Write index
195: 
196:     Context.Write "] = """
197: 
198: Context.Write image.Name
199: 
200:     Context.Write """;" & vbCrLf
201:     Context.Write ""
202: 
203: next
204: 
205:     Context.Write "" & vbCrLf
206:     Context.Write "" & vbCrLf
207:     Context.Write "function "
208: 
209: Context.Write prefix
210: 
211:     Context.Write "setimage( index )" & vbCrLf
212:     Context.Write "{" & vbCrLf
213:     Context.Write "    var img = new Image();" & vbCrLf
214:     Context.Write "    img.src = "
215: 
216: Context.Write prefix
217: 
218:     Context.Write "g[index];" & vbCrLf
219:     Context.Write "    window.document.images["""
220: 
221: Context.Write prefix
222: 
223:     Context.Write "pic""].src = img.src;" & vbCrLf
224:     Context.Write "    document.getElementById("""
225: 
226: Context.Write prefix
227: 
228:     Context.Write "desc"").innerHTML = "
229: 
230: Context.Write prefix
231: 
232:     Context.Write "t[index];" & vbCrLf
233:     Context.Write "    "
234: 
235: Context.Write prefix
236: 
237:     Context.Write "currentIndex = index;" & vbCrLf
238:     Context.Write "}" & vbCrLf
239:     Context.Write "</script>" & vbCrLf
240:     Context.Write "<table class=""zpSO-PictureGallery"" cellpadding=""0"" cellspacing=""9"" border=""0"" " & vbCrLf
241:     Context.Write "" & vbTab & " "
242: 
243:  if Context.Scope.CurrentArticle.Name<>"" then 
244: 
245:     Context.Write "" & vbCrLf
246:     Context.Write "" & vbTab & " summary="""
247: 
248: Context.Write Context.Scope.Library.HtmlEncode(Context.Scope.CurrentArticle.Name)
249: 
250:     Context.Write """" & vbCrLf
251:     Context.Write "" & vbTab & " "
252: 
253:  else 
254: 
255:     Context.Write "" & vbCrLf
256:     Context.Write "" & vbTab & " summary=""Image album""" & vbCrLf
257:     Context.Write "" & vbTab & " "
258: 
259:  end if 
260: 
261:     Context.Write "" & vbCrLf
262:     Context.Write "" & vbTab & " >" & vbCrLf
263:     Context.Write ""
264: 
265: 
266: ' -- Build the thumbnails grid.
267: index = 0
268: for rowIndex = 0 to rowCount-1
269: 
270: 
271:     Context.Write "" & vbCrLf
272:     Context.Write "<tr>" & vbCrLf
273:     Context.Write "    "
274: 
275: 
276:     for colIndex = 0 to imagesPerRow-1
277:     
278: 
279:     Context.Write "" & vbCrLf
280:     Context.Write "        "
281: 
282: 
283:         if index<=images.Count-1 then
284:             set image = images.Item(index)
285: 
286: 			if image.height > image.width then
287: 				thumbnailWidth = thumbnailHeight
288: 			else
289: 				thumbnailWidth = Context.Scope.CurrentArticle.Values.GetValue("Breite der Vorschaubilder")
290: 			end if
291: 		
292:             if image.CheckCreateThumbnail( thumbnailWidth ) then
293:               Context.Scope.Library.Log "Erstelle Vorschaubild " & image.Name
294:             else
295:               Context.Scope.Library.CheckAsyncStopProcessing
296:             end if
297:         
298: 
299:     Context.Write "" & vbCrLf
300:     Context.Write "            <td "
301: 
302:  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 
303: 
304:     Context.Write "class=""zpSO-PictureGallery-tdx"" style=""text-align:center;vertical-align:bottom"""
305: 
306:  else 
307: 
308:     Context.Write "class=""zpSO-PictureGallery-td"" style=""text-align:center;vertical-align:middle"""
309: 
310:  end if 
311: 
312:     Context.Write ">" & vbCrLf
313:     Context.Write "            " & vbTab & "<a href="""
314: 
315: Context.Write image.VirtualPathRelative
316: 
317:     Context.Write """ title="""
318: 
319: Context.Write image.Description
320: 
321:     Context.Write """ class=""thickbox"" rel=""gallery"
322: 
323: Context.Write article.ID
324: 
325:     Context.Write """>" & vbCrLf
326:     Context.Write "            " & vbTab & "" & vbTab & "<img class=""zpSO-PictureGallery-img"" src="""
327: 
328: Context.Write image.GetThumbnailVirtualPathRelative( thumbnailWidth )
329: 
330:     Context.Write """ border=""0"" alt="""" />" & vbCrLf
331:     Context.Write "            " & vbTab & "</a>" & vbCrLf
332:     Context.Write "                "
333: 
334:  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 
335: 
336:     Context.Write "" & vbCrLf
337:     Context.Write "                " & vbTab & "<div class=""bildunterschrift"">" & vbCrLf
338:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
339: 
340:  if Context.Scope.CurrentArticle.Values.GetValue("Bilder nummerieren") = 1 then 
341: 
342:     Context.Write "<span class=""zpSO-PictureGallery-number"">"
343: 
344: Context.Write index+1
345: 
346:     Context.Write "</span>"
347: 
348:  end if 
349: 
350:     Context.Write "" & vbCrLf
351:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
352: 
353:  if Context.Scope.CurrentArticle.Values.GetValue("Bildname anzeigen") = 1 then 
354: 
355:     Context.Write "<span class=""zpSO-PictureGallery-name"">"
356: 
357: Context.Write image.Name
358: 
359:     Context.Write "</span>"
360: 
361:  end if 
362: 
363:     Context.Write "" & vbCrLf
364:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
365: 
366:  if Context.Scope.CurrentArticle.Values.GetValue("Bildbeschreibung anzeigen") = 1  and image.Description<>"" then 
367: 
368:     Context.Write "" & vbCrLf
369:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
370: 
371:  if Context.Scope.CurrentArticle.Values.GetValue("Bildname anzeigen") = 1 then 
372: 
373:     Context.Write "<br />"
374: 
375:  end if 
376: 
377:     Context.Write "<span class=""zpSO-PictureGallery-desc"">"
378: 
379: Context.Write image.Description
380: 
381:     Context.Write "</span>" & vbCrLf
382:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
383: 
384:  end if 
385: 
386:     Context.Write "" & vbCrLf
387:     Context.Write "                " & vbTab & "</div>" & vbCrLf
388:     Context.Write "                "
389: 
390:  end if 
391: 
392:     Context.Write "" & vbCrLf
393:     Context.Write "            </td>" & vbCrLf
394:     Context.Write "        "
395: 
396: else
397: 
398:     Context.Write "" & vbCrLf
399:     Context.Write "            <td>&nbsp;</td>" & vbCrLf
400:     Context.Write "        "
401: 
402: end if
403: 
404:     Context.Write "" & vbCrLf
405:     Context.Write "    "
406: 
407: 
408:         index = index + 1
409:     next
410:     
411: 
412:     Context.Write "" & vbCrLf
413:     Context.Write "</tr>" & vbCrLf
414:     Context.Write ""
415: 
416: next
417: 
418:     Context.Write "" & vbCrLf
419:     Context.Write "</table>" & vbCrLf
420:     Context.Write "</div><!--{ZP-INLINE-EDITING-START}" & vbCrLf
421:     Context.Write "" & vbTab & "</div>" & vbCrLf
422:     Context.Write "{ZP-INLINE-EDITING-END}-->"
423: 
424: end sub
425:.

Weitere Informationen anzeigen#1905773850.
Beendet.


3 Fehler, 0 Warnung(en).