Fehler während der Verarbeitung.

Fehler beim Validieren des Projekts.

Skript-Fehler:
---------------			  
Objekt erforderlich: 'childPages(...)'
---------------			  
Zeile 208, Spalte 13.
---------------			  
Quelltext: 
001: option explicit
002: 
003: Dim c__
004: Set c__ = new ScriptExecutor
005: c__.ExecuteScript
006: 
007: Class ScriptExecutor
(...Versteckte Zeilen...)
045: 
046: 
047: 
048: 
049: ' --------------------------------------------
050: ' http://stackoverflow.com/questions/5661072/get-next-item-in-a-tree
051: 
052: function calcNextPage(page)
053:       dim result
054:       set result = nothing
055:       
056:       dim childPages
057:       set childPages = page.ChildPages
058:       
059:       if childPages.Count>0 then
060:             set result = childPages(0)
061:       else
062:             dim nextSibling
063:             set nextSibling = getNextSibling( page )
064:             
065:             if not nextSibling is nothing then
066:                   set result = nextSibling
067:             else
068:                   dim curr
069:                   set curr = page
070:                   
071:                   do while 4>2
072:                         dim parent
073:                         set parent = curr.ParentPageOrProjectFolder
074:                         
075:                         if parent is nothing then
076:                              set result = nothing
077:                              exit do
078:                         else
079:                              set nextSibling = getNextSibling( parent )
080:                              if not nextSibling is nothing then
081:                                    set result = nextSibling
082:                                    exit do
083:                              else
084:                                    set curr = parent
085:                              end if
086:                         end if
087:                   loop
088:             end if
089:       end if
090:       
091:       set calcNextPage = result
092: end function
093: 
094: ' --------------------------------------------
095: 
096: function getNextSibling( page )
097:       dim result
098:       set result = nothing
099:       
100:       dim parentPage
101:       set parentPage = page.ParentPageOrProjectFolder
102:       
103:       if not parentPage is nothing then
104:             dim siblingPages
105:           	siblingPages = filterPages(parentPage.ChildPages)
106:             
107:             dim i
108:             for i=0 to UBound(siblingPages)
109:                   dim p
110:                   set p = siblingPages(i)
111:             
112:                   if p.ID = page.ID then
113:                         if i<UBound(siblingPages) then
114:                              set result = siblingPages(i+1)
115:                              exit for
116:                         else
117:                              set result = nothing
118:                              exit for
119:                         end if
120:                   end if
121:             next
122:       else
123:             set result = nothing
124:       end if
125:       
126:       set getNextSibling = result
127: end function
128: 
129: ' --------------------------------------------
130: 
131: function filterPages( zpPagesArray )
132: 	dim result()
133: 	
134: 	if not zpPagesArray is nothing then
135: 		redim result(zpPagesArray.Count-1)
136: 		
137: 		dim r
138: 		r = -1
139: 		
140: 	    dim i
141: 	    for i=0 to zpPagesArray.Count-1
142: 			dim p
143: 			set p = zpPagesArray(i)
144: 			
145: 			if isValidPage(p) then
146: 				r = r + 1
147: 				set result(r) = p
148: 			end if	
149: 		next
150: 		
151: 		if r>=0 then
152: 			redim preserve result(r)
153: 		end if
154: 	end if
155: 		
156: 	filterPages	= result
157: end function
158: 
159: ' --------------------------------------------
160: 
161: function calcPrevPage(page)
162:       dim result
163:       set result = nothing
164: 
165:       dim pages
166:       pages = filterPages(page.ParentPageOrProjectFolder.ChildPages)
167: 
168:       dim i
169:       for i=0 to UBound(pages)
170:             dim p
171:             set p = pages(i)
172:       
173:             if p.ID = Context.Scope.CurrentPage.ID then
174:                   if i>0 then
175:                         set result = getDeepestChild( pages(i-1) )
176:                   else
177:                         dim parent
178:                         set parent = page.ParentPageOrProjectFolder
179:                         if parent is nothing then
180:                              set result = nothing
181:                         else
182:                              if parent.IsPage then
183:                                    set result = parent
184:                              else
185:                                    set result = nothing
186:                              end if
187:                         end if
188:                   end if
189:                   
190:                   exit for
191:             end if
192:       next
193:       
194:       set calcPrevPage = result
195: end function
196: 
197: ' --------------------------------------------
198: 
199: function getDeepestChild( page )
200:       dim result
201:       set result = nothing
202:       
203:       dim childPages
204:       childPages = filterPages(page.ChildPages)
205: 
206:       if UBound(childPages)>0 then
207:             dim p
208:             set p = childPages(UBound(childPages))
209:             set result = getDeepestChild( p )
210:       else
211:             set result = page
212:       end if
213:       
214:       set getDeepestChild = result
215: end function
216: 
217: ' --------------------------------------------
218: 
219: function isValidPage( page )
220: 	dim result
221: 	result = false
222: 
223: 	if IsNothing(page) then
224: 		result = true
225: 	else
226: '		if page.Url<>"" then
227: '			result = false
228: '		else
229: 			if page.IsVisible and page.IsActive then
230: 				result = true
231: 			else
232: 				result = false
233: 			end if
234: '		end if
235: 	end if
236: 
237: 	isValidPage = result
238: end function
239: 
240: ' --------------------------------------------
241: 
242: sub log( text )
243:       Context.WriteLine("<p style='background-color:yellow; color:black;font-family:Courier new; font-weight: bold; font-size:12px'>" & text & "</p>")
244: end sub
245: 
246: ' --------------------------------------------
247: 
248: 
(...Versteckte Zeilen...)
274: 
275: 
276: 
277: public sub ExecuteScript()
278:     Context.Write "<!DOCTYPE html>" & vbCrLf
279:     Context.Write "<html class=""responsivelayout"" lang=""de"">" & vbCrLf
280:     Context.Write "<head>" & vbCrLf
281:     Context.Write "" & vbTab & "<!-- Title -->" & vbCrLf
282:     Context.Write "" & vbTab & "<title>"
283: 
284: Context.Write page_.NameOrTitleIntelli
285: 
286:     Context.Write "</title>" & vbCrLf
287:     Context.Write "" & vbCrLf
288:     Context.Write "" & vbTab & "<!-- Meta Data -->" & vbCrLf
289:     Context.Write "" & vbTab & "<meta http-equiv=""content-type"" content=""text/html; charset=utf-8"" />" & vbCrLf
290:     Context.Write "" & vbTab & "<meta name=""viewport"" content=""width=device-width, initial-scale=1.0"" />" & vbCrLf
291:     Context.Write "" & vbTab & "<meta name=""description"" content="""
292: 
293: Context.Write HtmlEncode(lib_.RenderText(page_.Description)) 
294: 
295:     Context.Write """ />" & vbCrLf
296:     Context.Write "" & vbTab & "<meta name=""keywords"" content="""
297: 
298: Context.Write HtmlEncode(lib_.RenderText(page_.SeoKeywords)) 
299: 
300:     Context.Write """ />" & vbCrLf
301:     Context.Write "" & vbTab & "<meta name=""generator"" content=""Zeta Producer 12 12.2.0.0 ZP12P, Build 12.2.0.0, 16.09.2014 15:42:20 (RELEASE)"" />" & vbCrLf
302:     Context.Write "" & vbTab & "<meta name=""robots"" content=""index, follow"" />" & vbCrLf
303:     Context.Write "" & vbTab & "" & vbCrLf
304:     Context.Write "" & vbTab & "" & vbCrLf
305:     Context.Write "" & vbTab & "<!-- Has Article in Header -->" & vbCrLf
306:     Context.Write "" & vbTab & ""
307: 
308: 
309: 	dim header
310: 	header = page_.HasArticleInArea("Header") or (sc_.IsPreview AND page_.IsAttributeTrue("preview_show_empty_article_areas"))
311: 	
312: 
313:     Context.Write "" & vbCrLf
314:     Context.Write "" & vbCrLf
315:     Context.Write "" & vbTab & "<!-- Favicon & CSS -->" & vbCrLf
316:     Context.Write "" & vbTab & "<link rel=""shortcut icon"" type=""image/x-icon"" href=""_media/stock-files/favicon.ico"" />" & vbCrLf
317:     Context.Write "" & vbTab & "<link rel=""stylesheet"" type=""text/css"" href=""_media/styles.css?v=1"" media=""all"" />" & vbCrLf
318:     Context.Write "" & vbTab & "<link rel=""stylesheet"" type=""text/css"" href=""_media/font-awesome.css?v=1"" media=""all"" />" & vbCrLf
319:     Context.Write "" & vbTab & ""
320: 
321:  if header then 
322: 
323:     Context.Write "" & vbCrLf
324:     Context.Write "" & vbTab & "" & vbTab & "<link rel=""stylesheet"" type=""text/css"" href=""_media/flexslider.css?v=1"" media=""all"" />" & vbCrLf
325:     Context.Write "" & vbTab & ""
326: 
327:  end if 
328: 
329:     Context.Write "" & vbCrLf
330:     Context.Write "" & vbCrLf
331:     Context.Write "" & vbTab & "<!-- Google Webfonts -->" & vbCrLf
332:     Context.Write "" & vbTab & "<link rel=""stylesheet"" type=""text/css"" href=""http://fonts.googleapis.com/css?family=Open+Sans"" />" & vbCrLf
333:     Context.Write "" & vbCrLf
334:     Context.Write "" & vbTab & "<!-- jQuery & Widgets Scripts -->" & vbCrLf
335:     Context.Write "" & vbTab & "<script" & vbTab & "type=""text/javascript"" src=""media/Scripting/ServerSideScripting/jQuery/jquery-1.7.min.js""></script>" & vbCrLf
336:     Context.Write "" & vbTab & "<script" & vbTab & "type=""text/javascript"" src=""media/Scripting/ServerSideScripting/js/zp-widgets.js""></script>" & vbCrLf
337:     Context.Write "" & vbTab & "<script type=""text/javascript"" src=""_media/layout-script.js""></script>" & vbCrLf
338:     Context.Write "" & vbTab & "" & vbCrLf
339:     Context.Write "" & vbTab & "" & vbCrLf
340:     Context.Write "" & vbTab & "<!-- Search Inline Script -->" & vbCrLf
341:     Context.Write "" & vbTab & ""
342: 
343:  if page_.IsAttributeTrue("search_field_visible") then 
344: 
345:     Context.Write "" & vbCrLf
346:     Context.Write "" & vbTab & "" & vbTab & "<script type=""text/javascript"">" & vbCrLf
347:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "function set_cookie1(name1, value1) {" & vbCrLf
348:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "var c1 = name1 + ""="" + escape(value1);document.cookie = c1;" & vbCrLf
349:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "}" & vbCrLf
350:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "function search1(){" & vbCrLf
351:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "if (document.forms.searchengine1.q.value.length == 0) {" & vbCrLf
352:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "alert(""Bitte geben Sie einen Suchbegriff ein."");" & vbCrLf
353:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "return false;" & vbCrLf
354:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "}" & vbCrLf
355:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "}" & vbCrLf
356:     Context.Write "" & vbTab & "" & vbTab & "</script>" & vbCrLf
357:     Context.Write "" & vbTab & ""
358: 
359:  end if 
360: 
361:     Context.Write "" & vbCrLf
362:     Context.Write "" & vbTab & "" & vbCrLf
363:     Context.Write "" & vbTab & "<!-- RSS -->" & vbCrLf
364:     Context.Write "" & vbTab & ""
365: 
366: 
367: 	if project_.Rss then
368: 		dim info
369: 		for each info in projectFolder_.RssFeeds 
370: 
371:     Context.Write "" & vbCrLf
372:     Context.Write "" & vbTab & "" & vbTab & "<link rel=""alternate"" type=""application/rss+xml"" title="""
373: 
374: Context.Write info.RssFeedName
375: 
376:     Context.Write """ href="""
377: 
378: Context.Write info.RssFeedUrl
379: 
380:     Context.Write """ />" & vbCrLf
381:     Context.Write "" & vbTab & ""
382: 
383: 	next
384: 	end if 
385: 
386:     Context.Write "" & vbCrLf
387:     Context.Write "" & vbTab & "" & vbCrLf
388:     Context.Write "" & vbTab & "<!-- Page Navigation -->" & vbCrLf
389:     Context.Write "" & vbTab & ""
390: 
391:  if page_.IsAttributeTrue("show_page_navigation") then 
392: 
393:     Context.Write "" & vbCrLf
394:     Context.Write "" & vbTab & "" & vbTab & ""
395:     Context.Write "" & vbCrLf
396:     Context.Write "" & vbCrLf
397:     Context.Write "" & vbTab & "" & vbTab & "<script type=""text/javascript"">" & vbCrLf
398:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "$(function () {" & vbCrLf
399:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "$("".gotop"")" & vbCrLf
400:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ".hide();" & vbCrLf
401:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "$(window).scroll(function () {" & vbCrLf
402:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "if ($(this).scrollTop() > 300) {" & vbCrLf
403:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "$("".gotop"").fadeIn(300);" & vbCrLf
404:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "} else {" & vbCrLf
405:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "$("".gotop"").fadeOut(300);" & vbCrLf
406:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "}" & vbCrLf
407:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "});" & vbCrLf
408:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "$("".gotop a"").click(function () {" & vbCrLf
409:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "$(""html,body"").animate({" & vbCrLf
410:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "scrollTop: 0" & vbCrLf
411:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "}, 1000);" & vbCrLf
412:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "return false;" & vbCrLf
413:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "});" & vbCrLf
414:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "});" & vbCrLf
415:     Context.Write "" & vbTab & "" & vbTab & "</script>" & vbCrLf
416:     Context.Write "" & vbTab & ""
417: 
418:  end if 
419: 
420:     Context.Write "" & vbCrLf
421:     Context.Write "" & vbCrLf
422:     Context.Write "" & vbTab & "<!-- Analytics Code -->" & vbCrLf
423:     Context.Write "" & vbTab & "" & vbCrLf
424:     Context.Write "</head>" & vbCrLf
425:     Context.Write "" & vbCrLf
426:     Context.Write "<body id=""metro-responsive"">" & vbCrLf
427:     Context.Write "" & vbTab & "<a id=""top""></a>" & vbCrLf
428:     Context.Write "" & vbTab & "" & vbCrLf
429:     Context.Write "" & vbTab & "<!-- Begin Container -->" & vbCrLf
430:     Context.Write "" & vbTab & "<div id=""container"">" & vbCrLf
431:     Context.Write "" & vbTab & "" & vbCrLf
432:     Context.Write "" & vbTab & "" & vbTab & "<!-- Mobile Menu -->" & vbCrLf
433:     Context.Write "" & vbTab & "" & vbTab & "<div id=""mobile-container"">" & vbCrLf
434:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<div id=""mobile-menu""><i class=""icon-reorder icon-large"">&nbsp;</i></div>" & vbCrLf
435:     Context.Write "" & vbTab & "" & vbTab & "</div>" & vbCrLf
436:     Context.Write "" & vbTab & "" & vbTab & "" & vbCrLf
437:     Context.Write "" & vbTab & "" & vbTab & "<div id=""topbox"">" & vbCrLf
438:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<div class=""tbshadow"">" & vbCrLf
439:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "<div class=""wrapper"">" & vbCrLf
440:     Context.Write "" & vbCrLf
441:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "<!-- Logo -->" & vbCrLf
442:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
443: 
444:  if page_.IsAttributeTrue("show_web_logo") then 
445: 
446:     Context.Write "" & vbCrLf
447:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "<div id=""logo"" <!--{ZP-INLINE-EDITING-START}" & vbCrLf
448:     Context.Write "" & vbCrLf
449:     Context.Write " data-type=""inline-editing""" & vbCrLf
450:     Context.Write " data-context=""logo""" & vbCrLf
451:     Context.Write " data-item-id=""logo""" & vbCrLf
452:     Context.Write "" & vbCrLf
453:     Context.Write "{ZP-INLINE-EDITING-END}-->>" & vbCrLf
454:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "<a href=""http://www.weberdevelop.de""><img src=""_media/stock-images/weber_logo_end.png"" width=""130"" height=""66"" alt=""http://www.weberdevelop.de"" /></a>" & vbCrLf
455:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "</div>" & vbCrLf
456:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
457: 
458:  end if 
459: 
460:     Context.Write "" & vbCrLf
461:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbCrLf
462:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "<!-- Mainmenu Grid -->" & vbCrLf
463:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "<div id=""navigation"">" & vbCrLf
464:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "<ul>" & vbCrLf
465:     Context.Write "" & vbTab & "<li><a href=""index.html"">Start</a></li>" & vbTab & "" & vbTab & "" & vbCrLf
466:     Context.Write "" & vbCrLf
467:     Context.Write "" & vbTab & "<li><a href=""unternehmen.html"">Unternehmen</a></li>" & vbTab & "" & vbTab & "" & vbCrLf
468:     Context.Write "" & vbCrLf
469:     Context.Write "" & vbTab & "<li><a href=""referenzen_.html"">Referenzen</a></li>" & vbTab & "" & vbTab & "" & vbCrLf
470:     Context.Write "" & vbCrLf
471:     Context.Write "" & vbTab & "<li><a href=""projekte.html"">Aktuelle Projekte</a></li>" & vbTab & "" & vbTab & "" & vbCrLf
472:     Context.Write "" & vbCrLf
473:     Context.Write "" & vbTab & "<li><a href=""expansion.html"">Expansion</a></li>" & vbTab & "" & vbTab & "" & vbCrLf
474:     Context.Write "" & vbCrLf
475:     Context.Write "" & vbTab & "<li><a class=""plus active"" href=""#nav"">Presse<i class=""icon-angle-down icon-large"">&nbsp;</i></a>" & vbCrLf
476:     Context.Write "" & vbTab & "" & vbTab & "<ul class=""submenu"">" & vbCrLf
477:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<li class=""first""><a href=""presse.html"">Presse</a></li>" & vbCrLf
478:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<li><a href=""presseberichte-zeitungen.html""><i class=""icon-circle-arrow-right icon-large"">&nbsp;</i>Presseberichte in Zeitungen</a>" & vbCrLf
479:     Context.Write "</li>" & vbCrLf
480:     Context.Write "<li><a href=""presseberichte-video-s.html""><i class=""icon-circle-arrow-right icon-large"">&nbsp;</i>Presseberichte als Video´s</a>" & vbCrLf
481:     Context.Write "</li>" & vbCrLf
482:     Context.Write "" & vbCrLf
483:     Context.Write "" & vbTab & "" & vbTab & "</ul>" & vbCrLf
484:     Context.Write "" & vbTab & "</li>" & vbCrLf
485:     Context.Write "" & vbCrLf
486:     Context.Write "" & vbCrLf
487:     Context.Write "" & vbTab & "<li><a href=""fotogalerie.html"">Fotogalerie</a></li>" & vbTab & "" & vbTab & "" & vbCrLf
488:     Context.Write "" & vbCrLf
489:     Context.Write "" & vbTab & "<li><a href=""kontakt.html"">Kontakt</a></li>" & vbTab & "" & vbTab & "" & vbCrLf
490:     Context.Write "<!-- Searchform -->" & vbCrLf
491:     Context.Write "" & vbCrLf
492:     Context.Write "<li <!--{ZP-INLINE-EDITING-START}" & vbCrLf
493:     Context.Write "" & vbCrLf
494:     Context.Write " data-type=""inline-editing""" & vbCrLf
495:     Context.Write " data-context=""search""" & vbCrLf
496:     Context.Write " data-item-id=""search""" & vbCrLf
497:     Context.Write "" & vbCrLf
498:     Context.Write "{ZP-INLINE-EDITING-END}-->>" & vbCrLf
499:     Context.Write "<a href=""#search"" class=""search""><i class=""icon-search icon-large"">&nbsp;</i></a>" & vbCrLf
500:     Context.Write "<ul class=""submenu search"">" & vbCrLf
501:     Context.Write "" & vbTab & "<li class=""first""><a style=""cursor:default"" href=""#search"">Suchbegriff</a></li>" & vbCrLf
502:     Context.Write "" & vbTab & "<li class=""search"">" & vbCrLf
503:     Context.Write "" & vbTab & "" & vbTab & "<form id=""searchform"" action=""suche.html"" method=""get"" name=""searchengine1"" onsubmit=""return search1()"">" & vbCrLf
504:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<fieldset>" & vbCrLf
505:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "<input id=""searchfield"" class=""searchfield"" name=""q"" type=""text"" value="""" />" & vbCrLf
506:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "<button id=""searchbutton"" class=""searchbutton"" type=""submit"">" & vbCrLf
507:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "<i class=""icon-search icon-large"">&nbsp;</i>" & vbCrLf
508:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "</button>" & vbCrLf
509:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "</fieldset>" & vbCrLf
510:     Context.Write "" & vbTab & "" & vbTab & "</form>" & vbCrLf
511:     Context.Write "" & vbTab & "" & vbTab & "<!-- #zetainclude ""..\..\..\ZPIncludes\js-default-typeahead.inc"" -->" & vbCrLf
512:     Context.Write "" & vbTab & "" & vbTab & "<!-- #endzetainclude -->" & vbCrLf
513:     Context.Write "" & vbTab & "</li>" & vbCrLf
514:     Context.Write "</ul>" & vbCrLf
515:     Context.Write "</li>" & vbCrLf
516:     Context.Write "" & vbCrLf
517:     Context.Write "</ul>" & vbCrLf
518:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "</div>" & vbCrLf
519:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbCrLf
520:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "<!-- Page Navigation -->" & vbCrLf
521:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
522: 
523:  if page_.IsAttributeTrue("show_page_navigation") then 
524: 
525:     Context.Write "<div class=""pagenav-top"">"
526: 
527: 
528: dim page1
529: set page1 = Context.Scope.CurrentPage
530: 
531: if not (page1 is nothing) and isValidPage(page1) then
532: 
533: 	dim prevPage1
534: 	set prevPage1 = calcPrevPage(page1)
535: 	
536: 	dim nextPage1
537: 	set nextPage1 = calcNextPage(page1)
538: 
539: 	dim prevName1
540: 	prevName1 = page1.GetInheritedAttributeValue("page_navigation_ui_prevname")
541: 
542: 	dim nextName1
543: 	nextName1 = page1.GetInheritedAttributeValue("page_navigation_ui_nextname")
544: 	
545: 
546:     Context.Write "" & vbCrLf
547:     Context.Write "" & vbTab & "" & vbCrLf
548:     Context.Write "" & vbTab & ""
549: 
550:  if (not prevPage1 is nothing) and isValidPage(prevPage1) then 
551: 
552:     Context.Write "<a class=""prev"" href="""
553: 
554: Context.Write prevPage1.Url
555: 
556:     Context.Write """ title=""Vorherige Seite""><i class=""icon-angle-left icon-large"">&nbsp;</i></a>"
557: 
558:  end if 
559: 
560:     Context.Write "" & vbCrLf
561:     Context.Write "" & vbTab & "" & vbCrLf
562:     Context.Write "" & vbTab & ""
563: 
564:  if (not nextPage1 is nothing) and isValidPage(nextPage1) then 
565: 
566:     Context.Write "<a class=""next"" href="""
567: 
568: Context.Write nextPage1.Url
569: 
570:     Context.Write """ title=""Nächste Seite""><i class=""icon-angle-right icon-large"">&nbsp;</i></a>"
571: 
572:  end if 
573: 
574:     Context.Write "" & vbCrLf
575:     Context.Write "" & vbCrLf
576:     Context.Write ""
577: 
578:  end if 
579: 
580:     Context.Write "" & vbCrLf
581:     Context.Write "" & vbCrLf
582:     Context.Write "<div class=""gohome""><a class=""gohome"" href=""http://www.weberdevelop.de"" title=""zur Übersicht""><i class=""icon-home icon-large"">&nbsp;</i></a></div></div>"
583: 
584:  end if 
585: 
586:     Context.Write "" & vbCrLf
587:     Context.Write "" & vbCrLf
588:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "<!-- Clear Float -->" & vbCrLf
589:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "<div class=""clear""></div>" & vbCrLf
590:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "</div>" & vbCrLf
591:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "</div>" & vbCrLf
592:     Context.Write "" & vbTab & "" & vbTab & "</div>" & vbCrLf
593:     Context.Write "" & vbTab & "" & vbTab & "" & vbCrLf
594:     Context.Write "" & vbTab & "" & vbTab & "<div id=""content"">" & vbCrLf
595:     Context.Write "" & vbTab & "" & vbTab & "" & vbCrLf
596:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<!-- Header Grid -->" & vbCrLf
597:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<a id=""a1352""></a>" & vbCrLf
598:     Context.Write "<div id=""headerslider"" class=""flexslider"" <!--{ZP-INLINE-EDITING-START}" & vbCrLf
599:     Context.Write "" & vbCrLf
600:     Context.Write " data-type=""inline-editing""" & vbCrLf
601:     Context.Write " data-context=""article""" & vbCrLf
602:     Context.Write " data-area-name=""Header""" & vbCrLf
603:     Context.Write " data-item-id=""1352""" & vbCrLf
604:     Context.Write "data-item-state=""active""" & vbCrLf
605:     Context.Write "" & vbCrLf
606:     Context.Write "{ZP-INLINE-EDITING-END}-->>" & vbCrLf
607:     Context.Write "" & vbTab & "<div class=""flex-container"">" & vbCrLf
608:     Context.Write "" & vbTab & "" & vbTab & "<ul class=""slides"">" & vbCrLf
609:     Context.Write "" & vbTab & "" & vbCrLf
610:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbCrLf
611:     Context.Write "" & vbCrLf
612:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<li>" & vbCrLf
613:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbCrLf
614:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "<img src=""media/images/1_berlin-spezialimmobilie-1-large.jpg"" alt="""" />" & vbCrLf
615:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbCrLf
616:     Context.Write "" & vbCrLf
617:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbCrLf
618:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "</li>" & vbCrLf
619:     Context.Write "" & vbCrLf
620:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbCrLf
621:     Context.Write "" & vbCrLf
622:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<li>" & vbCrLf
623:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbCrLf
624:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "<img src=""media/images/2_ebersbach_kaufmann_arial-large.jpg"" alt="""" />" & vbCrLf
625:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbCrLf
626:     Context.Write "" & vbCrLf
627:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbCrLf
628:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "</li>" & vbCrLf
629:     Context.Write "" & vbCrLf
630:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbCrLf
631:     Context.Write "" & vbCrLf
632:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<li>" & vbCrLf
633:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbCrLf
634:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "<img src=""media/images/3_ebersbach-mehrfamilienhaus-large.jpg"" alt="""" />" & vbCrLf
635:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbCrLf
636:     Context.Write "" & vbCrLf
637:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbCrLf
638:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "</li>" & vbCrLf
639:     Context.Write "" & vbCrLf
640:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbCrLf
641:     Context.Write "" & vbCrLf
642:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<li>" & vbCrLf
643:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbCrLf
644:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "<img src=""media/images/4_kaufmann_eroeffnungsfeier-large.jpg"" alt="""" />" & vbCrLf
645:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbCrLf
646:     Context.Write "" & vbCrLf
647:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbCrLf
648:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "</li>" & vbCrLf
649:     Context.Write "" & vbCrLf
650:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbCrLf
651:     Context.Write "" & vbCrLf
652:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<li>" & vbCrLf
653:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbCrLf
654:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "<img src=""media/images/5_47-large.jpg"" alt="""" />" & vbCrLf
655:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbCrLf
656:     Context.Write "" & vbCrLf
657:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbCrLf
658:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "</li>" & vbCrLf
659:     Context.Write "" & vbCrLf
660:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbCrLf
661:     Context.Write "" & vbCrLf
662:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<li>" & vbCrLf
663:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbCrLf
664:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "<img src=""media/images/6_berlin-fmz-large.jpg"" alt="""" />" & vbCrLf
665:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbCrLf
666:     Context.Write "" & vbCrLf
667:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbCrLf
668:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "</li>" & vbCrLf
669:     Context.Write "" & vbCrLf
670:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbCrLf
671:     Context.Write "" & vbCrLf
672:     Context.Write "" & vbTab & "" & vbTab & "</ul>" & vbCrLf
673:     Context.Write "" & vbTab & "</div>" & vbCrLf
674:     Context.Write "</div>" & vbCrLf
675:     Context.Write "" & vbCrLf
676:     Context.Write "" & vbCrLf
677:     Context.Write "" & vbTab & "<script type=""text/javascript"" src=""media/Scripting/ServerSideScripting/js/jquery.flexslider-min.js""></script>" & vbCrLf
678:     Context.Write "" & vbTab & "<script type=""text/javascript"">" & vbCrLf
679:     Context.Write "" & vbTab & "" & vbTab & "$(window).load(function() {" & vbCrLf
680:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "$('#headerslider .flex-container').flexslider({" & vbCrLf
681:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "animation: 'slide'," & vbCrLf
682:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "slideshow: true," & vbCrLf
683:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "slideshowSpeed: 6000," & vbCrLf
684:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "directionNav:true," & vbCrLf
685:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "controlNav: true," & vbCrLf
686:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "randomize:false," & vbCrLf
687:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "controlsContainer: '#headerslider.flexslider'," & vbCrLf
688:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "pauseOnHover: true," & vbCrLf
689:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "smoothHeight: true" & vbCrLf
690:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "});" & vbCrLf
691:     Context.Write "" & vbTab & "" & vbTab & "});" & vbCrLf
692:     Context.Write "  " & vbTab & "</script>" & vbCrLf
693:     Context.Write "" & vbCrLf
694:     Context.Write "" & vbCrLf
695:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbCrLf
696:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<!-- Content Grid -->" & vbCrLf
697:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<div class=""zpRow standard""" & vbCrLf
698:     Context.Write "" & vbCrLf
699:     Context.Write "<!--{ZP-INLINE-EDITING-START}" & vbCrLf
700:     Context.Write "" & vbCrLf
701:     Context.Write " data-area-name=""Standard""" & vbCrLf
702:     Context.Write " data-row-id=""58""" & vbCrLf
703:     Context.Write "" & vbCrLf
704:     Context.Write "{ZP-INLINE-EDITING-END}-->" & vbCrLf
705:     Context.Write "" & vbCrLf
706:     Context.Write "><div class=""zpColumn zpColumnWidth1""" & vbCrLf
707:     Context.Write "" & vbCrLf
708:     Context.Write "<!--{ZP-INLINE-EDITING-START}" & vbCrLf
709:     Context.Write "" & vbCrLf
710:     Context.Write " data-column-id=""58""" & vbCrLf
711:     Context.Write " data-column-count=""1""" & vbCrLf
712:     Context.Write " data-column-count-max=""4""" & vbCrLf
713:     Context.Write "" & vbCrLf
714:     Context.Write "{ZP-INLINE-EDITING-END}-->" & vbCrLf
715:     Context.Write "" & vbCrLf
716:     Context.Write "><a id=""a1351""></a>" & vbCrLf
717:     Context.Write "" & vbCrLf
718:     Context.Write "" & vbCrLf
719:     Context.Write "" & vbCrLf
720:     Context.Write "" & vbTab & "<div class=""zpColumnItem"">" & vbCrLf
721:     Context.Write "" & vbTab & "<div class=""articlearea""" & vbCrLf
722:     Context.Write "<!--{ZP-INLINE-EDITING-START} " & vbCrLf
723:     Context.Write " data-type=""inline-editing""" & vbCrLf
724:     Context.Write " data-context=""article""" & vbCrLf
725:     Context.Write " data-area-name=""Standard"" " & vbCrLf
726:     Context.Write " data-item-id=""1351""" & vbCrLf
727:     Context.Write " data-item-state=""active""" & vbCrLf
728:     Context.Write "{ZP-INLINE-EDITING-END}-->" & vbCrLf
729:     Context.Write ">" & vbCrLf
730:     Context.Write "" & vbTab & "" & vbTab & "<h2 style=""text-align:left;"">Presse</h2>" & vbCrLf
731:     Context.Write "" & vbTab & "" & vbTab & "Platzieren Sie hier Ihre eigenen Texte und Bilder. Bearbeiten Sie diesen Text einfach durch einen Doppelklick." & vbCrLf
732:     Context.Write "" & vbTab & "" & vbTab & "</div>" & vbCrLf
733:     Context.Write "</div>" & vbCrLf
734:     Context.Write "" & vbCrLf
735:     Context.Write "</div></div>" & vbCrLf
736:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbCrLf
737:     Context.Write "" & vbTab & "" & vbTab & "</div>" & vbCrLf
738:     Context.Write "" & vbTab & "" & vbTab & "" & vbCrLf
739:     Context.Write "" & vbTab & "</div>" & vbCrLf
740:     Context.Write "" & vbTab & "<!-- End Container -->" & vbCrLf
741:     Context.Write "" & vbTab & "" & vbCrLf
742:     Context.Write "" & vbTab & "" & vbCrLf
743:     Context.Write "" & vbTab & "<div id=""footer"">" & vbCrLf
744:     Context.Write "" & vbTab & "" & vbTab & "<div class=""wrapper"">" & vbCrLf
745:     Context.Write "" & vbCrLf
746:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<!-- Page Navigation -->" & vbCrLf
747:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & ""
748: 
749:  if page_.IsAttributeTrue("show_page_navigation") then 
750: 
751:     Context.Write "<div class=""pagenav-bottom"">"
752: 
753: 
754: dim page2
755: set page2 = Context.Scope.CurrentPage
756: 
757: if not (page2 is nothing) and isValidPage(page2) then
758: 
759: 	dim prevPage2
760: 	set prevPage2 = calcPrevPage(page2)
761: 	
762: 	dim nextPage2
763: 	set nextPage2 = calcNextPage(page2)
764: 
765: 	dim prevName2
766: 	prevName2 = page1.GetInheritedAttributeValue("page_navigation_ui_prevname")
767: 
768: 	dim nextName2
769: 	nextName2 = page1.GetInheritedAttributeValue("page_navigation_ui_nextname")
770: 	
771: 
772:     Context.Write "" & vbCrLf
773:     Context.Write "" & vbCrLf
774:     Context.Write "" & vbTab & ""
775: 
776:  if (not prevPage2 is nothing) and isValidPage(prevPage2) then 
777: 
778:     Context.Write "<a class=""prev"" href="""
779: 
780: Context.Write prevPage2.Url
781: 
782:     Context.Write """ title=""Vorherige Seite""><i class=""icon-angle-left icon-large"">&nbsp;</i></a>"
783: 
784:  end if 
785: 
786:     Context.Write "" & vbCrLf
787:     Context.Write "" & vbTab & "" & vbCrLf
788:     Context.Write "" & vbTab & ""
789: 
790:  if (not nextPage2 is nothing) and isValidPage(nextPage2) then 
791: 
792:     Context.Write "<a class=""next"" href="""
793: 
794: Context.Write nextPage2.Url
795: 
796:     Context.Write """ title=""Nächste Seite""><i class=""icon-angle-right icon-large"">&nbsp;</i></a>"
797: 
798:  end if 
799: 
800:     Context.Write "" & vbCrLf
801:     Context.Write "" & vbTab & "" & vbCrLf
802:     Context.Write ""
803: 
804:  end if 
805: 
806:     Context.Write "" & vbCrLf
807:     Context.Write "" & vbCrLf
808:     Context.Write "<div class=""gotop""><a class=""gotop"" href=""#"" title=""Nach oben""><i class=""icon-angle-up icon-large"">&nbsp;</i></a></div></div>"
809: 
810:  end if 
811: 
812:     Context.Write "" & vbCrLf
813:     Context.Write "" & vbCrLf
814:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<!-- Copyright -->" & vbTab & "" & vbCrLf
815:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & ""
816: 
817:  if page_.IsAttributeTrue("show_copyright") or project_.ZpFooterLink then 
818: 
819:     Context.Write "" & vbCrLf
820:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "<div class=""footerinfo"" <!--{ZP-INLINE-EDITING-START}" & vbCrLf
821:     Context.Write "" & vbCrLf
822:     Context.Write " data-type=""inline-editing""" & vbCrLf
823:     Context.Write " data-context=""copyright""" & vbCrLf
824:     Context.Write " data-item-id=""copyright""" & vbCrLf
825:     Context.Write "" & vbCrLf
826:     Context.Write "{ZP-INLINE-EDITING-END}-->>" & vbCrLf
827:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
828: 
829:  if page_.IsAttributeTrue("show_copyright") then 
830: 
831:     Context.Write "" & vbCrLf
832:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "© 2014 Weber Development GmbH" & vbCrLf
833:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
834: 
835:  end if 
836: 
837:     Context.Write "" & vbCrLf
838:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
839: 
840:  if project_.ZpFooterLink then 
841: 
842:     Context.Write "" & vbCrLf
843:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
844: 
845:  if page_.IsAttributeTrue("show_copyright") then 
846: 
847:     Context.Write " - "
848: 
849:  end if 
850: 
851: 
852: Context.Write project_.ZpFooterLinkHtml
853: 
854:     Context.Write "" & vbCrLf
855:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
856: 
857:  end if 
858: 
859:     Context.Write "" & vbCrLf
860:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "</div>" & vbCrLf
861:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & ""
862: 
863:  end if 
864: 
865:     Context.Write "" & vbCrLf
866:     Context.Write "" & vbCrLf
867:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<!-- Extramenu -->" & vbCrLf
868:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & ""
869: 
870:  if page_.IsAttributeTrue("show_extra_menu") then 
871: 
872:     Context.Write "" & vbCrLf
873:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "<div id=""xmenu"" <!--{ZP-INLINE-EDITING-START}" & vbCrLf
874:     Context.Write "" & vbCrLf
875:     Context.Write " data-type=""inline-editing""" & vbCrLf
876:     Context.Write " data-context=""xmenu""" & vbCrLf
877:     Context.Write " data-item-id=""xmenu""" & vbCrLf
878:     Context.Write "" & vbCrLf
879:     Context.Write "{ZP-INLINE-EDITING-END}-->>" & vbCrLf
880:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
881: 
882:  if page_.HasAttribute("extramenu_1") then 
883: 
884:     Context.Write "" & vbCrLf
885:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "<a href=""index.html"""
886: 
887:  if page_.HasAttribute("extramenu_target_1") then 
888: 
889:     Context.Write " target="""""
890: 
891:  end if 
892: 
893:     Context.Write "></a>" & vbCrLf
894:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
895: 
896:  end if 
897: 
898:     Context.Write "" & vbCrLf
899:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
900: 
901:  if page_.HasAttribute("extramenu_2") then 
902: 
903:     Context.Write "" & vbCrLf
904:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "<a href=""kontakt.html"""
905: 
906:  if page_.HasAttribute("extramenu_target_2") then 
907: 
908:     Context.Write " target="""""
909: 
910:  end if 
911: 
912:     Context.Write "></a>" & vbCrLf
913:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
914: 
915:  end if 
916: 
917:     Context.Write "" & vbCrLf
918:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
919: 
920:  if page_.HasAttribute("extramenu_3") then 
921: 
922:     Context.Write "" & vbCrLf
923:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "<a href=""impressum.html"""
924: 
925:  if page_.HasAttribute("extramenu_target_3") then 
926: 
927:     Context.Write " target="""""
928: 
929:  end if 
930: 
931:     Context.Write ">Impressum</a>" & vbCrLf
932:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
933: 
934:  end if 
935: 
936:     Context.Write "" & vbCrLf
937:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "</div>" & vbCrLf
938:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & ""
939: 
940:  end if 
941: 
942:     Context.Write "" & vbCrLf
943:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbCrLf
944:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<!-- Clear Float -->" & vbCrLf
945:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<div class=""clear""></div>" & vbCrLf
946:     Context.Write "" & vbTab & "" & vbTab & "</div>" & vbCrLf
947:     Context.Write "" & vbTab & "</div>" & vbCrLf
948:     Context.Write "" & vbTab & "" & vbCrLf
949:     Context.Write "" & vbTab & "<!-- Mobile Navigation -->" & vbCrLf
950:     Context.Write "" & vbTab & "<div id=""mobile-navigation"">" & vbCrLf
951:     Context.Write "" & vbTab & "" & vbTab & "<ul><li><a href=""index.html"">Start</a>" & vbCrLf
952:     Context.Write "</li><li><a href=""unternehmen.html"">Unternehmen</a>" & vbCrLf
953:     Context.Write "</li><li><a href=""referenzen_.html"">Referenzen</a>" & vbCrLf
954:     Context.Write "</li><li><a href=""projekte.html"">Aktuelle Projekte</a>" & vbCrLf
955:     Context.Write "</li><li><a href=""expansion.html"">Expansion</a>" & vbCrLf
956:     Context.Write "</li><li><a class=""active"" href=""presse.html"">Presse</a>" & vbCrLf
957:     Context.Write "<ul><li><a href=""presseberichte-zeitungen.html"">Presseberichte in Zeitungen</a>" & vbCrLf
958:     Context.Write "</li><li><a href=""presseberichte-video-s.html"">Presseberichte als Video´s</a>" & vbCrLf
959:     Context.Write "</li></ul></li><li><a href=""fotogalerie.html"">Fotogalerie</a>" & vbCrLf
960:     Context.Write "</li><li><a href=""kontakt.html"">Kontakt</a>" & vbCrLf
961:     Context.Write "</li></ul>" & vbCrLf
962:     Context.Write "" & vbTab & "</div>" & vbCrLf
963:     Context.Write "" & vbCrLf
964:     Context.Write "<!-- Footer Script -->" & vbCrLf
965:     Context.Write "" & vbCrLf
966:     Context.Write "" & vbCrLf
967:     Context.Write "<!--" & vbCrLf
968:     Context.Write "* Layout: Dokumentation Responsive" & vbCrLf
969:     Context.Write "* $Id: default.html 26381 2014-04-29 08:52:33Z sseiz $" & vbCrLf
970:     Context.Write "* Copyright Zeta Software GmbH 2014" & vbCrLf
971:     Context.Write "-->" & vbCrLf
972:     Context.Write "</body>" & vbCrLf
973:     Context.Write "</html>" & vbCrLf
974:     Context.Write ""
975: 
976: end sub
977: 
978: End Class
979: