Hallo,
ich brauche mal etwas Unterstützung.
Bei mir erscheint foldende, mir unverständliche Fehlermeldung beim Erstellen der fast fertigen Seite:
---------------------------------------------------------------------------------------------------------------------------------
Protokoll wurde aufgrund von Größenbeschränkungen automatisch geleert.
" & vbCrLf426: Context.Write "Welt Kompakt #1341571143<br /></strong><br />" & vbCrLf
427: Context.Write "<a href=""http://www.welt.de/print/welt_kom…fit-bleibt.html"">" & vbCrLf
428: Context.Write "<img title="""" style=""width: 248px; height: 43px"" height=""56"" alt="""" src=""media/images/welt.jpg"" width=""314"" border=""0"" /></a><br />" & vbCrLf
429: Context.Write "<br />" & vbCrLf
430: Context.Write "<img title="""" style=""width: 208px; height: 49px"" height=""42"" alt="""" src=""media/images/Teaser_FTD.jpg"" width=""176"" border=""0"" /><br />" & vbCrLf
431: Context.Write " <a href=""http://www.bild.de/ratgeber/gesun…47682.bild.html"">" & vbCrLf
432: Context.Write "<img title="""" style=""width: 32px; height: 41px"" height=""72"" alt="""" src=""media/images/bild-logo.jpg"" width=""44"" border=""0"" /></a> " & vbCrLf
433: Context.Write "<a href=""http://www.shape.de/fitness/indoor…s-im-buero.html"">" & vbCrLf
434: Context.Write "<img title="""" style=""width: 77px; height: 37px"" height=""58"" alt="""" src=""media/images/shape.jpg"" width=""107"" border=""0"" /></a><a href=""http://www.conny-schumacher.de/downloads/nrz.pdf""><img title="""" height=""28"" alt="""" src=""media/images/nrz.jpg"" width=""78"" border=""0"" /></a></p></div>" & vbCrLf
435: Context.Write "</div><!--{ZP-INLINE-EDITING-START}" & vbCrLf
436: Context.Write "" & vbTab & "</div>" & vbCrLf
437: Context.Write "{ZP-INLINE-EDITING-END}--><!--{ZP-INLINE-EDITING-START}" & vbCrLf
438: Context.Write "" & vbTab & "<div class=""inline-editing"" ondblclick=""location.href='app:InlineEditing?Cmd=EditPageItem&ID=1180'"">" & vbCrLf
439: Context.Write "" & vbTab & "" & vbTab & "<div class=""inline-editing-menu-dummy""></div>" & vbTab & "" & vbCrLf
440: Context.Write "" & vbTab & "" & vbTab & "<div class=""inline-editing-menu"">" & vbCrLf
441: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<a class=""inline-editing-edit"" href=""app:InlineEditing?Cmd=EditPageItem&ID=1180"" title=""Bearbeiten"">Bearbeiten</a>" & vbCrLf
442: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<a class=""inline-editing-new"" href=""app:InlineEditing?Cmd=AddPageItem&AreaName=2 - News&ID=1180"" title=""Neuer Artikel einfügen"">Neuer Artikel einfügen</a>" & vbCrLf
443: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<a class=""inline-editing-delete"" href=""app:InlineEditing?Cmd=DeletePageItem&ID=1180"" title=""Löschen"">Löschen</a>" & vbCrLf
444: Context.Write "" & vbTab & "" & vbTab & "</div> " & vbCrLf
445: Context.Write "{ZP-INLINE-EDITING-END}--><a name=""a1180""></a>" & vbCrLf
446: Context.Write "<div class=""newsbox"">" & vbCrLf
447: Context.Write "" & vbCrLf
448: Context.Write "<div class=""newstext""><p align=""center""><strong>BUCHTIPP: Die "Fit... -" & vbCrLf
449: Context.Write "Ratgeber" <br />" & vbCrLf
450: Context.Write "von Conny Schumacher</strong></p>" & vbCrLf
451: Context.Write "<p align=""center""><a href=""http://www.amazon.de/gp/product/348…eASIN=348501191"">" & vbCrLf
452: Context.Write "<img title="""" style=""width: 109px; height: 143px"" height=""166"" alt="""" src=""media/images/7aced750bf.jpg"" width=""117"" border=""0"" /></a> <a href=""http://www.amazon.de/gp/product/383…ASIN=3839183138""><img title="""" style=""width: 104px; height: 144px"" height=""166"" alt="""" src=""media/images/Cover_Front1_web.jpg"" width=""100"" border=""0"" /></a><br />" & vbCrLf
453: Context.Write "" & vbCrLf454: Context.Write "Blick ins" & vbCrLf455: Context.Write "Buch#645589767 Blick" & vbCrLf456: Context.Write "ins Buch#756424204<br />" & vbCrLf
457: Context.Write "<em><strong>€" & vbCrLf
458: Context.Write "16,95 " & vbCrLf
459: Context.Write " € 11,90<br /></strong></em></p></div>" & vbCrLf
460: Context.Write "</div><!--{ZP-INLINE-EDITING-START}" & vbCrLf
461: Context.Write "" & vbTab & "</div>" & vbCrLf
462: Context.Write "{ZP-INLINE-EDITING-END}--><!--{ZP-INLINE-EDITING-START}" & vbCrLf
463: Context.Write "{ZP-INLINE-EDITING-END}-->" & vbCrLf
464: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
465:
466: if Context.Scope.CurrentPage.GetInheritedAttribute("Nach News").Value <> "" then
467:
468: Context.Write "<div class=""newsbox"">"
469:
470: if Context.Scope.CurrentPage.GetInheritedAttribute("Nach News_title").Value <> "" then
471:
472: Context.Write "<h2></h2>"
473:
474: end if
475:
476: Context.Write "<div class=""newstext""></div></div>"
477:
478: end if
479:
480: Context.Write "" & vbCrLf
481: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "</div>"
482:
483: end if
484:
485: Context.Write "" & vbCrLf
486: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & ""
487:
488: if (news = true) or (Context.Scope.CurrentPage.GetInheritedAttribute("Vor News").Value <> "") or (Context.Scope.CurrentPage.GetInheritedAttribute("Nach News").Value <> "") then
489:
490: Context.Write "<div class=""clearx""></div>"
491:
492: end if
493:
494: Context.Write "" & vbCrLf
495: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<div id=""footerbox"">" & vbCrLf
496: Context.Write " " & vbTab & "" & vbTab & ""
497:
498: if Context.Scope.CurrentPage.GetInheritedAttribute("extramenu_1").Value <> "" then
499:
500: Context.Write "<div id=""xmenu"">"">Intern#549293217"
501:
502: end if
503:
504:
505: if Context.Scope.CurrentPage.GetInheritedAttribute("extramenu_2").Value <> "" then
506:
507: Context.Write " "">Impressum#913797706"
508:
509: end if
510:
511:
512: if Context.Scope.CurrentPage.GetInheritedAttribute("extramenu_3").Value <> "" then
513:
514: Context.Write " "">Partner#1146501963"
515:
516: end if
517:
518:
519: if Context.Scope.CurrentPage.GetInheritedAttribute("extramenu_4").Value <> "" then
520:
521: Context.Write " #633906203"
522:
523: end if
524:
525:
526: if Context.Scope.CurrentPage.GetInheritedAttribute("extramenu_1").Value <> "" then
527:
528: Context.Write "</div>"
529:
530: end if
531:
532: Context.Write "" & vbCrLf
533: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
534:
535: if (Context.Scope.CurrentPage.GetInheritedAttribute("copyright_notice").Value <> "") or (Context.Scope.CurrentPage.GetInheritedAttribute("last_update").Value <> "") then
536:
537: Context.Write "<div id=""footer"">"
538:
539: if Context.Scope.CurrentPage.GetInheritedAttribute("copyright_notice").Value <> "" then
540:
541: Context.Write "© "
542:
543: Context.Write Year(Now)
544:
545: Context.Write " Conny Schumacher"
546:
547: end if
548:
549:
550: if Context.Scope.CurrentPage.GetInheritedAttribute("last_update").Value <> "" then
551:
552: Context.Write " "
553:
554: end if
555:
556: Context.Write "</div>"
557:
558: end if
559:
560: Context.Write "<p class=""clear""></p>" & vbCrLf
561: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "</div>" & vbCrLf
562: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & ""
563:
564: if Context.Scope.CurrentPage.GetInheritedAttribute("Fusszeile").Value <> "" then
565:
566: Context.Write "<div id=""afterfooter"">"
567:
568: if Context.Scope.CurrentPage.GetInheritedAttribute("Fusszeile_title").Value <> "" then
569:
570: Context.Write "<h3></h3>"
571:
572: end if
573:
574: Context.Write "</div>"
575:
576: end if
577:
578: Context.Write "" & vbCrLf
579: Context.Write "" & vbTab & "" & vbTab & "</div>" & vbCrLf
580: Context.Write "" & vbTab & " </div>" & vbCrLf
581: Context.Write "" & vbTab & "</div>" & vbCrLf
582: Context.Write " </div>" & vbCrLf
583: Context.Write "</body>" & vbCrLf
584: Context.Write "</html>"
585:
586: end sub
587:.
Weitere Informationen anzeigen#1771069198.
Beendet.
1 Fehler, 0 Warnung(en).
---------------------------------------------------------------------------------------------------------------------------------
Hat jemand eine gute Idee zur Fehlerbehebung?
Vielen Dank im Voraus
Herbert