<%@ language=VBScript %> <% ' /////////////////////////////////////////////////////// ' // Dimac CMS ' // Copyright 2004-2008 Dimac Development AB, Sweden ' // www.Dimac.net ' // ' // NOTE: ' // You are not allowed to remove this ' // Copyright information without written ' // permission from Dimac Development. ' /////////////////////////////////////////////////////// If NOT CBool(Session("ValidAdminUser")) Then Response.Redirect("../LIO/loggin.asp") End IF ' ------------------------------------------------------- Set Conn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Conn.Open GetConStr ("..\..\SiteResources\Data\") ' ---------------------------------------------------------------- ' // Update Document header SQL = "UPDATE Documents SET " SQL = SQL & " DocName = '" & Request.Form("doc_name").Item & "'," SQL = SQL & " SortOrder = " & Request.Form("sortOrder").Item & "," SQL = SQL & " ModifiedDate = '" & FormatDate(Now) & " " & FormatTime(Now) & "'," SQL = SQL & " ModifiedBy = '" & Session("User_ID") & "'," SQL = SQL & " PublishDate = '" & FormatDate(Request.Form("publish").Item) & " " & FormatTime(Request.Form("publishTime").Item) & "'," SQL = SQL & " ExpiresDate = '" & FormatDate(Request.Form("expires").Item) & " " & FormatTime(Request.Form("expiresTime").Item) & "', " SQL = SQL & " ExternalPageURL = '" & Request.Form("ExternalPageURL").Item & "' , " SQL = SQL & " ExternalPageFrame = '" & Request.Form("ExternalPageFrame").Item & "' , " SQL = SQL & " isFolder = " & Request.Form("isFolder").Item & " , " SQL = SQL & " secLevel = " & Request.Form("SecLevel").Item & " , " SQL = SQL & " Searchable = " & Request.Form("Searchable").Item & ", " SQL = SQL & " Extra1 = '" & Request.Form("Extra1").Item & "' , " SQL = SQL & " Extra2 = '" & Request.Form("Extra2").Item & "' , " SQL = SQL & " Extra3 = '" & Request.Form("Extra3").Item & "' " SQL = SQL & "WHERE DocumentID = " & Session("DocID") 'response.Write(SQL) set Rs = Conn.Execute(SQL) ' ---------------------------------------------------------------- Response.Redirect("DocEditproperties.asp") ' ---------------------------------------------------------------- ' ---------------------------------------------------------------- %>