error code

[gmag47]

I have the same code for a previous page and it works find but when I try opening a new page I get this error message:

Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: 'Merit_Prinicple'
/new web site/pol/HCMAP/MeritPrinciple.asp, line 153
[code]
<%
set Merit_Principle = Server.CreateObject("ADODB.Command")
Merit_Principle.ActiveConnection = MM_HCMAP_STRING
(line 153)Merit_Prinicple.CommandText = "INSERT INTO Merit_Principle values(' " & var1 & " ' ,' " & var2 & " ',' " & var3 & " ',' " & var4 & " ',' " & var5 & " ',' " & var6 & " ',' " & var7 & " ',' " & var8 & " ',' " & var9 & " ',' " & var11 & " ',' " & var12 & " ', ' " & " ',' " & var13 & " ',' " & var14 & " ',' " & var15 & " ',' " & var16 & " ',' " & var17 & " ',' " & var18 & " ',' " & var19 & " ',' " & var20 & " ',' " & var21 & " ',' " & var22 & " ', ' " & var23 & " ',' " & var24 & " ', ' " & var25 & " ', ' " & var26 & " ', ' " & var27 & " ', ' " & var28 & " ', ' " & var29 & " ', ' " & var30 & " ',' " & var31 & " ', ' " & var32 & " ', ' " & var33 & " ', ' " & var34 & " ', ' " & var35 & " ', ' " & var36 & " ', ' " & var37 & " ', ' " & var38 & " ',' " & var39 & " ',' " & var40 & " ')"
Merit_Principle.CommandType = 1
Merit_Principle.CommandTimeout = 0
Merit_Principle.Prepared = true
Merit_Principle.Execute()
%>
[code]



Also I keep getting the message that the datbase is open, when it's not is there away to stop this:

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] Could not use '(unknown)'; file already in use.
/new web site/pol/HCMAP/MeritPrinciple.asp, line 152
<%
set Merit_Principle = Server.CreateObject("ADODB.Command")
(line 152)Merit_Principle.ActiveConnection = MM_HCMAP_STRING
Merit_Prinicple.CommandText = "INSERT INTO Merit_Principle values(' " & var1 & " ' ,' " & var2 & " ',' " & var3 & " ',' " & var4 & " ',' " & var5 & " ',' " & var6 & " ',' " & var7 & " ',' " & var8 & " ',' " & var9 & " ',' " & var11 & " ',' " & var12 & " ', ' " & " ',' " & var13 & " ',' " & var14 & " ',' " & var15 & " ',' " & var16 & " ',' " & var17 & " ',' " & var18 & " ',' " & var19 & " ',' " & var20 & " ',' " & var21 & " ',' " & var22 & " ', ' " & var23 & " ',' " & var24 & " ', ' " & var25 & " ', ' " & var26 & " ', ' " & var27 & " ', ' " & var28 & " ', ' " & var29 & " ', ' " & var30 & " ',' " & var31 & " ', ' " & var32 & " ', ' " & var33 & " ', ' " & var34 & " ', ' " & var35 & " ', ' " & var36 & " ', ' " & var37 & " ', ' " & var38 & " ',' " & var39 & " ',' " & var40 & " ')"
Merit_Principle.CommandType = 1
Merit_Principle.CommandTimeout = 0
Merit_Principle.Prepared = true
Merit_Principle.Execute()
%>

[slyfox]

By the looks of it, this is probably the only connection your making on the page where you said this code works...

The page that doesn't work is the result of not closing your connections to the db properly after using them. The error won't say the connection is already open if it's not. If you look closer you'll find the problem..

Just look further up your page for the mistake

[Bullschmidt]

And you may want to check these out:

Why do I get the error Object Required: ''?
http://www.aspfaq.com/show.asp?id=2283

Why do I get database-related 80004005 errors?
http://www.aspfaq.com/show.asp?id=2009