Set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionString = Application("strConn")
conn.Open
		
Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection = conn

  	cmd.CommandText = "some_stored_proc"
    	cmd.CommandType = adCmdStoredProc
    	cmd.Parameters.Append cmd.CreateParameter("code", adVarChar, adParamInput, 15  , code)
        
		Set rs = Server.CreateObject("ADODB.Recordset")
		Set rs = cmd.Execute
response.write  rs.fields("no_field")