gmag47
09-13-2005, 01:08 PM
I get this error:
Error Type:
Microsoft VBScript runtime (0x800A01B6)
Object doesn't support this property or method: 'Close'
/new web site/pol/HCMAP/DEU.asp, line 515
[code]
<%
set DEU = Server.CreateObject("ADODB.Command")
DEU.ActiveConnection =MM_HCMAP_STRING
DEU.CommandText = "INSERT INTO DEU_Certification values(' " & var1 & " ' ,' " & var2 & " ',' " & var3 & " ',' " & var4 & " ',' " & var5 & " ',' " & var6 & " ',' " & var7 & " ',' " & var8 & " ',' " & var9 & " ',' " & var10 & " ',' " & 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 & " ')"
DEU.CommandType = 1
DEU.CommandTimeout = 0
DEU.Prepared = true
DEU.Execute()
<%
(line 515)DEU.Close()
Set DEU = Nothing
[code]
Error Type:
Microsoft VBScript runtime (0x800A01B6)
Object doesn't support this property or method: 'Close'
/new web site/pol/HCMAP/DEU.asp, line 515
[code]
<%
set DEU = Server.CreateObject("ADODB.Command")
DEU.ActiveConnection =MM_HCMAP_STRING
DEU.CommandText = "INSERT INTO DEU_Certification values(' " & var1 & " ' ,' " & var2 & " ',' " & var3 & " ',' " & var4 & " ',' " & var5 & " ',' " & var6 & " ',' " & var7 & " ',' " & var8 & " ',' " & var9 & " ',' " & var10 & " ',' " & 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 & " ')"
DEU.CommandType = 1
DEU.CommandTimeout = 0
DEU.Prepared = true
DEU.Execute()
<%
(line 515)DEU.Close()
Set DEU = Nothing
[code]