Need help with Updating record script - How to pass changes in cute editor when form is submitted?

Last post 08-23-2005, 7:51 PM by donzi. 0 replies.
Sort Posts: Previous Next
  •  08-23-2005, 7:51 PM 9884

    Need help with Updating record script - How to pass changes in cute editor when form is submitted?

    I have a page I created in Dreamweaver a while back
    which uses the hardcore editor which I'm now incorporating
    the CuteEditor.

    This page needs to provides a text editor and updates the database all from one asp page.
    I'm trying to elimate the todatabase.asp page. 

    I have it to a point where I can get the info from the database.
    Pass the data to CuteEditor and make the changes in the CuteEditor text field.

    when I submit the form using the form button I get the following error message:

    Microsoft OLE DB Provider for ODBC Drivers error '80004005'

    [Microsoft][ODBC Microsoft Access Driver] Field 'MeetingMinutes.GeneralDiscussion' cannot be a zero-length string.

    /onlinesite/groupinfo/meetingminutesupdate_cute.asp, line 112



    I believe what is happening is that the changes are not being written to the varible that is being sent
    to the update database code so the database is seeing a null value.

    Can you help me in what I need to change to get the editor to pass the updated data back to the script on the same page to update the database?

    Thanks
    Don











    <!-- #include file = "../../cuteasp/CuteEditor_Files/include_CuteEditor.asp" -->
    <!--#include file="../../../Connections/MeetingMinutes-loon.asp" -->
    <%
    ' *** Edit Operations: declare variables
    Dim MM_editAction
    Dim MM_abortEdit
    Dim MM_editQuery
    Dim MM_editCmd
    Dim MM_editConnection
    Dim MM_editTable
    Dim MM_editRedirectUrl
    Dim MM_editColumn
    Dim MM_recordId
    Dim MM_fieldsStr
    Dim MM_columnsStr
    Dim MM_fields
    Dim MM_columns
    Dim MM_typeArray
    Dim MM_formVal
    Dim MM_delim
    Dim MM_altVal
    Dim MM_emptyVal
    Dim MM_i
    MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
    If (Request.QueryString <> "") Then
      MM_editAction = MM_editAction & "?" & Server.HTMLEncode(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")) = "form1" And CStr(Request("MM_recordId")) <> "") Then
      MM_editConnection = MM_MeetingMinutes_STRING
      MM_editTable = "MeetingMinutes"
      MM_editColumn = "MeetingMinutesID"
      MM_recordId = "" + Request.Form("MM_recordId") + ""
      MM_editRedirectUrl = "meetingminutes.asp"
      MM_fieldsStr  = "content|value"
      MM_columnsStr = "GeneralDiscussion|',none,''"
      ' create the MM_fields and MM_columns arrays
      MM_fields = Split(MM_fieldsStr, "|")
      MM_columns = Split(MM_columnsStr, "|")
     
      ' set the form values
      For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
        MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_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 MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
        MM_formVal = MM_fields(MM_i+1)
        MM_typeArray = Split(MM_columns(MM_i+1),",")
        MM_delim = MM_typeArray(0)
        If (MM_delim = "none") Then MM_delim = ""
        MM_altVal = MM_typeArray(1)
        If (MM_altVal = "none") Then MM_altVal = ""
        MM_emptyVal = MM_typeArray(2)
        If (MM_emptyVal = "none") Then MM_emptyVal = ""
        If (MM_formVal = "") Then
          MM_formVal = MM_emptyVal
        Else
          If (MM_altVal <> "") Then
            MM_formVal = MM_altVal
          ElseIf (MM_delim = "'") Then  ' escape quotes
            MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
          Else
            MM_formVal = MM_delim + MM_formVal + MM_delim
          End If
        End If
        If (MM_i <> LBound(MM_fields)) Then
          MM_editQuery = MM_editQuery & ","
        End If
        MM_editQuery = MM_editQuery & MM_columns(MM_i) & " = " & MM_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 MeetingMinutesdata__MMColParam
    MeetingMinutesdata__MMColParam = "1"
    If (Request.QueryString("MeetingMinutesID") <> "") Then
      MeetingMinutesdata__MMColParam = Request.QueryString("MeetingMinutesID")
    End If
    %>
    <%
    Dim MeetingMinutesdata
    Dim MeetingMinutesdata_numRows
    Set MeetingMinutesdata = Server.CreateObject("ADODB.Recordset")
    MeetingMinutesdata.ActiveConnection = MM_MeetingMinutes_STRING
    MeetingMinutesdata.Source = "SELECT * FROM MeetingMinutes WHERE MeetingMinutesID = " + Replace(MeetingMinutesdata__MMColParam, "'", "''") + " ORDER BY MeetingMinutesID DESC"
    MeetingMinutesdata.CursorType = 0
    MeetingMinutesdata.CursorLocation = 2
    MeetingMinutesdata.LockType = 3
    MeetingMinutesdata.Open()
    MeetingMinutesdata_numRows = 0
    %>
    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
    <html>
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    <title>The Ice Pit Meeting Minutes</title>
    <link rel="stylesheet" href="asp.css"  type="text/css" />
    </head>
    <body>
     
       <%=(MeetingMinutesdata.Fields.Item("MeetingMinutesID").Value)%>
         <form method="POST" action="<%=MM_editAction%>" name="form1">
       <%    
     dim content  
     content = MeetingMinutesdata.Fields.Item("GeneralDiscussion").Value  
     %>   
       
         <%
          
          Dim editor
          Set editor = New CuteEditor
         
          editor.ID = "Editor1"
          editor.Text = content
          editor.FilesPath = "../../cuteasp/CuteEditor_Files"
          editor.ImageGalleryPath = "/Uploads"
          editor.MaxImageSize = 50
          editor.AutoConfigure = "Simple"
          'editor.Template= "Bold,Italic,Underline"
          
          'editor.Width = 600
          'editor.Height = 240
          editor.Draw()
       
          ' Request.Form(ID) access from other page
      
          %>   
       
       
     
    <br>
         <input type="submit" value="Update record">
         <input type="hidden" name="MM_update" value="form1">
         <input type="hidden" name="MM_recordId" value="<%= MeetingMinutesdata.Fields.Item("MeetingMinutesID").Value %>">
        

    </form>
     
    </body>
    </html>
    <%
    MeetingMinutesdata.Close()
    Set MeetingMinutesdata = Nothing
    %>
     
View as RSS news feed in XML