<%@ 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")
strName = FF(Request.Form("fDocName").Item)
Conn.Open GetConStr ("..\..\SiteResources\Data\")
' ----------------------------------------------------------------
' // Update Document header
SQL = "INSERT INTO Documents ("
SQL = SQL & " ParentID,"
SQL = SQL & " SortOrder,"
SQL = SQL & " DocName,"
SQL = SQL & " TemplateURL,"
SQL = SQL & " CreatedBy,"
SQL = SQL & " CreatedDate,"
SQL = SQL & " ModifiedBy,"
SQL = SQL & " ModifiedDate,"
SQL = SQL & " PublishDate,"
SQL = SQL & " ExpiresDate,"
SQL = SQL & " Active,"
SQL = SQL & " ModuleID,"
SQL = SQL & " ModuleFrame) "
SQL = SQL & "VALUES ("
SQL = SQL & Session("DocID") & ","
SQL = SQL & Request.Form("fSortOrder").Item & ",'"
SQL = SQL & Request.Form("fDocName").Item & "','"
SQL = SQL & Request.Form("fStartURL").Item & "',"
SQL = SQL & Session("User_ID") & ",'"
SQL = SQL & Year(Now) & "-" & FixNumber(Month(Now)) & "-" & FixNumber(Day(Now)) & "',"
SQL = SQL & Session("User_ID") & ",'"
SQL = SQL & Year(Now) & "-" & FixNumber(Month(Now)) & "-" & FixNumber(Day(Now)) & "','"
'SQL = SQL & Request.Form("fPublishDate").Item & "','"
'SQL = SQL & Request.Form("fExpiresDate").Item & "',"
SQL = SQL & FormatDate(Request.Form("fPublishDate").Item) & " " & FormatTime(Request.Form("fPublishTime").Item) & "','"
SQL = SQL & FormatDate(Request.Form("fExpiresDate").Item) & " " & FormatTime(Request.Form("fExpiresTime").Item) & "', "
SQL = SQL & Request.Form("fActive").Item & ","
SQL = SQL & Request.Form("fModuleID").Item & ",'"
SQL = SQL & Request.Form("fStartFrame").Item & "') "
set Rs = Conn.Execute(SQL)
SQL = "Select * From Documents ORDER BY DocumentID DESC"
set Rs = Conn.Execute(SQL)
vDocID = Rs("DocumentID").Value
Rs.Close
SQL = "SELECT ID, MasterLanguage FROM Languages ORDER BY ID"
Rs.Open SQL, Conn
While Not Rs.EOF
SQL = "INSERT INTO DocumentLanguages (DocId, LangId, DocName, LangStatus) "
SQL = SQL & "VALUES (" & vDocID & "," & Rs("ID").Value & ",'" &strName& "',1)"
Conn.Execute( SQL )
Rs.MoveNext
Wend
Rs.Close
' ----------------------------------------------------------------
' ----------------------------------------------------------------
%>
<%=langLabelAddModule%>
<%=langLabelDocSaved%><% If Session("xView") = "Tree" Then %><% Else %><% End IF %>