ZetaProducer.RuntimeBusinessLogic.Scripting.Engine.InterpreterException

-----------------

Skript-Fehler:
---------------			  
Variable ist nicht definiert: 'CreateFolder'
---------------			  
Zeile 70, Spalte 9.
---------------			  
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: 
045: ' BEGINN - Make shop configuration
046: 
047:  public PhpConfigFilePath
048:  public PhpShopIncFilePath
049:  
050:  sub CreateShopConfig()
051: 
052:     dim configFileName
053:     configFileName = "config.inc.php"
054: 
055:     dim configFilePath
056:     configFilePath = Context.Scope.Library.CombinePath( _
057:         Context.Scope.Library.ExpandDollarMacros("$(WebOutputBaseFolder)"), _
058:         "/media/Scripting/ServerSideScripting/PHP/shop" )
059: 
060:     configFilePath = Context.Scope.Library.CombinePath( configFilePath, configFileName )
061:     configFilePath = Replace( configFilePath, "/", "\")
062: 
063:     dim configFolderPath
064:     configFolderPath = Context.Scope.CurrentWebProject.GetPathFromFullFilePath( configFilePath )
065: 
066:     dim fso
067:     set fso = CreateObject("Scripting.FileSystemObject")
068: 
069:     if not fso.FolderExists( configFolderPath ) then
070:         CreateFolder( configFolderPath )
071:     end if
072: 
073: 
074:    	dim configFileRelativePathV
075: 	configFileRelativePathV = "/media/Scripting/ServerSideScripting/PHP/shop/" & configFileName
076: 
077:    dim configFilePathV
078:    configFilePathV  = Context.Scope.CurrentWebProject.GetRelativePathFromTo( _
079:    Context.Scope.CurrentPage.VirtualPath, _
080:    "/media/Scripting/ServerSideScripting/PHP/shop/" & configFileName )
081: 
082: 	dim configFileRelativePathFtpV
083: 	configFileRelativePathFtpV = _
084: 	Context.Scope.CurrentWebProject.FtpServerFolderName & _
085: 	Context.Scope.Library.LTrimEx(configFileRelativePathV, "/")
086: 	
087: 	dim configFilePathFtpV
088: 	configFilePathFtpV = Context.Scope.Library.CombinePathV( _
089: 	        Context.Scope.CurrentWebProject.FtpServerFolderName, _
090:         	configFilePathV )
091:         
092:     	configFilePathFtpV = Context.Scope.Library.LTrimEx(configFilePathFtpV, "/")
093: 	    configFilePathV = "/" & Context.Scope.Library.LTrimEx(configFilePathV, "/")
094: 
095:     
096: 	dim file
097: 	set file = fso.CreateTextFile(configFilePath, true)
098: 
099: 	file.WriteLine("<?php")
100: 	file.WriteLine("class Configuration {")
101: 	file.WriteLine( "public static $conf_shopemail = 'bestellung@top-dessignclassix.de';" )
102: 	file.WriteLine( "public static $conf_shopname = 'TOP-DESIGNCLASSIX SHOP';" )
103: 
104: dim shippingCosts
105: shippingCosts = Replace("0",",",".")
106: 
107: 			SetLocale("en-US")
108: shippingCosts = FormatNumber(shippingCosts,,,,0)
109: 
110: 				file.WriteLine( "public static $conf_shippingcosts = " & shippingCosts &";" )
111: 
112: 	file.WriteLine( "public static $conf_currency = 'EUR';" )
113: 	file.WriteLine( "public static $conf_curr_comma = ',';" )
114: 	file.WriteLine( "public static $conf_curr_thousands = '.';" )
115: 	file.WriteLine( "public static $conf_curr_decimals = '2';" )
116: 
117: file.WriteLine( "public static $conf_payment_advance = '1';" )
118: 	file.WriteLine( "public static $conf_payment_bill = '0';" )
119: 	file.WriteLine( "public static $conf_payment_delivery = '0';" )
120: 
121: 	file.WriteLine( "public static $conf_page_agb = '" & Context.Scope.Library.RemoveInlineEditingPlaceholders("agb.html<!--{ZP-INLINE-EDITING-START}?page-id=509{ZP-INLINE-EDITING-END}-->#a1930") & "';" )
122: 
123: file.WriteLine( "public static $conf_text_ordermailfooter = '" & Context.Scope.CurrentArticle.Values.GetValue("OrderMailFooterText") & "';" )
124: 	file.WriteLine( "public static $conf_basketurl = '" & Context.Scope.Library.RemoveInlineEditingPlaceholders(Context.Scope.CurrentPage.AbsoluteUrl) & "';" )
125: 	
126: 	file.WriteLine("}")
127: 	file.WriteLine("?>")
128: 	file.Close
129: 	 
130: 	set file = nothing
131: 
132: 	' Add to publishing chain.
133: 	Context.Scope.CurrentWebProject.NotifyFileCreated( configFilePath )
134: 
135:     set fso = nothing
136: 
137: 	' The path for the PHP is somewhat different.
138: 
139:     PhpConfigFilePath = Context.Scope.Library.LTrimEx(configFilePathV, "/")
140: 
141: 	PhpShopIncFilePath = Context.Scope.CurrentWebProject.GetRelativePathFromTo( _
142: 		   Context.Scope.CurrentPage.AbsoluteUrlWithoutServer, _
143: 		   "/media/Scripting/ServerSideScripting/PHP/shop/shop.inc.php")
144: 
145: end sub
146: ' END - Make shop configuration
147: 
148: 
149: 
150: 
151: public sub ExecuteScript()
152:     Context.Write "<!--{ZP-INLINE-EDITING-START}" & vbCrLf
153:     Context.Write "" & vbTab & "<div class=""inline-editing"" ondblclick=""location.href='app:InlineEditing?Cmd=EditPageItem&ID="
154: 
155: Context.Write Context.Scope.CurrentArticle.ID
156: 
157:     Context.Write "'"">" & vbCrLf
158:     Context.Write "" & vbTab & "" & vbTab & "<div class=""inline-editing-menu-dummy""></div>" & vbTab & "" & vbCrLf
159:     Context.Write "" & vbTab & "" & vbTab & "<div class=""inline-editing-menu"">" & vbCrLf
160:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<a class=""inline-editing-edit"" href=""app:InlineEditing?Cmd=EditPageItem&ID="
161: 
162: Context.Write Context.Scope.CurrentArticle.ID
163: 
164:     Context.Write """ title=""Bearbeiten"">Bearbeiten</a>" & vbCrLf
165:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<a class=""inline-editing-new"" href=""app:InlineEditing?Cmd=AddPageItem&AreaName="
166: 
167: Context.Write Context.Scope.CurrentGrid.AreaName
168: 
169:     Context.Write "&ID="
170: 
171: Context.Write Context.Scope.CurrentArticle.ID
172: 
173:     Context.Write """ title=""Neuer Artikel einfügen"">Neuer Artikel einfügen</a>" & vbCrLf
174:     Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<a class=""inline-editing-delete"" href=""app:InlineEditing?Cmd=DeletePageItem&ID="
175: 
176: Context.Write Context.Scope.CurrentArticle.ID
177: 
178:     Context.Write """ title=""Löschen"">Löschen</a>" & vbCrLf
179:     Context.Write "" & vbTab & "" & vbTab & "</div> " & vbCrLf
180:     Context.Write "{ZP-INLINE-EDITING-END}--><a name=""a1184""></a>" & vbCrLf
181:     Context.Write "<div class=""articlearea"">" & vbCrLf
182:     Context.Write ""
183: 
184:  if Context.Scope.CurrentArticle.Name <> "" then 
185: 
186:     Context.Write "<h1>Warenkorb</h1>"
187: 
188:  end if 
189: 
190:     Context.Write "" & vbCrLf
191:     Context.Write "" & vbCrLf
192:     Context.Write ""
193:     Context.Write "" & vbCrLf
194:     Context.Write ""
195: 
196: 
197: 'EnsureScriptLibraryIncluded
198: EnsureFileTypePhp
199: 
200: 
201:     Context.Write "" & vbCrLf
202:     Context.Write "<?php if ( 0 ) { ?>" & vbCrLf
203:     Context.Write "<p style=""border:1px solid #009900;background:#e5f5e5;padding:8px;color:#009900"">Bitte beachten Sie, daß dieser Artikel nur online auf Ihrem Webserver korrekt angezeigt wird und die Darstellung in der Vorschau nur eingeschränkt möglich ist.</p>" & vbCrLf
204:     Context.Write "<!-- <?php echo(""--"" . "">"")?>" & vbCrLf
205:     Context.Write "<?php } ?>" & vbCrLf
206:     Context.Write ""
207: 
208:  if Context.Scope.CurrentPage.FileType = ".php" then 
209: 
210:     Context.Write "" & vbCrLf
211:     Context.Write ""
212:     Context.Write "" & vbCrLf
213:     Context.Write ""
214: 
215:   CreateShopConfig() 
216: 
217:     Context.Write "" & vbCrLf
218:     Context.Write "" & vbCrLf
219:     Context.Write "<?php include( dirname($_SERVER[""SCRIPT_FILENAME""]) . ""/"" . """
220: 
221: Context.Write PhpShopIncFilePath
222: 
223:     Context.Write """); ?> " & vbCrLf
224:     Context.Write "" & vbCrLf
225:     Context.Write "" & vbCrLf
226:     Context.Write ""
227: 
228:  
229: else
230: 	Context.Scope.Library.CheckAsyncStopProcessing
231: 	Context.Scope.Library.LogError "Falschen Dateityp vergeben. Bitte vergeben Sie in den Seiteneigenschaften dieser Seite den Dateityp "".php"""
232: end if
233: 
234: 
235:     Context.Write "" & vbCrLf
236:     Context.Write "<?php echo(""<"" . ""!--"")?> --><br />" & vbCrLf
237:     Context.Write "</div>" & vbCrLf
238:     Context.Write "" & vbCrLf
239:     Context.Write ""
240: 
241: 
242: ' Special workaround to get out some http headers before content is sent to the client
243: dim text
244: 
245: text = """<?php"" & vbCrLf & """
246: text = text & "header('Expires: Mon, 26 Jul 1997 05:00:00 GMT'); "
247: text = text & "header('Last-Modified: ' . Gmdate('D, d M Y H:i:s') . ' GMT'); "
248: text = text & "header('Cache-Control: no-store, no-cache, must-revalidate'); "
249: text = text & "header('Cache-Control: post-check=0, pre-check=0', false); "
250: text = text & "header('Pragma: no-cache'); "
251: text = text & "?>"""
252: 
253: Context.Scope.AddScriptToRunOnFinishedPage( "<" & "$Context.Write(" & text & " & vbCrLf & Context.Scope.RenderedText )$" & ">" )
254: 
255: 
256: 
257:     Context.Write "<!--{ZP-INLINE-EDITING-START}" & vbCrLf
258:     Context.Write "" & vbTab & "</div>" & vbCrLf
259:     Context.Write "{ZP-INLINE-EDITING-END}-->"
260: 
261: end sub
262:

-----------------

bei ZetaProducer.RuntimeBusinessLogic.Scripting.Engine.BaseInterpreter.Run()
   bei ZetaProducer.RuntimeBusinessLogic.Rendering.Core.RenderInterpreter.OnRenderArticle(String text, RenderGrid grid)
   bei ZetaProducer.RuntimeBusinessLogic.Rendering.Grids.RenderAreaGrid.FormatGridItem()
   bei ZetaProducer.RuntimeBusinessLogic.Rendering.Grids.RenderGrid.Render()
   bei ZetaProducer.RuntimeBusinessLogic.Rendering.Grids.RenderAreaGrid.Render()
   bei ZetaProducer.RuntimeBusinessLogic.Rendering.Macros.RenderGridMacros.DoProcess(String textToProcess)
   bei ZetaProducer.RuntimeBusinessLogic.Rendering.Core.RenderDispatcher.doProcess(String textToProcess)
   bei ZetaProducer.RuntimeBusinessLogic.Rendering.Core.RenderPage.renderCode(String renderText)
   bei ZetaProducer.RuntimeBusinessLogic.Rendering.Core.RenderPage.CreatePage()
   bei ZetaProducer.RuntimeBusinessLogic.Rendering.Core.RenderEngine.createPage(WebPage page)
   bei ZetaProducer.RuntimeBusinessLogic.Rendering.Core.RenderEngine.Process(RenderEngineParameterInfo parameterInfo)
   bei ZetaProducer.Main.UI.BuildPublish.Central.NonVisualBuildPublishPerformer.doWorkBuild(Object sender, DoWorkEventArgs e)
   bei ZetaProducer.Main.UI.BuildPublish.GuiBinding.AsyncRenderGuiBinder.backgroundWorker_DoWork(Object sender, DoWorkEventArgs e)
   bei System.ComponentModel.BackgroundWorker.OnDoWork(DoWorkEventArgs e)
   bei System.ComponentModel.BackgroundWorker.WorkerThreadStart(Object argument)

InterpreterException
{
	IsCancelRequest=False,
	Message="Skript-Fehler:\\r\\n---------------\\t\\t\\t  \\r\\nVariable ist nicht definiert: \\'CreateFolder\\'\\r\\n---------------\\t\\t\\t  \\r\\nZeile 70, Spalte 9.\\r\\n---------------\\t\\t\\t  \\r\\nQuelltext: \\r\\n001: option explicit\\r\\n002: \\r\\n003: ExecuteScript\\r\\n004: \\r\\n(...Versteckte Zeilen...)\\r\\n012: \\r\\n013: \\r\\n014: \\r\\n015: \\r\\n016: sub EnsureScriptLibraryIncluded()\\r\\n017:     \\' Ensure that the scripting Context.Scope.Library is included.\\r\\n018:     dim sourceFolderAbsolute\\r\\n019:     sourceFolderAbsolute = \\"$(ZPStationaryFolder)\\Scripting\\ServerSideScripting\\"\\r\\n020: \\r\\n021:     if not Context.Scope.CurrentWebProject.HasFolderAsset( sourceFolderAbsolute ) then\\r\\n022:         dim folderAsset\\r\\n023:         set folderAsset = Context.Scope.CurrentWebProject.CreateFolderAsset\\r\\n024: \\r\\n025:         folderAsset.SourceFolderPathAbsolute = sourceFolderAbsolute\\r\\n026:         folderAsset.IncludeSubfolders = true\\r\\n027:         folderAsset.DestinationFolderRelative = \\"/media/Scripting/ServerSideScripting\\"\\r\\n028:         folderAsset.Store()\\r\\n029: \\r\\n030:         Context.Scope.Library.Log \\"Added folder asset for server side scripting Context.Scope.Library.\\"\\r\\n031:     end if\\r\\n032: end sub\\r\\n033: sub EnsureFileTypePhp()\\r\\n034:     if Context.Scope.CurrentPage.FileType<>\\".php\\" and Context.Scope.CurrentPage.FileType<>\\".phtml\\" and Context.Scope.CurrentPage.FileType<>\\".shtml\\" then\\r\\n035:         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.\\"\\r\\n036: \\r\\n037:         \\'\\'\\'\\'\\'\\'\\'\\'\\'\\'\\'\\'\\'\\'\\'\\'Context.Scope.CurrentPage.FileType = \\".php\\"\\r\\n038:         \\'\\'\\'\\'\\'\\'\\'\\'\\'\\'\\'\\'\\'\\'\\'\\'Context.Scope.CurrentPage.Store\\r\\n039:     end if\\r\\n040: end sub\\r\\n041: \\r\\n042: \\r\\n043: \\r\\n044: \\r\\n045: \\' BEGINN - Make shop configuration\\r\\n046: \\r\\n047:  public PhpConfigFilePath\\r\\n048:  public PhpShopIncFilePath\\r\\n049:  \\r\\n050:  sub CreateShopConfig()\\r\\n051: \\r\\n052:     dim configFileName\\r\\n053:     configFileName = \\"config.inc.php\\"\\r\\n054: \\r\\n055:     dim configFilePath\\r\\n056:     configFilePath = Context.Scope.Library.CombinePath( _\\r\\n057:         Context.Scope.Library.ExpandDollarMacros(\\"$(WebOutputBaseFolder)\\"), _\\r\\n058:         \\"/media/Scripting/ServerSideScripting/PHP/shop\\" )\\r\\n059: \\r\\n060:     configFilePath = Context.Scope.Library.CombinePath( configFilePath, configFileName )\\r\\n061:     configFilePath = Replace( configFilePath, \\"/\\", \\"\\\\")\\r\\n062: \\r\\n063:     dim configFolderPath\\r\\n064:     configFolderPath = Context.Scope.CurrentWebProject.GetPathFromFullFilePath( configFilePath )\\r\\n065: \\r\\n066:     dim fso\\r\\n067:     set fso = CreateObject(\\"Scripting.FileSystemObject\\")\\r\\n068: \\r\\n069:     if not fso.FolderExists( configFolderPath ) then\\r\\n070:         CreateFolder( configFolderPath )\\r\\n071:     end if\\r\\n072: \\r\\n073: \\r\\n074:    \\tdim configFileRelativePathV\\r\\n075: \\tconfigFileRelativePathV = \\"/media/Scripting/ServerSideScripting/PHP/shop/\\" & configFileName\\r\\n076: \\r\\n077:    dim configFilePathV\\r\\n078:    configFilePathV  = Context.Scope.CurrentWebProject.GetRelativePathFromTo( _\\r\\n079:    Context.Scope.CurrentPage.VirtualPath, _\\r\\n080:    \\"/media/Scripting/ServerSideScripting/PHP/shop/\\" & configFileName )\\r\\n081: \\r\\n082: \\tdim configFileRelativePathFtpV\\r\\n083: \\tconfigFileRelativePathFtpV = _\\r\\n084: \\tContext.Scope.CurrentWebProject.FtpServerFolderName & _\\r\\n085: \\tContext.Scope.Library.LTrimEx(configFileRelativePathV, \\"/\\")\\r\\n086: \\t\\r\\n087: \\tdim configFilePathFtpV\\r\\n088: \\tconfigFilePathFtpV = Context.Scope.Library.CombinePathV( _\\r\\n089: \\t        Context.Scope.CurrentWebProject.FtpServerFolderName, _\\r\\n090:         \\tconfigFilePathV )\\r\\n091:         \\r\\n092:     \\tconfigFilePathFtpV = Context.Scope.Library.LTrimEx(configFilePathFtpV, \\"/\\")\\r\\n093: \\t    configFilePathV = \\"/\\" & Context.Scope.Library.LTrimEx(configFilePathV, \\"/\\")\\r\\n094: \\r\\n095:     \\r\\n096: \\tdim file\\r\\n097: \\tset file = fso.CreateTextFile(configFilePath, true)\\r\\n098: \\r\\n099: \\tfile.WriteLine(\\"<?php\\")\\r\\n100: \\tfile.WriteLine(\\"class Configuration {\\")\\r\\n101: \\tfile.WriteLine( \\"public static $conf_shopemail = \\'bestellung@top-dessignclassix.de\\';\\" )\\r\\n102: \\tfile.WriteLine( \\"public static $conf_shopname = \\'TOP-DESIGNCLASSIX SHOP\\';\\" )\\r\\n103: \\r\\n104: dim shippingCosts\\r\\n105: shippingCosts = Replace(\\"0\\",\\",\\",\\".\\")\\r\\n106: \\r\\n107: \\t\\t\\tSetLocale(\\"en-US\\")\\r\\n108: shippingCosts = FormatNumber(shippingCosts,,,,0)\\r\\n109: \\r\\n110: \\t\\t\\t\\tfile.WriteLine( \\"public static $conf_shippingcosts = \\" & shippingCosts &\\";\\" )\\r\\n111: \\r\\n112: \\tfile.WriteLine( \\"public static $conf_currency = \\'EUR\\';\\" )\\r\\n113: \\tfile.WriteLine( \\"public static $conf_curr_comma = \\',\\';\\" )\\r\\n114: \\tfile.WriteLine( \\"public static $conf_curr_thousands = \\'.\\';\\" )\\r\\n115: \\tfile.WriteLine( \\"public static $conf_curr_decimals = \\'2\\';\\" )\\r\\n116: \\r\\n117: file.WriteLine( \\"public static $conf_payment_advance = \\'1\\';\\" )\\r\\n118: \\tfile.WriteLine( \\"public static $conf_payment_bill = \\'0\\';\\" )\\r\\n119: \\tfile.WriteLine( \\"public static $conf_payment_delivery = \\'0\\';\\" )\\r\\n120: \\r\\n121: \\tfile.WriteLine( \\"public static $conf_page_agb = \\'\\" & Context.Scope.Library.RemoveInlineEditingPlaceholders(\\"agb.html<!--{ZP-INLINE-EDITING-START}?page-id=509{ZP-INLINE-EDITING-END}-->#a1930\\") & \\"\\';\\" )\\r\\n122: \\r\\n123: file.WriteLine( \\"public static $conf_text_ordermailfooter = \\'\\" & Context.Scope.CurrentArticle.Values.GetValue(\\"OrderMailFooterText\\") & \\"\\';\\" )\\r\\n124: \\tfile.WriteLine( \\"public static $conf_basketurl = \\'\\" & Context.Scope.Library.RemoveInlineEditingPlaceholders(Context.Scope.CurrentPage.AbsoluteUrl) & \\"\\';\\" )\\r\\n125: \\t\\r\\n126: \\tfile.WriteLine(\\"}\\")\\r\\n127: \\tfile.WriteLine(\\"?>\\")\\r\\n128: \\tfile.Close\\r\\n129: \\t \\r\\n130: \\tset file = nothing\\r\\n131: \\r\\n132: \\t\\' Add to publishing chain.\\r\\n133: \\tContext.Scope.CurrentWebProject.NotifyFileCreated( configFilePath )\\r\\n134: \\r\\n135:     set fso = nothing\\r\\n136: \\r\\n137: \\t\\' The path for the PHP is somewhat different.\\r\\n138: \\r\\n139:     PhpConfigFilePath = Context.Scope.Library.LTrimEx(configFilePathV, \\"/\\")\\r\\n140: \\r\\n141: \\tPhpShopIncFilePath = Context.Scope.CurrentWebProject.GetRelativePathFromTo( _\\r\\n142: \\t\\t   Context.Scope.CurrentPage.AbsoluteUrlWithoutServer, _\\r\\n143: \\t\\t   \\"/media/Scripting/ServerSideScripting/PHP/shop/shop.inc.php\\")\\r\\n144: \\r\\n145: end sub\\r\\n146: \\' END - Make shop configuration\\r\\n147: \\r\\n148: \\r\\n149: \\r\\n150: \\r\\n151: public sub ExecuteScript()\\r\\n152:     Context.Write \\"<!--{ZP-INLINE-EDITING-START}\\" & vbCrLf\\r\\n153:     Context.Write \\"\\" & vbTab & \\"<div class=\\"\\"inline-editing\\"\\" ondblclick=\\"\\"location.href=\\'app:InlineEditing?Cmd=EditPageItem&ID=\\"\\r\\n154: \\r\\n155: Context.Write Context.Scope.CurrentArticle.ID\\r\\n156: \\r\\n157:     Context.Write \\"\\'\\"\\">\\" & vbCrLf\\r\\n158:     Context.Write \\"\\" & vbTab & \\"\\" & vbTab & \\"<div class=\\"\\"inline-editing-menu-dummy\\"\\"></div>\\" & vbTab & \\"\\" & vbCrLf\\r\\n159:     Context.Write \\"\\" & vbTab & \\"\\" & vbTab & \\"<div class=\\"\\"inline-editing-menu\\"\\">\\" & vbCrLf\\r\\n160:     Context.Write \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"<a class=\\"\\"inline-editing-edit\\"\\" href=\\"\\"app:InlineEditing?Cmd=EditPageItem&ID=\\"\\r\\n161: \\r\\n162: Context.Write Context.Scope.CurrentArticle.ID\\r\\n163: \\r\\n164:     Context.Write \\"\\"\\" title=\\"\\"Bearbeiten\\"\\">Bearbeiten</a>\\" & vbCrLf\\r\\n165:     Context.Write \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"<a class=\\"\\"inline-editing-new\\"\\" href=\\"\\"app:InlineEditing?Cmd=AddPageItem&AreaName=\\"\\r\\n166: \\r\\n167: Context.Write Context.Scope.CurrentGrid.AreaName\\r\\n168: \\r\\n169:     Context.Write \\"&ID=\\"\\r\\n170: \\r\\n171: Context.Write Context.Scope.CurrentArticle.ID\\r\\n172: \\r\\n173:     Context.Write \\"\\"\\" title=\\"\\"Neuer Artikel einfügen\\"\\">Neuer Artikel einfügen</a>\\" & vbCrLf\\r\\n174:     Context.Write \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"<a class=\\"\\"inline-editing-delete\\"\\" href=\\"\\"app:InlineEditing?Cmd=DeletePageItem&ID=\\"\\r\\n175: \\r\\n176: Context.Write Context.Scope.CurrentArticle.ID\\r\\n177: \\r\\n178:     Context.Write \\"\\"\\" title=\\"\\"Löschen\\"\\">Löschen</a>\\" & vbCrLf\\r\\n179:     Context.Write \\"\\" & vbTab & \\"\\" & vbTab & \\"</div> \\" & vbCrLf\\r\\n180:     Context.Write \\"{ZP-INLINE-EDITING-END}--><a name=\\"\\"a1184\\"\\"></a>\\" & vbCrLf\\r\\n181:     Context.Write \\"<div class=\\"\\"articlearea\\"\\">\\" & vbCrLf\\r\\n182:     Context.Write \\"\\"\\r\\n183: \\r\\n184:  if Context.Scope.CurrentArticle.Name <> \\"\\" then \\r\\n185: \\r\\n186:     Context.Write \\"<h1>Warenkorb</h1>\\"\\r\\n187: \\r\\n188:  end if \\r\\n189: \\r\\n190:     Context.Write \\"\\" & vbCrLf\\r\\n191:     Context.Write \\"\\" & vbCrLf\\r\\n192:     Context.Write \\"\\"\\r\\n193:     Context.Write \\"\\" & vbCrLf\\r\\n194:     Context.Write \\"\\"\\r\\n195: \\r\\n196: \\r\\n197: \\'EnsureScriptLibraryIncluded\\r\\n198: EnsureFileTypePhp\\r\\n199: \\r\\n200: \\r\\n201:     Context.Write \\"\\" & vbCrLf\\r\\n202:     Context.Write \\"<?php if ( 0 ) { ?>\\" & vbCrLf\\r\\n203:     Context.Write \\"<p style=\\"\\"border:1px solid #009900;background:#e5f5e5;padding:8px;color:#009900\\"\\">Bitte beachten Sie, daß dieser Artikel nur online auf Ihrem Webserver korrekt angezeigt wird und die Darstellung in der Vorschau nur eingeschränkt möglich ist.</p>\\" & vbCrLf\\r\\n204:     Context.Write \\"<!-- <?php echo(\\"\\"--\\"\\" . \\"\\">\\"\\")?>\\" & vbCrLf\\r\\n205:     Context.Write \\"<?php } ?>\\" & vbCrLf\\r\\n206:     Context.Write \\"\\"\\r\\n207: \\r\\n208:  if Context.Scope.CurrentPage.FileType = \\".php\\" then \\r\\n209: \\r\\n210:     Context.Write \\"\\" & vbCrLf\\r\\n211:     Context.Write \\"\\"\\r\\n212:     Context.Write \\"\\" & vbCrLf\\r\\n213:     Context.Write \\"\\"\\r\\n214: \\r\\n215:   CreateShopConfig() \\r\\n216: \\r\\n217:     Context.Write \\"\\" & vbCrLf\\r\\n218:     Context.Write \\"\\" & vbCrLf\\r\\n219:     Context.Write \\"<?php include( dirname($_SERVER[\\"\\"SCRIPT_FILENAME\\"\\"]) . \\"\\"/\\"\\" . \\"\\"\\"\\r\\n220: \\r\\n221: Context.Write PhpShopIncFilePath\\r\\n222: \\r\\n223:     Context.Write \\"\\"\\"); ?> \\" & vbCrLf\\r\\n224:     Context.Write \\"\\" & vbCrLf\\r\\n225:     Context.Write \\"\\" & vbCrLf\\r\\n226:     Context.Write \\"\\"\\r\\n227: \\r\\n228:  \\r\\n229: else\\r\\n230: \\tContext.Scope.Library.CheckAsyncStopProcessing\\r\\n231: \\tContext.Scope.Library.LogError \\"Falschen Dateityp vergeben. Bitte vergeben Sie in den Seiteneigenschaften dieser Seite den Dateityp \\"\\".php\\"\\"\\"\\r\\n232: end if\\r\\n233: \\r\\n234: \\r\\n235:     Context.Write \\"\\" & vbCrLf\\r\\n236:     Context.Write \\"<?php echo(\\"\\"<\\"\\" . \\"\\"!--\\"\\")?> --><br />\\" & vbCrLf\\r\\n237:     Context.Write \\"</div>\\" & vbCrLf\\r\\n238:     Context.Write \\"\\" & vbCrLf\\r\\n239:     Context.Write \\"\\"\\r\\n240: \\r\\n241: \\r\\n242: \\' Special workaround to get out some http headers before content is sent to the client\\r\\n243: dim text\\r\\n244: \\r\\n245: text = \\"\\"\\"<?php\\"\\" & vbCrLf & \\"\\"\\"\\r\\n246: text = text & \\"header(\\'Expires: Mon, 26 Jul 1997 05:00:00 GMT\\'); \\"\\r\\n247: text = text & \\"header(\\'Last-Modified: \\' . Gmdate(\\'D, d M Y H:i:s\\') . \\' GMT\\'); \\"\\r\\n248: text = text & \\"header(\\'Cache-Control: no-store, no-cache, must-revalidate\\'); \\"\\r\\n249: text = text & \\"header(\\'Cache-Control: post-check=0, pre-check=0\\', false); \\"\\r\\n250: text = text & \\"header(\\'Pragma: no-cache\\'); \\"\\r\\n251: text = text & \\"?>\\"\\"\\"\\r\\n252: \\r\\n253: Context.Scope.AddScriptToRunOnFinishedPage( \\"<\\" & \\"$Context.Write(\\" & text & \\" & vbCrLf & Context.Scope.RenderedText )$\\" & \\">\\" )\\r\\n254: \\r\\n255: \\r\\n256: \\r\\n257:     Context.Write \\"<!--{ZP-INLINE-EDITING-START}\\" & vbCrLf\\r\\n258:     Context.Write \\"\\" & vbTab & \\"</div>\\" & vbCrLf\\r\\n259:     Context.Write \\"{ZP-INLINE-EDITING-END}-->\\"\\r\\n260: \\r\\n261: end sub\\r\\n262: \\r\\n",
	CompleteSourceText="001: option explicit\\r\\n002: \\r\\n003: ExecuteScript\\r\\n004: \\r\\n(...Versteckte Zeilen...)\\r\\n012: \\r\\n013: \\r\\n014: \\r\\n015: \\r\\n016: sub EnsureScriptLibraryIncluded()\\r\\n017:     \\' Ensure that the scripting Context.Scope.Library is included.\\r\\n018:     dim sourceFolderAbsolute\\r\\n019:     sourceFolderAbsolute = \\"$(ZPStationaryFolder)\\Scripting\\ServerSideScripting\\"\\r\\n020: \\r\\n021:     if not Context.Scope.CurrentWebProject.HasFolderAsset( sourceFolderAbsolute ) then\\r\\n022:         dim folderAsset\\r\\n023:         set folderAsset = Context.Scope.CurrentWebProject.CreateFolderAsset\\r\\n024: \\r\\n025:         folderAsset.SourceFolderPathAbsolute = sourceFolderAbsolute\\r\\n026:         folderAsset.IncludeSubfolders = true\\r\\n027:         folderAsset.DestinationFolderRelative = \\"/media/Scripting/ServerSideScripting\\"\\r\\n028:         folderAsset.Store()\\r\\n029: \\r\\n030:         Context.Scope.Library.Log \\"Added folder asset for server side scripting Context.Scope.Library.\\"\\r\\n031:     end if\\r\\n032: end sub\\r\\n033: sub EnsureFileTypePhp()\\r\\n034:     if Context.Scope.CurrentPage.FileType<>\\".php\\" and Context.Scope.CurrentPage.FileType<>\\".phtml\\" and Context.Scope.CurrentPage.FileType<>\\".shtml\\" then\\r\\n035:         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.\\"\\r\\n036: \\r\\n037:         \\'\\'\\'\\'\\'\\'\\'\\'\\'\\'\\'\\'\\'\\'\\'\\'Context.Scope.CurrentPage.FileType = \\".php\\"\\r\\n038:         \\'\\'\\'\\'\\'\\'\\'\\'\\'\\'\\'\\'\\'\\'\\'\\'Context.Scope.CurrentPage.Store\\r\\n039:     end if\\r\\n040: end sub\\r\\n041: \\r\\n042: \\r\\n043: \\r\\n044: \\r\\n045: \\' BEGINN - Make shop configuration\\r\\n046: \\r\\n047:  public PhpConfigFilePath\\r\\n048:  public PhpShopIncFilePath\\r\\n049:  \\r\\n050:  sub CreateShopConfig()\\r\\n051: \\r\\n052:     dim configFileName\\r\\n053:     configFileName = \\"config.inc.php\\"\\r\\n054: \\r\\n055:     dim configFilePath\\r\\n056:     configFilePath = Context.Scope.Library.CombinePath( _\\r\\n057:         Context.Scope.Library.ExpandDollarMacros(\\"$(WebOutputBaseFolder)\\"), _\\r\\n058:         \\"/media/Scripting/ServerSideScripting/PHP/shop\\" )\\r\\n059: \\r\\n060:     configFilePath = Context.Scope.Library.CombinePath( configFilePath, configFileName )\\r\\n061:     configFilePath = Replace( configFilePath, \\"/\\", \\"\\\\")\\r\\n062: \\r\\n063:     dim configFolderPath\\r\\n064:     configFolderPath = Context.Scope.CurrentWebProject.GetPathFromFullFilePath( configFilePath )\\r\\n065: \\r\\n066:     dim fso\\r\\n067:     set fso = CreateObject(\\"Scripting.FileSystemObject\\")\\r\\n068: \\r\\n069:     if not fso.FolderExists( configFolderPath ) then\\r\\n070:         CreateFolder( configFolderPath )\\r\\n071:     end if\\r\\n072: \\r\\n073: \\r\\n074:    \\tdim configFileRelativePathV\\r\\n075: \\tconfigFileRelativePathV = \\"/media/Scripting/ServerSideScripting/PHP/shop/\\" & configFileName\\r\\n076: \\r\\n077:    dim configFilePathV\\r\\n078:    configFilePathV  = Context.Scope.CurrentWebProject.GetRelativePathFromTo( _\\r\\n079:    Context.Scope.CurrentPage.VirtualPath, _\\r\\n080:    \\"/media/Scripting/ServerSideScripting/PHP/shop/\\" & configFileName )\\r\\n081: \\r\\n082: \\tdim configFileRelativePathFtpV\\r\\n083: \\tconfigFileRelativePathFtpV = _\\r\\n084: \\tContext.Scope.CurrentWebProject.FtpServerFolderName & _\\r\\n085: \\tContext.Scope.Library.LTrimEx(configFileRelativePathV, \\"/\\")\\r\\n086: \\t\\r\\n087: \\tdim configFilePathFtpV\\r\\n088: \\tconfigFilePathFtpV = Context.Scope.Library.CombinePathV( _\\r\\n089: \\t        Context.Scope.CurrentWebProject.FtpServerFolderName, _\\r\\n090:         \\tconfigFilePathV )\\r\\n091:         \\r\\n092:     \\tconfigFilePathFtpV = Context.Scope.Library.LTrimEx(configFilePathFtpV, \\"/\\")\\r\\n093: \\t    configFilePathV = \\"/\\" & Context.Scope.Library.LTrimEx(configFilePathV, \\"/\\")\\r\\n094: \\r\\n095:     \\r\\n096: \\tdim file\\r\\n097: \\tset file = fso.CreateTextFile(configFilePath, true)\\r\\n098: \\r\\n099: \\tfile.WriteLine(\\"<?php\\")\\r\\n100: \\tfile.WriteLine(\\"class Configuration {\\")\\r\\n101: \\tfile.WriteLine( \\"public static $conf_shopemail = \\'bestellung@top-dessignclassix.de\\';\\" )\\r\\n102: \\tfile.WriteLine( \\"public static $conf_shopname = \\'TOP-DESIGNCLASSIX SHOP\\';\\" )\\r\\n103: \\r\\n104: dim shippingCosts\\r\\n105: shippingCosts = Replace(\\"0\\",\\",\\",\\".\\")\\r\\n106: \\r\\n107: \\t\\t\\tSetLocale(\\"en-US\\")\\r\\n108: shippingCosts = FormatNumber(shippingCosts,,,,0)\\r\\n109: \\r\\n110: \\t\\t\\t\\tfile.WriteLine( \\"public static $conf_shippingcosts = \\" & shippingCosts &\\";\\" )\\r\\n111: \\r\\n112: \\tfile.WriteLine( \\"public static $conf_currency = \\'EUR\\';\\" )\\r\\n113: \\tfile.WriteLine( \\"public static $conf_curr_comma = \\',\\';\\" )\\r\\n114: \\tfile.WriteLine( \\"public static $conf_curr_thousands = \\'.\\';\\" )\\r\\n115: \\tfile.WriteLine( \\"public static $conf_curr_decimals = \\'2\\';\\" )\\r\\n116: \\r\\n117: file.WriteLine( \\"public static $conf_payment_advance = \\'1\\';\\" )\\r\\n118: \\tfile.WriteLine( \\"public static $conf_payment_bill = \\'0\\';\\" )\\r\\n119: \\tfile.WriteLine( \\"public static $conf_payment_delivery = \\'0\\';\\" )\\r\\n120: \\r\\n121: \\tfile.WriteLine( \\"public static $conf_page_agb = \\'\\" & Context.Scope.Library.RemoveInlineEditingPlaceholders(\\"agb.html<!--{ZP-INLINE-EDITING-START}?page-id=509{ZP-INLINE-EDITING-END}-->#a1930\\") & \\"\\';\\" )\\r\\n122: \\r\\n123: file.WriteLine( \\"public static $conf_text_ordermailfooter = \\'\\" & Context.Scope.CurrentArticle.Values.GetValue(\\"OrderMailFooterText\\") & \\"\\';\\" )\\r\\n124: \\tfile.WriteLine( \\"public static $conf_basketurl = \\'\\" & Context.Scope.Library.RemoveInlineEditingPlaceholders(Context.Scope.CurrentPage.AbsoluteUrl) & \\"\\';\\" )\\r\\n125: \\t\\r\\n126: \\tfile.WriteLine(\\"}\\")\\r\\n127: \\tfile.WriteLine(\\"?>\\")\\r\\n128: \\tfile.Close\\r\\n129: \\t \\r\\n130: \\tset file = nothing\\r\\n131: \\r\\n132: \\t\\' Add to publishing chain.\\r\\n133: \\tContext.Scope.CurrentWebProject.NotifyFileCreated( configFilePath )\\r\\n134: \\r\\n135:     set fso = nothing\\r\\n136: \\r\\n137: \\t\\' The path for the PHP is somewhat different.\\r\\n138: \\r\\n139:     PhpConfigFilePath = Context.Scope.Library.LTrimEx(configFilePathV, \\"/\\")\\r\\n140: \\r\\n141: \\tPhpShopIncFilePath = Context.Scope.CurrentWebProject.GetRelativePathFromTo( _\\r\\n142: \\t\\t   Context.Scope.CurrentPage.AbsoluteUrlWithoutServer, _\\r\\n143: \\t\\t   \\"/media/Scripting/ServerSideScripting/PHP/shop/shop.inc.php\\")\\r\\n144: \\r\\n145: end sub\\r\\n146: \\' END - Make shop configuration\\r\\n147: \\r\\n148: \\r\\n149: \\r\\n150: \\r\\n151: public sub ExecuteScript()\\r\\n152:     Context.Write \\"<!--{ZP-INLINE-EDITING-START}\\" & vbCrLf\\r\\n153:     Context.Write \\"\\" & vbTab & \\"<div class=\\"\\"inline-editing\\"\\" ondblclick=\\"\\"location.href=\\'app:InlineEditing?Cmd=EditPageItem&ID=\\"\\r\\n154: \\r\\n155: Context.Write Context.Scope.CurrentArticle.ID\\r\\n156: \\r\\n157:     Context.Write \\"\\'\\"\\">\\" & vbCrLf\\r\\n158:     Context.Write \\"\\" & vbTab & \\"\\" & vbTab & \\"<div class=\\"\\"inline-editing-menu-dummy\\"\\"></div>\\" & vbTab & \\"\\" & vbCrLf\\r\\n159:     Context.Write \\"\\" & vbTab & \\"\\" & vbTab & \\"<div class=\\"\\"inline-editing-menu\\"\\">\\" & vbCrLf\\r\\n160:     Context.Write \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"<a class=\\"\\"inline-editing-edit\\"\\" href=\\"\\"app:InlineEditing?Cmd=EditPageItem&ID=\\"\\r\\n161: \\r\\n162: Context.Write Context.Scope.CurrentArticle.ID\\r\\n163: \\r\\n164:     Context.Write \\"\\"\\" title=\\"\\"Bearbeiten\\"\\">Bearbeiten</a>\\" & vbCrLf\\r\\n165:     Context.Write \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"<a class=\\"\\"inline-editing-new\\"\\" href=\\"\\"app:InlineEditing?Cmd=AddPageItem&AreaName=\\"\\r\\n166: \\r\\n167: Context.Write Context.Scope.CurrentGrid.AreaName\\r\\n168: \\r\\n169:     Context.Write \\"&ID=\\"\\r\\n170: \\r\\n171: Context.Write Context.Scope.CurrentArticle.ID\\r\\n172: \\r\\n173:     Context.Write \\"\\"\\" title=\\"\\"Neuer Artikel einfügen\\"\\">Neuer Artikel einfügen</a>\\" & vbCrLf\\r\\n174:     Context.Write \\"\\" & vbTab & \\"\\" & vbTab & \\"\\" & vbTab & \\"<a class=\\"\\"inline-editing-delete\\"\\" href=\\"\\"app:InlineEditing?Cmd=DeletePageItem&ID=\\"\\r\\n175: \\r\\n176: Context.Write Context.Scope.CurrentArticle.ID\\r\\n177: \\r\\n178:     Context.Write \\"\\"\\" title=\\"\\"Löschen\\"\\">Löschen</a>\\" & vbCrLf\\r\\n179:     Context.Write \\"\\" & vbTab & \\"\\" & vbTab & \\"</div> \\" & vbCrLf\\r\\n180:     Context.Write \\"{ZP-INLINE-EDITING-END}--><a name=\\"\\"a1184\\"\\"></a>\\" & vbCrLf\\r\\n181:     Context.Write \\"<div class=\\"\\"articlearea\\"\\">\\" & vbCrLf\\r\\n182:     Context.Write \\"\\"\\r\\n183: \\r\\n184:  if Context.Scope.CurrentArticle.Name <> \\"\\" then \\r\\n185: \\r\\n186:     Context.Write \\"<h1>Warenkorb</h1>\\"\\r\\n187: \\r\\n188:  end if \\r\\n189: \\r\\n190:     Context.Write \\"\\" & vbCrLf\\r\\n191:     Context.Write \\"\\" & vbCrLf\\r\\n192:     Context.Write \\"\\"\\r\\n193:     Context.Write \\"\\" & vbCrLf\\r\\n194:     Context.Write \\"\\"\\r\\n195: \\r\\n196: \\r\\n197: \\'EnsureScriptLibraryIncluded\\r\\n198: EnsureFileTypePhp\\r\\n199: \\r\\n200: \\r\\n201:     Context.Write \\"\\" & vbCrLf\\r\\n202:     Context.Write \\"<?php if ( 0 ) { ?>\\" & vbCrLf\\r\\n203:     Context.Write \\"<p style=\\"\\"border:1px solid #009900;background:#e5f5e5;padding:8px;color:#009900\\"\\">Bitte beachten Sie, daß dieser Artikel nur online auf Ihrem Webserver korrekt angezeigt wird und die Darstellung in der Vorschau nur eingeschränkt möglich ist.</p>\\" & vbCrLf\\r\\n204:     Context.Write \\"<!-- <?php echo(\\"\\"--\\"\\" . \\"\\">\\"\\")?>\\" & vbCrLf\\r\\n205:     Context.Write \\"<?php } ?>\\" & vbCrLf\\r\\n206:     Context.Write \\"\\"\\r\\n207: \\r\\n208:  if Context.Scope.CurrentPage.FileType = \\".php\\" then \\r\\n209: \\r\\n210:     Context.Write \\"\\" & vbCrLf\\r\\n211:     Context.Write \\"\\"\\r\\n212:     Context.Write \\"\\" & vbCrLf\\r\\n213:     Context.Write \\"\\"\\r\\n214: \\r\\n215:   CreateShopConfig() \\r\\n216: \\r\\n217:     Context.Write \\"\\" & vbCrLf\\r\\n218:     Context.Write \\"\\" & vbCrLf\\r\\n219:     Context.Write \\"<?php include( dirname($_SERVER[\\"\\"SCRIPT_FILENAME\\"\\"]) . \\"\\"/\\"\\" . \\"\\"\\"\\r\\n220: \\r\\n221: Context.Write PhpShopIncFilePath\\r\\n222: \\r\\n223:     Context.Write \\"\\"\\"); ?> \\" & vbCrLf\\r\\n224:     Context.Write \\"\\" & vbCrLf\\r\\n225:     Context.Write \\"\\" & vbCrLf\\r\\n226:     Context.Write \\"\\"\\r\\n227: \\r\\n228:  \\r\\n229: else\\r\\n230: \\tContext.Scope.Library.CheckAsyncStopProcessing\\r\\n231: \\tContext.Scope.Library.LogError \\"Falschen Dateityp vergeben. Bitte vergeben Sie in den Seiteneigenschaften dieser Seite den Dateityp \\"\\".php\\"\\"\\"\\r\\n232: end if\\r\\n233: \\r\\n234: \\r\\n235:     Context.Write \\"\\" & vbCrLf\\r\\n236:     Context.Write \\"<?php echo(\\"\\"<\\"\\" . \\"\\"!--\\"\\")?> --><br />\\" & vbCrLf\\r\\n237:     Context.Write \\"</div>\\" & vbCrLf\\r\\n238:     Context.Write \\"\\" & vbCrLf\\r\\n239:     Context.Write \\"\\"\\r\\n240: \\r\\n241: \\r\\n242: \\' Special workaround to get out some http headers before content is sent to the client\\r\\n243: dim text\\r\\n244: \\r\\n245: text = \\"\\"\\"<?php\\"\\" & vbCrLf & \\"\\"\\"\\r\\n246: text = text & \\"header(\\'Expires: Mon, 26 Jul 1997 05:00:00 GMT\\'); \\"\\r\\n247: text = text & \\"header(\\'Last-Modified: \\' . Gmdate(\\'D, d M Y H:i:s\\') . \\' GMT\\'); \\"\\r\\n248: text = text & \\"header(\\'Cache-Control: no-store, no-cache, must-revalidate\\'); \\"\\r\\n249: text = text & \\"header(\\'Cache-Control: post-check=0, pre-check=0\\', false); \\"\\r\\n250: text = text & \\"header(\\'Pragma: no-cache\\'); \\"\\r\\n251: text = text & \\"?>\\"\\"\\"\\r\\n252: \\r\\n253: Context.Scope.AddScriptToRunOnFinishedPage( \\"<\\" & \\"$Context.Write(\\" & text & \\" & vbCrLf & Context.Scope.RenderedText )$\\" & \\">\\" )\\r\\n254: \\r\\n255: \\r\\n256: \\r\\n257:     Context.Write \\"<!--{ZP-INLINE-EDITING-START}\\" & vbCrLf\\r\\n258:     Context.Write \\"\\" & vbTab & \\"</div>\\" & vbCrLf\\r\\n259:     Context.Write \\"{ZP-INLINE-EDITING-END}-->\\"\\r\\n260: \\r\\n261: end sub\\r\\n262: \\r\\n",
	ExcepInfo=EXCEPINFO
	{
	},
	LineNumber=69,
	ColumnNumber=8,
	SourceLine="",
	SourceContext=0,
	Description="Variable ist nicht definiert: \\'CreateFolder\\'",
	Data=
	[
	]
,
	InnerException=null,
	TargetSite=RuntimeMethodInfo: Run,
	StackTrace="   bei ZetaProducer.RuntimeBusinessLogic.Scripting.Engine.BaseInterpreter.Run()\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Rendering.Core.RenderInterpreter.OnRenderArticle(String text, RenderGrid grid)\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Rendering.Grids.RenderAreaGrid.FormatGridItem()\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Rendering.Grids.RenderGrid.Render()\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Rendering.Grids.RenderAreaGrid.Render()\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Rendering.Macros.RenderGridMacros.DoProcess(String textToProcess)\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Rendering.Core.RenderDispatcher.doProcess(String textToProcess)\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Rendering.Core.RenderPage.renderCode(String renderText)\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Rendering.Core.RenderPage.CreatePage()\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Rendering.Core.RenderEngine.createPage(WebPage page)\\r\\n   bei ZetaProducer.RuntimeBusinessLogic.Rendering.Core.RenderEngine.Process(RenderEngineParameterInfo parameterInfo)\\r\\n   bei ZetaProducer.Main.UI.BuildPublish.Central.NonVisualBuildPublishPerformer.doWorkBuild(Object sender, DoWorkEventArgs e)\\r\\n   bei ZetaProducer.Main.UI.BuildPublish.GuiBinding.AsyncRenderGuiBinder.backgroundWorker_DoWork(Object sender, DoWorkEventArgs e)\\r\\n   bei System.ComponentModel.BackgroundWorker.OnDoWork(DoWorkEventArgs e)\\r\\n   bei System.ComponentModel.BackgroundWorker.WorkerThreadStart(Object argument)",
	HelpLink=null,
	Source="ActiveScriptSite.ScriptError"
}