<%@Language="VBScript"%>
<!-- Include file for VBScript ADO Constants -->
<!--#include File="adovbs.inc"-->
<%
   ' Connection string.
   strCon = "Provider=sqloledb;Data Source=myServer;Initial Catalog=Northwind;User Id=myUser;Password=myPassword"
         
   ' Create the required ADO objects.
   Set conn = Server.CreateObject("ADODB.Connection")
   Set rs = Server.CreateObject("ADODB.recordset")
         
   ' Open the connection.
   conn.Open strCon
   
   ' Retrieve some records.
   strSQL = "Select * from Shippers"
   rs.CursorLocation = adUseClient
   rs.Open strSQL, conn, adOpenStatic, adLockOptimistic

   ' Disconnect the recordset.
   Set rs.ActiveConnection = Nothing
      
   ' Release the connection.
   conn.Close

   ' Check the status of the connection.
   Response.Write("<BR> Connection.State = " & conn.State)

   Set conn = Nothing
   
   ' Use the diconnected recordset here.

   ' Release the recordset.
   rs.Close
   Set rs = Nothing
%>

---------------------------------------------------------

DisconnectRecordset(rs);

---------------------------------------------------------

rs.ActiveConnection = null;

----------------------------------------------------------

var oUtil = Server.CreateObject("Torrboy.JArgUtility");
   rs.ActiveConnection = oUtil.Nothing;

----------------------------------------------------------