none
Microsoft VBScript runtime error '800a01b6' RRS feed

  • Pergunta

  • Ola!

    Sera que pode me ajudar com este problema.

    Microsoft VBScript runtime error '800a01b6'

    Object doesn't support this property or method: 'ActiveConnection'

    /armap/painelctrl/ADM_criar_categoria_dicasservicos.asp, line 21

     

    Esta é a estrutura que montei:

     

    <%@LANGUAGE="VBSCRIPT"%>
    <!--# include file ="../Connections/armap.asp" -->
    <%
    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_editCmd = ""
    %>
    <%
    If (CStr(Request("MM_insert")) = "form1") Then
      If (Not MM_abortEdit) Then
        ' execute the insert
        Dim MM_editCmd

        MM_editCmd = Server.CreateObject ("ADODB.Command")
        MM_editCmd.ActiveConnection = MM_armap_STRING
        MM_editCmd.CommandText = "INSERT DicasServicos (nome_categoria, desc_categoria) VALUES (?, ?)"
        MM_editCmd.Prepared = true
        MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 255, Request.Form("nome_categoria")) ' adVarWChar
        MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 255, Request.Form("desc_categoria")) ' adVarWChar
        MM_editCmd.Execute
        MM_editCmd.ActiveConnection.Close

        ' append the query string to the redirect URL
        Dim MM_editRedirectUrl
        MM_editRedirectUrl = "ADM_lista_categoria_dicasservicos.asp"
        If (Request.QueryString <> "") Then
          If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
            MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
          Else
            MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
          End If
        End If
        Response.Redirect(MM_editRedirectUrl)
      End If
    End If
    %>

     

     

    quarta-feira, 2 de novembro de 2011 21:55

Todas as Respostas

  • Primeiro, validade se existe conteudo na variavel antes de chamar ActiveConnection.

    Depois verifique se a sua ação esta trabalhando com COM+. Se estiver, significa que o metodo que voce esta utilizando não aceita transação no COM+.


    Se a minha resposta lhe foi util, marque "Propor como Proposta" para qualificar o conteudo do fórum. Obrigado, Vinicius Nunes Macedo
    sexta-feira, 4 de novembro de 2011 16:44