<%@ 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\") vLangID = Request.Form("langId").Item vLangStatus = Request.Form("fActive").Item If vLangStatus = "1" Then vLangStatus = 5 Else vLangStatus = 3 End If ' ---------------------------------------------------------------- ' // Update Document header SQL = "UPDATE Documents SET " SQL = SQL & " DocName = '" & FF(Request.Form("fDocName").Item) & "'," SQL = SQL & " SortOrder = '" & Request.Form("fSortOrder").Item & "'," SQL = SQL & " Active = '" & Request.Form("fActive").Item & "'," SQL = SQL & " secLevel = " & Request.Form("SecLevel").Item & " , " SQL = SQL & " PublishDate = '" & FormatDate(Request.Form("fPublishDate").Item) & " " & FormatTime(Request.Form("fPublishTime").Item) & "'," SQL = SQL & " ExpiresDate = '" & FormatDate(Request.Form("fExpiresDate").Item) & " " & FormatTime(Request.Form("fExpiresTime").Item) & "', " SQL = SQL & " ModifiedDate = '" & Year(Now) & "-" & FixNumber(Month(Now)) & "-" & FixNumber(Day(Now)) & "'," SQL = SQL & " ModifiedBy = '" & Session("User_ID") & "' " SQL = SQL & "WHERE DocumentID = " & Session("DocID") set Rs = Conn.Execute(SQL) SQL = "SELECT DocName FROM DocumentLanguages WHERE (DocId = " & Session("DocID") & ") AND (LangId = " & vLangID & ")" Rs.Open SQL, Conn, 1, 3 If Rs.RecordCount = 0 Then SQL = "INSERT INTO DocumentLanguages " & _ " (DocID, LangID, DocName, LangModuleURL, LangStatus) " &_ "VALUES (" & _ Session("DocID") & ", " & _ vLangID & ", '" & _ FF(Request.Form("fDocName").Item)& "', '" & _ FF(Request.Form("LangURL").Item)& "', " & _ vLangStatus & ")" Else SQL = "UPDATE DocumentLanguages SET " &_ " DocName='" & FF(Request.Form("fDocName").Item)& "', " & _ " LangStatus=" &vLangStatus& "," & _ " LangModuleURL='" &FF(Request.Form("LangURL").Item)&"'"& _ " WHERE (DocId = " & Session("DocID") & ") AND (LangId = " & vLangID & ")" Conn.Execute(SQL) End If Rs.Close ' ---------------------------------------------------------------- Response.Redirect("DocEditContentML.asp?lang=" & vLangID) ' ---------------------------------------------------------------- ' ---------------------------------------------------------------- %>