<% if session("admin") <> "TRUE" then response.redirect("../index.asp")%>
<!--include file="../../../Connections/bt_interface.asp" -->
<!--#include file="../../../../Connections/workspace.asp" -->
<%
' *** Edit Operations: declare variables

MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Update Record: set variables

If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then

  MM_editConnection = MM_workspace_STRING
  MM_editTable = "workspace_documents"
  MM_editColumn = "document_id"
  MM_recordId = "" + Request.Form("MM_recordId") + ""
  MM_editRedirectUrl = "../thanks.asp?action=editDocument"
  MM_fieldsStr  = "title|value|filename|value|filesize|value|entity|value|date|value|version|value|fullName|value|format|value"
  MM_columnsStr = "title|',none,''|filename|',none,''|fileSize|',none,''|entity_id|none,none,NULL|date_modified|',none,''|version|',none,''|modified_by|',none,''|format|',none,''"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
  
  ' set the form values
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If

End If
%>
<%
' *** Update Record: construct a sql update statement and execute it

If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then

  ' create the sql update statement
  MM_editQuery = "update " & MM_editTable & " set "
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    FormVal = MM_fields(i+1)
    MM_typeArray = Split(MM_columns(i+1),",")
    Delim = MM_typeArray(0)
    If (Delim = "none") Then Delim = ""
    AltVal = MM_typeArray(1)
    If (AltVal = "none") Then AltVal = ""
    EmptyVal = MM_typeArray(2)
    If (EmptyVal = "none") Then EmptyVal = ""
    If (FormVal = "") Then
      FormVal = EmptyVal
    Else
      If (AltVal <> "") Then
        FormVal = AltVal
      ElseIf (Delim = "'") Then  ' escape quotes
        FormVal = "'" & Replace(FormVal,"'","''") & "'"
      Else
        FormVal = Delim + FormVal + Delim
      End If
    End If
    If (i <> LBound(MM_fields)) Then
      MM_editQuery = MM_editQuery & ","
    End If
    MM_editQuery = MM_editQuery & MM_columns(i) & " = " & FormVal
  Next
  MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId

  If (Not MM_abortEdit) Then
    ' execute the update
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl <> "") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%>
<%
Dim RSdocument__MMColParam
RSdocument__MMColParam = "1"
if (Request.QueryString("document_id") <> "") then RSdocument__MMColParam = Request.QueryString("document_id")
%>
<%
set RSdocument = Server.CreateObject("ADODB.Recordset")
RSdocument.ActiveConnection = MM_workspace_STRING
RSdocument.Source = "SELECT * FROM workspace_documents WHERE document_id = " + Replace(RSdocument__MMColParam, "'", "''") + ""
RSdocument.CursorType = 0
RSdocument.CursorLocation = 2
RSdocument.LockType = 3
RSdocument.Open()
RSdocument_numRows = 0
%>
<%
set RSentity = Server.CreateObject("ADODB.Recordset")
RSentity.ActiveConnection = MM_workspace_STRING
RSentity.Source = "SELECT entity_id, subject FROM workspace_entity ORDER BY subject ASC"
RSentity.CursorType = 0
RSentity.CursorLocation = 2
RSentity.LockType = 3
RSentity.Open()
RSentity_numRows = 0
%>
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>					
function DoDateTime(str, nNamedFormat, nLCID)				
	dim strRet								
	dim nOldLCID								
										
	strRet = str								
	If (nLCID > -1) Then							
		oldLCID = Session.LCID						
	End If									
										
	On Error Resume Next							
										
	If (nLCID > -1) Then							
		Session.LCID = nLCID						
	End If									
										
	If ((nLCID < 0) Or (Session.LCID = nLCID)) Then				
		strRet = FormatDateTime(str, nNamedFormat)			
	End If									
										
	If (nLCID > -1) Then							
		Session.LCID = oldLCID						
	End If									
										
	DoDateTime = strRet							
