Hello,

I created a form in  Dreamweaver and each time I try to view my page I
get an error regarding the ADODB Connection.

The exact error is:

ADODB.Command error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in

conflict with one another
/egs intranet/database.asp, line 113

__________________________________________________________________
Here is my code starting with line 110:

110:If (Not MM_abortEdit) Then
111:    ' execute the insert
112:    Set MM_editCmd = Server.CreateObject("ADODB.Command")
113:    MM_editCmd.ActiveConnection = MM_editConnection
114:    MM_editCmd.CommandText = MM_editQuery
115:    MM_editCmd.Execute
116:    MM_editCmd.ActiveConnection.Close

_____________________________________________________________________
CODE LINE 1 - 124 (I only included the VB Script below - If anyone is
interested in the full code, I can provide that as well):


<%@LANGUAGE="VBSCRIPT"%>


<%
' *** 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")) = "IT Employee Status Change") Then


  MM_editConnection = MM_IT_Employee_Status_Change_STRING
  MM_editTable = "MacForm"
  MM_editRedirectUrl = "Help Desk/SuggestionConf.htm"
  MM_fieldsStr  =
"NewHire|value|Change|value|Transfer|value|TransferFrom:|value|TransferTo|v­alue|TypeOfEmployee|value|TempNumberOfDays|value|EmployeeName|value|Title|v­alue|PayNumber|value|Department|value|StartDate|value|EndDate|value|Manager­sName|value|ManagersPhone|value|Location|value|TelecommunicationDevice|valu­e|CallingCard|value|RestrictEmailAccess|value|RestrictInternetAccess|value|­AssignedExistingEquipment|value|PCType|value|MonitorType|value|PrinterType|­value|ARNumber|value|PCSerialNumber|value|PrinterModelNumebr|value|AssetTag­|value|WirelessNic|value|RASVPN|value|BPCS|value|GeneralLedger|value|LogPro­|value|Payroll|value|AdditionalSoftwareRequirements|value|Headset|value|Hea­dsetOptions|value|OmitLongDistance|value|OmitInternationalDialing|value|Bui­ldingAccess|value|CommentsNotes|value|RequestedBy|value|Date|value|ESCID_Nu­mber|value"

  MM_columnsStr =
"NewHire|none,'Y','N'|Change|none,'Y','N'|Transfer|none,'Y','N'|TransferFro­m|',none,''|TransferTo|',none,''|TypeOfEmployee|',none,''|TempNumberOfDays|­',none,''|EmployeeName|',none,''|Title|',none,''|PayNumber|',none,''|Depart­ment|',none,''|StartDate|',none,NULL|EndDate|',none,NULL|ManagersName|',non­e,''|ManagersPhone|',none,''|Location|',none,''|TelecommunicationDevice|',n­one,''|CallingCard|none,'Y','N'|RestrictEmailAccess|none,'Y','N'|RestrictIn­ternetAccess|none,'Y','N'|AssignedExistingEquipment|none,'Y','N'|PCType|',n­one,''|MonitorType|',none,''|PrinterType|',none,''|ARNumber|',none,''|PCSer­ialNumber|',none,''|PrinterModelNumber|',none,''|AssetTag|',none,''|Wireles­sNic|none,'Y','N'|RASVPN|none,'Y','N'|BPCS|none,'Y','N'|[General

Ledger]|none,'Y','N'|LogPro|none,'Y','N'|Payroll|none,'Y','N'|AdditionalSof­twareRequests|',none,''|Headset|none,1,0|HeadsetOptions|',none,''|OmitLongD­istance|none,'Y','N'|OmitInternationalDialing|none,'Y','N'|BuildingAccess|n­one,'Y','N'|CommentsNotes|',none,''|RequestedBy|',none,''|Date|',none,NULL|­[ESCID

Number]|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 = ""
  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
%>


___________________________________________________________________________

WWWWHHHHHEEEEWWWWWW........................I can't seem to figure out
what the problem is. I tried searching online and came up with the
possiblity that maybe a Recordset is not defined in my code???? I found

this:


<HTML><BODY>
<%
Set conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
conn.Open "someDSNperhaps"
RS.Open "Select * From test", con ' ### misspelled variable name! ###
%>
</BODY></HTML>


Looking at the above code and looking at my code I can see that line
113: Server.CreateObject does not start with Set Conn. = (My code
starts with Set MM_editCmd =)


Any ideas on what the problem here could be or if I am onto the right
track with the differences in the code??


Thanks,
Justine

<JNar***@gmail.com> schrieb
Show quoteHide quoteSorry, but this does not look like VB.Net code.


Armin

¤ Hello,
¤
¤ I created a form in  Dreamweaver and each time I try to view my page I
¤ get an error regarding the ADODB Connection.
¤

I would repost your question to microsoft.public.vb.database.ado.


Paul
~~~~
Microsoft MVP (Visual Basic)

Will do Thanks.

Access member variable directly or through property within the class it is defined?
VB.net sleep problems
Convert Words in Strings to Caps
Talk to me about debugging
What does CRC error mean?
Remote DNS Zone Creation with WMI and VB.NET
axWebBrowswer Context Menu (VB 2003)
VB2005 - Databound MaskedTextBox controls lose mask in MdiChild Forms.
check box data binding in VB.Net 2003
Printing Problem