<%@ 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 = Replace(Request.Form("doc_name").Item,"'","''")
vStartPath = "SiteResources/data/MediaArchive/"
vSubFolder = Request.ServerVariables("SCRIPT_NAME")
vSubFolder = Mid(vSubFolder,1, InStr(LCase(vSubFolder),LCase("/CMSadmin/Site/DocumentCreateSave.asp")))
Conn.Open GetConStr ("..\..\SiteResources\Data\")
' ----------------------------------------------------------------
' // Update Document header
SQL = "INSERT INTO Documents ("
SQL = SQL & " ParentID,"
SQL = SQL & " SortOrder,"
SQL = SQL & " isFolder,"
SQL = SQL & " DocName,"
SQL = SQL & " ModuleID,"
SQL = SQL & " TemplateURL,"
SQL = SQL & " CreatedBy,"
SQL = SQL & " CreatedDate,"
SQL = SQL & " ModifiedBy,"
SQL = SQL & " ModifiedDate,"
SQL = SQL & " PublishDate,"
SQL = SQL & " ExpiresDate,"
SQL = SQL & " DocumentStatus) "
SQL = SQL & "VALUES ("
SQL = SQL & Session("DocID") & ","
SQL = SQL & Request.Form("sortOrder").Item & ","
SQL = SQL & "0,'"
SQL = SQL & strName & "',"
SQL = SQL & "0,'"
SQL = SQL & Request.Form("template").Item & "',"
SQL = SQL & Session("User_ID") & ",'"
SQL = SQL & FormatDate(Now) & "',"
SQL = SQL & Session("User_ID") & ",'"
SQL = SQL & FormatDate(Now) & "','"
SQL = SQL & FormatDate(Request.Form("publish").Item) & " " & FormatTime(Request.Form("publishTime").Item) & "','"
SQL = SQL & FormatDate(Request.Form("expires").Item) & " " & FormatTime(Request.Form("expiresTime").Item) & "',"
SQL = SQL & "1)"
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 )
' ----------------------------------------------------------------
' // Insert Document field
For Each Field In Request.Form("fields")
strCurrValue = FF(Request.Form(Field).Item)
If InStr( strCurrValue, vSubFolder&vStartPath ) > 0 Then
strCurrValue = Replace( strCurrValue, vSubFolder&vStartPath, vStartPath )
End If
SQL = "INSERT INTO DocumentFields ("
SQL = SQL & " DocID,"
SQL = SQL & " Name,"
SQL = SQL & " FieldValue,"
SQL = SQL & " LangId)"
SQL = SQL & "VALUES ("
SQL = SQL & vDocID & ",'"
SQL = SQL & Field & "','"
SQL = SQL & strCurrValue & "',"
SQL = SQL & Rs("ID").Value & ")"
Conn.Execute(SQL)
Next
Rs.MoveNext
Wend
Rs.Close
' ----------------------------------------------------------------
' ----------------------------------------------------------------
%>
<%=langLabelNewDoc%>
<%=langLabelDocSaved%>