End Function									
</SCRIPT>
<html>
<head>
<title>Edit Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="robots" content="noindex,nofollow">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<form action="<%=MM_editAction%>" method="POST" name="form1">
  <table width="100%" border="0" cellspacing="0" cellpadding="1" bgcolor="#666666">
    <tr> 
      <td> 
        <table width="100%" border="0" cellspacing="0" cellpadding="5">
          <tr> 
            <td><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF">Edit 
              'Document' Record.</font></b></td>
          </tr>
        </table>
      </td>
    </tr>
    <tr> 
      <td> 
        <table width="100%" border="0" cellspacing="1" cellpadding="5">
          <tr bgcolor="#FFFFFF"> 
            <td width="27%" align="left" valign="top"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Title</font></td>
            <td width="73%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
              <input type="text" name="title" size="50" value="<%=(RSdocument.Fields.Item("title").Value)%>">
              <br>
              </font></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="27%" align="left" valign="top"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Filename</font></td>
            <td width="73%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
              <input type="text" name="filename" size="20" value="<%=(RSdocument.Fields.Item("filename").Value)%>">
              <input type="button" name="Upload" value="Upload" onClick="javascript:window.open('../utils/upLoad.asp?obj=filename','tools','width=370,height=250,toolbar=no,status=yes,resise=no');">
              <br>
              </font></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="27%" align="left" valign="top"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Filesize</font></td>
            <td width="73%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
              <input type="text" name="filesize" size="5" value="<%=(RSdocument.Fields.Item("fileSize").Value)%>">
              <br>
              </font></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="27%" align="left" valign="top"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Entitiy</font></td>
            <td width="73%"> 
              <select name="entity">
                <%
While (NOT RSentity.EOF)
%>
                <option value="<%=(RSentity.Fields.Item("entity_id").Value)%>" <%if (CStr(RSentity.Fields.Item("entity_id").Value) = CStr(RSdocument.Fields.Item("entity_id").Value)) then Response.Write("SELECTED") : Response.Write("")%> ><%=(RSentity.Fields.Item("subject").Value)%></option>
                <%
  RSentity.MoveNext()
Wend
If (RSentity.CursorType > 0) Then
  RSentity.MoveFirst
Else
  RSentity.Requery
End If
%>
              </select>
              <br>
            </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="27%" align="left" valign="top"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Date 
              Created </font></td>
            <td width="73%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%= DoDateTime((RSdocument.Fields.Item("date_created").Value), 1, 4105) %><br>
              </font></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="27%" align="left" valign="top" height="32"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Date 
              Modified</font></td>
            <td width="73%" height="32"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
              <!--#include file="../utils/checkDate.asp" -->
              <br>
              </font></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="27%" align="left" valign="top"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Version</font></td>
            <td width="73%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
              <input type="text" name="version" size="4" value="1.0">
              <br>
              </font></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="27%" align="left" valign="top"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Submitted 
              By </font></td>
            <td width="73%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=(RSdocument.Fields.Item("submitted_by").Value)%><br>
              </font></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="27%" align="left" valign="top"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Modified 
              By </font></td>
            <td width="73%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=session("fullName")%> 
              <input type="hidden" name="fullName" value="<%=session("fullName")%>">
              <br>
              </font></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="27%" align="left" valign="top"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Format</font></td>
            <td width="73%"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
              <select name="format">
                <option value="Word Document" <% if RSdocument("format") = "Word Document" then response.write("SELECTED")%>>Word 
                Document</option>
                <option value="Acrobat PDF" <% if RSdocument("format") = "Acrobat PDF" then response.write("SELECTED")%>>Acrobat 
                PDF</option>
                <option value="Power Point" <% if RSdocument("format") = "Power Point" then response.write("SELECTED")%>>Power 
                Point</option>
                <option value="Excel" <% if RSdocument("format") = "Excel" then response.write("SELECTED")%>>Excel</option>
                <option value="JPEG" <% if RSdocument("format") = "JPEG" then response.write("SELECTED")%>>JPEG</option>
              </select>
              <br>
              </font></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td width="27%" align="left" valign="top"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">&nbsp;</font></td>
            <td width="73%"> 
              <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
                <input type="reset" name="Submit2" value="Reset">
                <input type="submit" name="Submit" value="Submit" onClick="return checkDate();">
                </font></div>
            </td>
          </tr>
        </table>
        <input type="hidden" name="MM_update" value="true">
        <input type="hidden" name="MM_recordId" value="<%= RSdocument.Fields.Item("document_id").Value %>">
      </td>
    </tr>
  </table>
</form>
</body>
</html>
<%
RSdocument.Close()
%>
<%
RSentity.Close()
%>