405 Error on HTTP Delete

'====================================================================================
Public Function DeleteCapacityTemplateDetail(ByVal strTemplateID As String, _
                                             ByVal strGroupID    As String) _
                                             As Boolean
'====================================================================================
' Purpose:  To delete a single capacity template detail record
' Accepts:  strTemplateID   - the ID of the template for which the capacity template
'                             details are to be deleted.
'           strGroupID      - the ID of the group for which the capacity template
'                             details are to be deleted.
' Returns:  True if successful.  Otherwise false
' Affects:  Deletes a capacity template record
' Assumes:  That the database connection is already established  
'====================================================================================

    ' Declare return value
    ' ---------------------------------------------------------------------
    Dim blnReturnValue As Boolean = False

    Try
        ' Locate the entity to be deleted using the provided keys.
        ' -----------------------------------------------------------------
        Dim entCapacityTemplate = (From CapacityTemplateDetail As tCAPSCapacityTemplateDetail _
                                   In m_dscDatabaseContext.tCAPSCapacityTemplateDetail _
                                   Where CapacityTemplateDetail.GROUP_ID = strGroupID _
                                   And   CapacityTemplateDetail.TEMPLATE_ID = strTemplateID _
                                   Select CapacityTemplateDetail).Single
            
        ' Delete the found entity
        ' -----------------------------------------------------------------
        With m_dscDatabaseContext
            ' Delete the object from the database
            .DeleteObject(entCapacityTemplate)

            ' Call SaveChanges to write the changes to the database
            .SaveChanges()
        End With

        ' If code execution reaches this point, it can be assumed that the
        ' delete was successful.  Set the return value accordingly.
        ' -----------------------------------------------------------------
        blnReturnValue = True

    Catch ex As Exception
        ' Send the exception to the standard error handler
        ' -----------------------------------------------------------------
        Dim clsErrorMessageBox As ErrorMessageBox = New ErrorMessageBox(ex, m_culCurrent)
        clsErrorMessageBox.Show(p_blnSilent:=True)

    End Try

    ' Return the collection
    ' ---------------------------------------------------------------------
    DeleteCapacityTemplateDetail = blnReturnValue

End Function

Select allOpen in new window