So nu hab ich den Salat. Hab unter Aktionen n bischen was probiert, z,B, Artikeltexte XHTML konform machen und NBSP in allen Artikeln ersetzen und nu bekomm ich folgende Fehlermeldung (knallrot):
Fehler (10.7.0.0) - Skript-Fehler:
---------------
Nicht abgeschlossene Zeichenfolgenkonstante
---------------
Zeile 114, Spalte 120.
---------------
Quelltext:
001: option explicit
002:
003: ExecuteScript
004:
(...Versteckte Zeilen...)
012:
013:
014:
015:
016: sub EnsureScriptLibraryIncluded()
017: ' Ensure that the scripting Context.Scope.Library is included.
018: dim sourceFolderAbsolute
019: sourceFolderAbsolute = "$(ZPStationaryFolder)\Scripting\ServerSideScripting"
020:
021: if not Context.Scope.CurrentWebProject.HasFolderAsset( sourceFolderAbsolute ) then
022: dim folderAsset
023: set folderAsset = Context.Scope.CurrentWebProject.CreateFolderAsset
024:
025: folderAsset.SourceFolderPathAbsolute = sourceFolderAbsolute
026: folderAsset.IncludeSubfolders = true
027: folderAsset.DestinationFolderRelative = "/media/Scripting/ServerSideScripting"
028: folderAsset.Store()
029:
030: Context.Scope.Library.Log "Added folder asset for server side scripting Context.Scope.Library."
031: end if
032: end sub
033: sub EnsureFileTypePhp()
034: if Context.Scope.CurrentPage.FileType<>".php" and Context.Scope.CurrentPage.FileType<>".phtml" and Context.Scope.CurrentPage.FileType<>".shtml" then
035: Context.Scope.Library.LogWarning "The file type of the page '" & Context.Scope.CurrentPage.Name & "' is not '.php'. Please adjust the file type of the page to correctly display the article '" & Context.Scope.CurrentArticle.Name & "'. To adjust the file type open the page properties and click the 'Paths and folders' tab."
036:
037: ''''''''''''''''Context.Scope.CurrentPage.FileType = ".php"
038: ''''''''''''''''Context.Scope.CurrentPage.Store
039: end if
040: end sub
041:
042:
043:
044: public sub ExecuteScript()
045: Context.Write "<!--{ZP-INLINE-EDITING-START}" & vbCrLf
046: Context.Write "" & vbTab & "<div class=""inline-editing"" ondblclick=""location.href='app:InlineEditing?Cmd=EditPageItem&ID="
047:
048: Context.Write Context.Scope.CurrentArticle.ID
049:
050: Context.Write "'"">" & vbCrLf
051: Context.Write "" & vbTab & "" & vbTab & "<div class=""inline-editing-menu-dummy""></div>" & vbTab & "" & vbCrLf
052: Context.Write "" & vbTab & "" & vbTab & "<div class=""inline-editing-menu"">" & vbCrLf
053: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<a class=""inline-editing-edit"" href=""app:InlineEditing?Cmd=EditPageItem&ID="
054:
055: Context.Write Context.Scope.CurrentArticle.ID
056:
057: Context.Write """ title=""Bearbeiten"">Bearbeiten</a>" & vbCrLf
058: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<a class=""inline-editing-new"" href=""app:InlineEditing?Cmd=AddPageItem&AreaName="
059:
060: Context.Write Context.Scope.CurrentGrid.AreaName
061:
062: Context.Write "&ID="
063:
064: Context.Write Context.Scope.CurrentArticle.ID
065:
066: Context.Write """ title=""Neuer Artikel einfügen"">Neuer Artikel einfügen</a>" & vbCrLf
067: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<a class=""inline-editing-delete"" href=""app:InlineEditing?Cmd=DeletePageItem&ID="
068:
069: Context.Write Context.Scope.CurrentArticle.ID
070:
071: Context.Write """ title=""Löschen"">Löschen</a>" & vbCrLf
072: Context.Write "" & vbTab & "" & vbTab & "</div> " & vbCrLf
073: Context.Write "{ZP-INLINE-EDITING-END}-->"
074:
075:
076: if Context.Scope.CurrentPage.FileType <> ".php" then
077: Context.Scope.Library.ThrowNotifyException "Falschen Dateityp vergeben. Bitte vergeben Sie in den Seiteneigenschaften dieser Seite den Dateityp "".php"""
078: end if
079: if Context.Scope.CurrentWebProject.WwwAddress = "" then
080: Context.Scope.Library.ThrowNotifyException "Bitte geben Sie die URL Ihres Internet-Auftritts an. Diese Einstellung finden Sie unter ""Website->Darstellung konfigurieren""."
081: end if
082:
083:
084: Context.Write "" & vbCrLf
085: Context.Write "<?php if ( 0 ) { ?>" & vbCrLf
086: Context.Write "<div style=""border: 1px #ffffff solid; background:#ff6600; padding:5px 10px; color:#ffffff; position:fixed; top:0; left:0; width:100%; z-index:9999;""><b>Geschützter Bereich:</b> Diese Seite wird auf Ihrem Webserver durch ein Kennwort geschützt.</div>" & vbCrLf
087: Context.Write "<?php " & vbCrLf
088: Context.Write "" & vbTab & " }" & vbCrLf
089: Context.Write "" & vbTab & " $uiUrl = $siteUrl . ""/media/Scripting/ServerSideScripting/PHP/pa/etc/jquery/jquery-ui-1.8.16.custom.min.js"";" & vbCrLf
090: Context.Write "" & vbTab & " echo '<script type=""text/javascript"" src=""' . $uiUrl . '""></script>" & vbCrLf
091: Context.Write "';" & vbCrLf
092: Context.Write "" & vbTab & " echo '<div style=""padding:0 10px 10px 0; position:fixed; bottom:0; right:0; z-index:9999;""><input type=""button"" id=""paLogout"" onClick=""javascript:window.location = \'?action=logout\'; return false;"" value=""Abmelden"" title=""Von diesem Bereich abmelden""/></div><script type=""text/javascript"">$( ""#paLogout"" ).button();</script>';" & vbCrLf
093: Context.Write "" & vbTab & " " & vbCrLf
094: Context.Write "?>" & vbCrLf
095: Context.Write "" & vbCrLf
096: Context.Write ""
097: Context.Write "" & vbCrLf
098: Context.Write ""
099:
100:
101: 'EnsureScriptLibraryIncluded
102: EnsureFileTypePhp
103:
104:
105: Context.Write "" & vbCrLf
106: Context.Write "" & vbTab & " " & vbTab & " " & vbTab & " " & vbCrLf
107: Context.Write ""
108:
109:
110: dim text
111:
112: text = """<?php "
113: text = text & "ob_start(); "
114: text = text & "$displayPagePassword = 'oase'; $areaName = 'oase'; $areaTitle = 'Du komms hier net rein! Es sein denn...
115: PASSWORT!!!'; $pageUrl ='" + Context.Scope.Library.RemoveInlineEditingPlaceholders(Context.Scope.CurrentPage.AbsoluteUrl) + "'; $siteUrl ='" + Context.Scope.CurrentWebProject.WwwAddress + "'; require_once(dirname($_SERVER['SCRIPT_FILENAME']) . '/' . 'media/Scripting/ServerSideScripting/PHP/pa/pa.main.php');"
116: text = text & "?>"""
117:
118: Context.Scope.AddScriptToRunOnFinishedPage( "<" & "$Context.Write(" & text & " & vbCrLf & Context.Scope.RenderedText )$" & ">" )
119:
120:
121: Context.Write "<!--{ZP-INLINE-EDITING-START}" & vbCrLf
122: Context.Write "" & vbTab & "</div>" & vbCrLf
123: Context.Write "{ZP-INLINE-EDITING-END}-->"
124:
125: end sub
126:.
Wenn da jemand was mit anfangen kann kann mir da bestimmt helfen. Denn ich kann nu nicht mehr veröffentlichen und so weiter... Dankeschön