Type mismatch: LBound 0x800A000D

Hi Experts,

I am getting the following error using dreamweaver MX
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'LBound'
/britishconsultancy/RegionalManager/TMPsv58njayu1.asp, line 81

The code follows and I have marked line 81
I cant see any mismatches.
Can anyone please assist, many thanks
John

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/connAssignOledb.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 = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) = "form1") Then

  MM_editConnection = MM_connAssignOledb_STRING
  MM_editTable = "RM_Ask_Recruiter"
  MM_editRedirectUrl = "Details.asp"
  MM_fieldsStr  = "Assignment|value|RegionalManager|value"
  MM_columnsStr = "rm_ask_BCID|none,none,NULL|rm_ask_RegMan_ID|none,none,NULL"

  ' 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
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

Dim MM_tableValues
Dim MM_dbValues

If (CStr(Request("MM_insert")) <> "") Then

  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
 ****** Line 81    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
%>
johnhardyAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

aprestoCommented:
right BEFORE line 81 type this:

response.write LBound(MM_fields)
response.end

and see what it gives you to the screen
johnhardyAuthor Commented:
Hi Thanks

This was the error which appeared again
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'LBound'
/britishconsultancy/RegionalManager/TMPuqfwcjb199.asp, line 81

This is the code as is now
 ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  response.write LBound(MM_fields)
response.end
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
rkannan2000Commented:
what Browser do you use....What version? Try this with diffrent Browser..
Build an E-Commerce Site with Angular 5

Learn how to build an E-Commerce site with Angular 5, a JavaScript framework used by developers to build web, desktop, and mobile applications.

rkannan2000Commented:
put the loop with in this condition.....

If IsArray(MM_fields) Then

 For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
..
..
..
End if
johnhardyAuthor Commented:
Thanks rkannan

I am using OE 6
I have tried F12 also
File - preview in browser OE6

I changed the code to this:

  response.write LBound(MM_fields)
response.end
If IsArray(MM_fields) Then
  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)
**** Line 88 End if

I now get this error
Error Type:
Microsoft VBScript compilation (0x800A0400)
Expected statement
/britishconsultancy/RegionalManager/TMPzd65ijb79c.asp, line 88
End if

Do I have the end if in the right place?
John
rkannan2000Commented:
Tyr adding END IF after Next statement

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
johnhardyAuthor Commented:
I did try to open the page in netscape but it would not open and gave an error message

Microsoft VBScript compilation (0x800A0400)
Expected statement
/britishconsultancy/RegionalManager/TMPzngxljb7mp.asp, line 88
End if
rkannan2000Commented:
 :
  :
  End If
  MM_tableValues = MM_tableValues & MM_columns(MM_i)
  MM_dbValues = MM_dbValues & MM_formVal
Next MM_i
End if

your code should look like this......
johnhardyAuthor Commented:
Thanks for all that.

I tried but was not getting anywhere in desperation I removed and re applied the SB and it worked!

Any ideas why?

John
johnhardyAuthor Commented:
Thanks for all your help
John
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Web Development

From novice to tech pro — start learning today.