Erreur ADODB.Recordset '800a0e78' L'opération n'est pas autorisée lorsque l'object est fermé. ASP classique

Je sais que c'est probablement une dupe d'une autre question mais je n'ai vraiment aucune idée, j'ai cherché partout et essayé tout mais il semble toujours me donner la même erreur de;

Erreur ADODB.Recordset '800a0e78'

L'opération n'est pas autorisée lorsque l'object est fermé.

Si quelqu'un pouvait m'aider avec ceci, ce serait grandement apprécié, j'utilise ASP classique, SQL et HTML;

• Par défaut SET NOCOUNT ON dans SQL Server 2012
• Requête ASP Classic SQL pour get des ammounts cumulés par jour
• Amusez-vous avec les dates américaines et britanniques sur un nouveau server
• Le site ASP classique ne peut pas se connecter à SQL Server lorsque TLS1.0 et plus anciens sont désactivés
• Erreur de spécification d'autorisation non valide avec l'access ASP classique à SQL Server

Mon code ASP classique est;

If(Request.Form("submitBtn"))<>""Then 'Initialise the db connection Set objDBConn = Server.CreateObject("ADODB.Connection") objDBConn.Open "Provider=sqloledb;Data Source=OLIVERBEELEY;Initial Catalog=HolidayEmployeeBooker;User ID=HBA;Password=HBA;" 'Initialise the command object Set objDBCommand = Server.CreateObject("ADODB.Command") objDBCommand.ActiveConnection = objDBConn objDBCommand.CommandText = "spNewHoliday" objDBCommand.CommandType = adCmdStoredProc 'Set the parameters objDBCommand.Parameters.Append objDBCommand.CreateParameter("@StartDate", adDate, adParamInput,200) objDBCommand.Parameters.Append objDBCommand.CreateParameter("@EndDate", adDate, adParamInput,200) objDBCommand.Parameters.Append objDBCommand.CreateParameter("@EmployeeID", adVarChar, adParamInput,200) objDBCommand.Parameters.Append objDBCommand.CreateParameter("@Reason", adVarChar, adParamInput,200) objDBCommand("@StartDate") = Request.Form("from") objDBCommand("@EndDate") = Request.Form("to") objDBCommand("@EmployeeID") = Session("UserID") objDBCommand("@Reason") = Request.Form("comments") 'Initialise the Recordset Set objDBRS = Server.CreateObject("ADODB.RecordSet") 'Execute objDBRS.open objDBCommand,,adOpenForwardOnly if not objDBRS.EOF then Session("BookingValid") = objDBRS(0) end if if Session("BookingValid") = "ErrorBookingHoliday" then response.Write("<SCRIPT LANGUAGE=""JavaScript"">alert(""Holiday CANNOT be booked."");</SCRIPT>") end if if Session("BookingValid") = "ErrorBookingHoliday" then response.Write("<SCRIPT LANGUAGE=""JavaScript"">alert(""Holiday has been requested."");</SCRIPT>") end if 'Close and Destroy Objects - Start******************************************************* Set objDBCommand=nothing objDBConn.Close Set objDBConn=nothing 'Close and Destroy Objects - End********************************************************* response.redirect("newbooking.asp") end if %> 

Ma procédure stockée son appel sont;

 PROCEDURE [dbo].[spNewHoliday] ( @StartDate DATE, @EndDate DATE, @EmployeeID INT, @Reason NVARCHAR (45) ) AS SET NOCOUNT ON BEGIN IF NOT EXISTS ( SELECT 1 FROM Holidays WHERE @StartDate = StartDate AND @EndDate = EndDate AND @EmployeeID = EmployeeID) BEGIN DECLARE @Validation INT EXEC spBusinessRuleValidation @StartDate, @EndDate, @EmployeeID, @Validation OUTPUT IF @Validation = 0 BEGIN DECLARE @DaysOff AS INT SELECT @DaysOff = (DATEDIFF(Day,@StartDate,@EndDate) +1) UPDATE Employees SET AnnualDaysHolidayAllowance = AnnualDaysHolidayAllowance - @DaysOff WHERE @EmployeeID = Employees.ID INSERT INTO Holidays(EmployeeID, StartDate, EndDate, Duration, Status, Reason) VALUES(@EmployeeID, @StartDate, @EndDate, @DaysOff,'Pending', @Reason) SELECT Employees.AnnualDaysHolidayAllowance AS Daysleft FROM Employees WHERE @EmployeeID = Employees.ID END SET NOCOUNT ON IF @Validation = 1 BEGIN SELECT 'ErrorBookingHoliday' AS FailedBooking END END END 

Et la procédure stockée que cette procédure appelle est;

 PROCEDURE [dbo].[spBusinessRuleValidation] ( @StartDate DATE, @EndDate DATE, @EmployeeID INT, @Validation INT output ) AS SET NOCOUNT ON BEGIN DECLARE @JobRoleID INT DECLARE @MaxJobTypeAllowedOff INT DECLARE @MaxEmployeesAllowedOff INT DECLARE @DateCount INT DECLARE @SameJobRoleOff INT DECLARE @DateCheck DATE SET @JobRoleID = (SELECT JobRoleID FROM Employees WHERE @EmployeeID = Employees.ID) SET @MaxJobTypeAllowedOff = (SELECT MaxEmployeesAllowedOff FROM JobRole WHERE @JobRoleID = JobRole.ID) SET @MaxEmployeesAllowedOff = 20 SET @DateCheck = @StartDate SET @EndDate = DATEADD(DAY, 1, @EndDate) SET @Validation = '0' WHILE (@DateCheck <> @EndDate) BEGIN SET @DateCount = (SELECT COUNT (*) FROM Holidays WHERE Holidays.Startdate >= @DateCheck AND Holidays.EndDate <= @EndDate ) IF @DateCount > @MaxEmployeesAllowedOff BEGIN SET @Validation = '1' BREAK END SET @SameJobRoleOff = (SELECT COUNT (*) JobRoleID FROM Employees RIGHT JOIN Holidays ON Employees.ID = Holidays.EmployeeID WHERE Employees.ID = @EmployeeID AND Holidays.Startdate >= @DateCheck AND Holidays.EndDate <= @EndDate AND Holidays.Status <> 'Declined') IF @SameJobRoleOff > @MaxJobTypeAllowedOff BEGIN SET @Validation = '1' BREAK END SET @DateCheck = DATEADD(DAY, 1, @DateCheck) END END 

Je suis très nouveau à SQL et ASP (environ 3-4 mois d'expérience) et besoin d'aide avec ce problème, toute aide serait appréciée même si c'est juste à faire avec du code qui n'est pas la cause de mon erreur! Merci! OH c'est le code où ça va mal!

 if not objDBRS.EOF then Session("BookingValid") = objDBRS(0) end if 

• Mettre à jour une table SQL Server
• SQL – Obtenir le prochain numéro en ligne à partir d'un jeu d'loggings avec des écarts dans les nombres
• Comment écrire une string de connection pour se connecter de la page ASP classique à SQL 2008 R2?
• Erreur après le passage de la connection DSN ODBC à OLEDB
• Passer la date au paramètre ADODB.Command de JavaScript

  SELECT @some_symbol some_column_name;