na super, beim update auf 12.02 kommen folgende Fehlermeldungen:
Fehler während der Verarbeitung.
Fehler beim Validieren des Projekts.
Skript-Fehler:
---------------
Dynamische SQL-Generierung für den DeleteCommand wird nicht für einen SelectCommand unterstützt, der keine Schlüsselspalteninformationen zurückgibt.
---------------
Zeile 149, Spalte 3.
---------------
Quelltext:
001: option explicit
002:
003: Dim c__
004: Set c__ = new ScriptExecutor
005: c__.ExecuteScript
006:
007: Class ScriptExecutor
(...Versteckte Zeilen...)
045:
046:
(...Versteckte Zeilen...)
084:
085:
086:
087: public sub ExecuteScript()
088: Context.Write "<a id=""a1765""></a>" & vbCrLf
089: Context.Write "<div class=""articlearea popupimage""<!--{ZP-INLINE-EDITING-START}" & vbCrLf
090: Context.Write " " & vbCrLf
091: Context.Write " data-type=""inline-editing""" & vbCrLf
092: Context.Write " data-context=""article""" & vbCrLf
093: Context.Write " data-area-name="""
094:
095: Context.Write grid_.AreaName
096:
097: Context.Write """" & vbCrLf
098: Context.Write " data-item-id="""
099:
100: Context.Write pageItem_.ID
101:
102: Context.Write """" & vbCrLf
103: Context.Write " "
104:
105: if pageItem_.IsActive then
106:
107: Context.Write "data-item-state=""active"""
108:
109: else
110:
111: Context.Write "data-item-state=""inactive"""
112:
113: end if
114:
115: Context.Write "" & vbCrLf
116: Context.Write "" & vbCrLf
117: Context.Write "{ZP-INLINE-EDITING-END}-->>" & vbCrLf
118: Context.Write "" & vbCrLf
119: Context.Write "" & vbTab & ""
120:
121: if article_.Name <> "" then
122:
123: Context.Write "<h2 style=""text-align:left"">Frühlings- angebote -10%</h2>"
124:
125: end if
126:
127: Context.Write "" & vbCrLf
128: Context.Write "" & vbCrLf
129: Context.Write "" & vbTab & ""
130:
131:
132: dim imageid
133: imageid = article_.Values.GetValue("Bild")
134:
135: dim image
136: set image = project_.GetImageAssetByObjectID(imageid)
137:
138: if IsNothing(image) then
139: lib_.LogWarning "PopUp-Bild (" & imageid &") auf Seite """ & page_.Name & """ konnte nicht gefunden werden. Falls das Bild gelöscht wurde, löschen Sie bitte auch den entsprechenden Artikel."
140: else
141: ''Context.Scope.Library.Log "Verarbeite PopUp Bild: " & TypeName(image.ID)
142:
143: dim imageWidth : imageWidth = 1605
144: dim imageHeight : imageHeight = 2266
145: dim thumbnailWidth : thumbnailWidth = article_.Values.GetValue("Breite des Vorschaubilds")
146: dim thumbnailHeight : thumbnailHeight = thumbnailWidth * (imageHeight / imageWidth)
147:
148: dim pvimage : set pvimage = image
149: if pvimage.CheckCreateThumbnail( thumbnailWidth ) then
150: lib_.Log "Erstelle Vorschaubild " & pvimage.Name
151: else
152: lib_.CheckAsyncStopProcessing
153: end if
154:
155:
156: Context.Write "" & vbCrLf
157: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<div id=""igal1765"" class=""zpImageGallery"" " & vbCrLf
158: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "data-kind=""singleimage""" & vbCrLf
159: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "data-titleShow=""0""" & vbCrLf
160: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "data-width="""
161:
162: Context.Write thumbnailWidth
163:
164: Context.Write """" & vbCrLf
165: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "data-height="""
166:
167: Context.Write thumbnailHeight
168:
169: Context.Write """" & vbCrLf
170: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "data-bordercolor=""transparent""" & vbCrLf
171: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "data-borderwidth=""0""" & vbCrLf
172: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "data-margin=""0""" & vbCrLf
173: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "data-titleposition=""inside""" & vbCrLf
174: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "data-transition=""elastic""" & vbCrLf
175: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "data-slideshow=""0"">" & vbCrLf
176: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "<a class=""fancybox"" title="""
177:
178: Context.Write image.Description
179:
180: Context.Write """ href="""
181:
182: Context.Write image.GetVirtualPathRelative("w")
183:
184: Context.Write """ rel=""g1765"">" & vbCrLf
185: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "<img src="""
186:
187: Context.Write pvimage.GetThumbnailVirtualPathRelative( thumbnailWidth )
188:
189: Context.Write """ width="""
190:
191: Context.Write thumbnailWidth
192:
193: Context.Write """ height="""
194:
195: Context.Write thumbnailHeight
196:
197: Context.Write """ />" & vbCrLf
198: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "</a>" & vbCrLf
199: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
200:
201: if article_.Values.GetValue("Titel") <> "" then
202:
203: Context.Write "" & vbCrLf
204: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & "<span style=""width: "
205:
206: Context.Write thumbnailWidth
207:
208: Context.Write "px; display: block; clear: both; padding-top: 5px;""></span>" & vbCrLf
209: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "" & vbTab & ""
210:
211: end if
212:
213: Context.Write "" & vbCrLf
214: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "</div>" & vbCrLf
215: Context.Write "" & vbTab & "" & vbTab & "" & vbTab & "<span style=""font-family: verdana"">Gültig bis" & vbCrLf
216: Context.Write "zum Frühlingsanfang.</span>" & vbCrLf
217: Context.Write "" & vbTab & ""
218:
219:
220: end if
221:
222:
223: Context.Write "" & vbCrLf
224: Context.Write "</div>" & vbCrLf
225: Context.Write ""
226:
227: end sub
228:
229: End Class
230: