LISTING 2: ADO Code for FirstData2.asp

Function RunSPGetRecord(strSP, sckey)
	    
	Dim rs, cmd, OutPutParms
	Set rs = Server.CreateObject("adodb.Recordset")
	Set cmd = Server.CreateObject("adodb.Command")
	    
	' Initialize the ADO objects and the stored procedure parameters
	cmd.ActiveConnection = getDSN()
	cmd.CommandText = strSP
	cmd.CommandType = adCmdStoredProc
	    
    cmd.Parameters.Append cmd.CreateParameter("@ckey",adchar,adParamInput, 1,sckey )
	
	    
	rs.CursorLocation = adUseClient
	rs.Open cmd, , adOpenStatic, adLockReadOnly
	if OutPutParms then OutArray = collectOutputParms(cmd, params)
	Set cmd.ActiveConnection = Nothing
	Set cmd = Nothing
	Set rs.ActiveConnection = Nothing

	Set RunSPGetRecord = rs


End Function