Record Insertion; null value error...huh? help please

**wordsmith** · 09-25-2005 05:00 AM

Hi All....again...really at a loss here,

I am trying to create a record insert page which then directs the user to a page displaying the inserted record.I keep encountering this error message:

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] You tried to assign the Null value to a variable that is not a Variant data type.
/COPSNet/TMP1ij8jnd6i2.asp, line 116

Line 116 in my code is:
MM_editCmd.Execute

I am still very new to all of this and an explanation of what this means and any help will be appreciated. please see some of the page code below

' 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
%>
<%
Dim rsCustType
Dim rsCustType_numRows

Set rsCustType = Server.CreateObject("ADODB.Recordset")
rsCustType.ActiveConnection = MM_COPS_STRING
rsCustType.Source = "SELECT * FROM CustomerType ORDER BY TypeCode ASC"
rsCustType.CursorType = 0
rsCustType.CursorLocation = 2
rsCustType.LockType = 1
rsCustType.Open()

rsCustType_numRows = 0
%>
<%
Dim rsContact
Dim rsContact_numRows

Set rsContact = Server.CreateObject("ADODB.Recordset")
rsContact.ActiveConnection = MM_COPS_STRING
rsContact.Source = "SELECT * FROM Contact ORDER BY ContactCode ASC"
rsContact.CursorType = 0
rsContact.CursorLocation = 2
rsContact.LockType = 1
rsContact.Open()

rsContact_numRows = 0
%>
<html>
<head>

<title>COPSNetTemp</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">


</head>

**msanchez** · 09-30-2005 12:06 PM

There are some variables being used here we can't see being set. I don't recommend posting more code, but I would suggest you start writing your variables to the client to see what values you are getting back.

IMHO, I wouldn't use DreamWeaver anymore. It just creates handicaps for the users and convoluded code.

Good luck,

Thread: Record Insertion; null value error...huh? help please

Thread Tools

Display

Record Insertion; null value error...huh? help please

Similar Threads

Getting a GUI to run

Getting a large number of identities

Getting a GUI to function

NullPointerException when reading text file

Multi-row calculations

Bookmarks

Bookmarks

Posting Permissions