set rsDue = Server.CreateObject("ADODB.Recordset")
rsDue.ActiveConnection = MM_Transmille_STRING

rsDue.Source = "SELECT Calibrations.Cert_No, Calibrations.Cust_Ref, Calibrations.Rec_Date, Instruments.Inst_ID, Instruments.Description, Instruments.Model_no, Instruments.Manufacturer, Instruments.Serial_no, Instruments.Status, Instruments.Cust_Acc_No  FROM Instruments INNER JOIN Calibrations ON Instruments.Inst_ID = Calibrations.Inst_ID  WHERE Instruments.Cust_Name = '" & Session("MM_Username") & "' AND Instruments.Cust_Acc_No = '" & Session("MM_Password") & "' AND Instruments.Cust_Acc_No = '" + Replace(rsDue__MMColParam, "'", "''") + "' AND Instruments.Status IN ('N') ORDER BY Calibrations.Rec_Date DESC;"


rsDue.CursorType = 0
rsDue.CursorLocation = 2
rsDue.LockType = 3
rsDue.Open()
rsDue_numRows = 0