0 Replies Latest reply on Oct 23, 2006 1:08 PM by Newsgroup_User

    Type mismatch: 'LBound'

    Level 7
      Im getting the following error today on a page that has been working up til
      now. I created this page last week, today i made some form field changes and
      after the save everything was still working. At one point when i went to
      save the page it indicated that the insert record was going to be partically
      deleted. I never touched the insert record behavior. Now after i reapplied
      the insert behavior i get this error.
      Microsoft VBScript runtime error '800a000d'

      Type mismatch: 'LBound'

      /it/Support_Services/Maintenance/usd.asp, line 83

      ----------------------------------------

      Here is the code:

      ' create the sql insert statement
      MM_tableValues = ""
      MM_dbValues = ""
      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_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
      End If
      MM_tableValues = MM_tableValues & MM_columns(MM_i)
      MM_dbValues = MM_dbValues & MM_formVal
      Next
      MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ")
      values (" & MM_dbValues & ")"

      If (Not MM_abortEdit) Then
      ' execute the insert
      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
      %>