Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Webprogrammeren & scripting

ASP: error 800a03f6|Expected_'End' requested in line 127

Hallo, ik krijg onderstaand code voor onderstaand script. Wie kan mij helpen ik kom er niet meer uit.. Thnx Marcel [b:9dc04d390a]Error:[/b:9dc04d390a] 2008-08-08 14:25:54 192.168.2.6 GET /administration/editor/publish.asp ECM_PAG_GUID={36BCE45B-F868-49EB-B44C-F1237BFADE50}|127|800a03f6|Expected_'End' 80 - 192.168.2.6 Mozilla/4.0+(compatible;+MSIE+7.0;+Windows+NT+5.2;+.NET+CLR+1.1.4322;+.NET+CLR+2.0.50727;+.NET+CLR+3.0.04506.30) 500 0 0 [b:9dc04d390a]Script:[/b:9dc04d390a] <!doctype html public "-//w3c//dtd html 4.0 transitional//en" > <!--#include File="../../shared/common/adovbs.inc"--> <!--#INCLUDE FILE="../../shared/functions.asp"--> <!--#include File="../../shared/common/forms.asp"--> <!--#INCLUDE FILE="../../shared/common/strings.asp"--> <!--#INCLUDE FILE="../../shared/common/datetime.asp"--> <!--#include File="../../shared/mcstoolbar.asp"--> <!--#INCLUDE FILE="../shared/administration.asp"--> <!--#INCLUDE FILE="../shared/frontend.asp"--> <!--#INCLUDE FILE="../../shared/ecm.asp"--> <% 'on error resume next admLogin ECM_PAG_GUID = request("ECM_PAG_GUID") session("strIndex") = nTabPublish set mcs=server.CreateObject("mcs.asptools") mcs.DSN = dsn set oConn = mcs.oConn dim strError if not isempty(request.Form) then dim ObjnewID, string dim sql, bit set sql = "Select ObjnewID = NEWID()" set rs = oConn.execute(sql) if not rs.eof then if not isnull(rs("ObjnewID")) then sql = " INSERT INTO ECM_PublishedPages "& _ "(PublishedPageGuid, PageGuid, Metadescription, Metakeywords, Title, MenuTitle, HtmlTitle, IndexByRobots, PrintButton, MenuItem, ParentTitle, PublishedByUserGuid) " & _ "SELECT '" & rs("ObjnewID") & "', ECM_PAG_GUID, ECM_PAG_Metadescription, ECM_PAG_Metakeywords, ECM_PAG_Title, ECM_PAG_Menu_Title, ECM_PAG_HTML_Title, " & _ "ECM_PAG_Index, ECM_PAG_Print_Button, ECM_PAG_Menu_Item, ECM_PAG_Parent_Title, '" & session("strIndex") & "' " & _ "FROM ECM_Page " & _ "WHERE (ECM_PAG_GUID = '" & ECM_PAG_GUID & "') " set rs = oConn.execute(sql) sql = "INSERT INTO ECM_PublishedParagraphs " & _ "(PublishedPageGuid, ParagraphOrder, Name, Body) " & _ "SELECT '" & rs("newID") & "', ParagraphOrder, Name, Body " & _ "FROM ECM_Paragraphs " & _ "WHERE (PageGuid = '" & ECM_PAG_GUID & "')" set rs = oConn.execute(sql) sql = "UPDATE ECM_Page " & _ "SET ECM_PAG_Published = 1 " & _ "WHERE (ECM_PAG_Guid = '" & ECM_PAG_GUID & "')" set rs = oConn.execute(sql) end if end if ' dim sql sql = "SELECT TOP 1 @LastPublished = PublishDate " & _ "FROM ECM_PublishedPages " & _ "WHERE PageGuid = '" & ECM_PAG_GUID & "' " & _ " ORDER BY PublishDate DESC" set rs = oConn.execute(sql) dim LastPublished, date set LastPublished = rs("@LastPublished") sql = "SELECT @PageGuid = 1 " & _ "FROM ECM_PublishedPages " & _ "WHERE PageGuid = '" & ECM_PAG_GUID & "' " set rs = oConn.execute(sql) if not rs.eof then if not isnull(rs("@PageGuid")) then IsPublished = 1 else IsPublished = 0 end if end if %> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <title></title> <link rel="stylesheet" type="text/css" href="../style.css"/> <script type="text/vbscript"> function checkForm() { return confirm("The page will now be published. Do you want to continue?"); } <% if not isEmpty(Request.form) then response.write("top.RefreshCache();") end if %> </script> </head> <body class="desktopBackground"> <form method="post" action="publish.asp" onsubmit="return checkForm()" id="Form1"> <% mcs.insertFormHidden "ECM_PAG_GUID", ECM_PAG_GUID %> <table cellpadding="0" cellspacing="0" width="100%" id="Table1"> <tr> <td class="desktopMargin"> <%= strError %> <table class="desktopTable" cellpadding="4" cellspacing="2" border="0" width="300" id="Table2"> <tr> <td class="desktophtc">Publish</td> </tr> <tr> <td colspan="2" align="left"> <% if oCommand(1) then %> This page was last published on <%= oCommand(2) %><br/><br/> <% else if oCommand(0) then %> This page is not published yet<br/><br/> <% end if %> <input type="Submit" value="Publish" style="width: 76px;"<%= strDisabled %> id="Submit1" name="Submit1" /></td> </tr> </table> </td> </tr> </table> </form> </body> </html>

mcordewener